Τριμηνιαίο Ακαθάριστο Εγχώριο Προϊόν, τομείς της οικονομίας

Συμμετοχή στο ΑΕΠ των 10 τομέων της οικονομίας

Οι τιμές του ΑΕΠ (GDP) δίνονται ως δισ. EUR.

Τα διαγράμματα χρησιμοποιύν τιμές με ημερολογιακή (2010) και εποχική διόρθωση.

Οι μεταβολές αναφέρονται στο αντίστοιχο τρίμηνο του προηγούμενου έτους.

source("../code/common.R")
QNA   <- read_rds("../out/QNA.rds")
cur_Q <- QNA %>% 
  tail(1) %>% 
  select(Quarter) %>% 
  unlist() %>% 
  as.character() %>% 
  str_sub(6,7)
numQ      <- 16
col_lin1  <- "steelblue"
col_pnt1  <- "darkorange"
col_pos   <- "steelblue"
col_neg   <- "firebrick1"
bar_width <- 0.7

QNA <- QNA %>% 
  mutate(gdp_rf_adj_o_sec_sum =
                 gdp_rf_adj_o_sec01 +
                 gdp_rf_adj_o_sec02 +
                 gdp_rf_adj_o_sec03 +
                 gdp_rf_adj_o_sec04 +
                 gdp_rf_adj_o_sec05 +
                 gdp_rf_adj_o_sec06 +
                 gdp_rf_adj_o_sec07 +
                 gdp_rf_adj_o_sec08 +
                 gdp_rf_adj_o_sec09 +
                 gdp_rf_adj_o_sec10) %>% 
  mutate(gdp_rf_adj_o_sec01_rat = gdp_rf_adj_o_sec01 / gdp_rf_adj_o_sec_sum, 
         gdp_rf_adj_o_sec02_rat = gdp_rf_adj_o_sec02 / gdp_rf_adj_o_sec_sum,
         gdp_rf_adj_o_sec03_rat = gdp_rf_adj_o_sec03 / gdp_rf_adj_o_sec_sum,
         gdp_rf_adj_o_sec04_rat = gdp_rf_adj_o_sec04 / gdp_rf_adj_o_sec_sum,
         gdp_rf_adj_o_sec05_rat = gdp_rf_adj_o_sec05 / gdp_rf_adj_o_sec_sum,
         gdp_rf_adj_o_sec06_rat = gdp_rf_adj_o_sec06 / gdp_rf_adj_o_sec_sum,
         gdp_rf_adj_o_sec07_rat = gdp_rf_adj_o_sec07 / gdp_rf_adj_o_sec_sum,
         gdp_rf_adj_o_sec08_rat = gdp_rf_adj_o_sec08 / gdp_rf_adj_o_sec_sum,
         gdp_rf_adj_o_sec09_rat = gdp_rf_adj_o_sec09 / gdp_rf_adj_o_sec_sum,
         gdp_rf_adj_o_sec10_rat = gdp_rf_adj_o_sec10 / gdp_rf_adj_o_sec_sum)

01) Γεωργία, δασοκομία και αλιεία

Διάγραμμα χρονοσειράς

QNA %>% 
  tail(numQ) %>% 
  ggplot(aes(Quarter, gdp_rf_adj_o_sec01*1e-3, group=1)) +
  geom_line(color = col_lin1,  size = 1.2) +
  geom_point(color = col_pnt1, size = 3) +
  ylab("GDP") +
  theme_economist() +
  theme(text = element_text(size=14)) +
  theme(axis.text.x = element_text(angle=90, hjust=1), 
        axis.ticks.x=element_blank(),
        axis.title.x = element_blank()) 

Ποσοστιαία μεταβολή ως προς το αντίστοιχο εξάμηνο του ίδιου έτους

QNA %>%
  mutate(sec = calc_return(gdp_rf_adj_o_sec01, p = 4)) %>% 
  mutate(colour = ifelse(sec < 0, "neg","pos")) %>% 
  tail(numQ) %>% 
  filter(str_sub(Quarter, 6, 7) == cur_Q) %>% 
  ggplot(aes(Quarter, sec*1e+2, group=1)) +
  geom_bar(stat = "identity" , width = bar_width, aes(fill = colour)) +
  ylab("% GDP change (YoY)") +
  scale_fill_manual(values = c(neg = col_neg, pos = col_pos)) +
  theme_economist() +
  theme(text = element_text(size = 14)) +
  theme(legend.position = "none") +
  theme(axis.text.x  = element_text(angle = 90, hjust = 1), 
        axis.ticks.x = element_blank(),
        axis.title.x = element_blank()) 

Ποσοστό επί του συνόλου

QNA %>% 
  tail(numQ) %>% 
  ggplot(aes(Quarter, gdp_rf_adj_o_sec01_rat*1e+2, group = 1)) +
  geom_line(color  = col_lin1, size = 1.2) +
  geom_point(color = col_pnt1, size = 3) +
  ylab("% GDP") +
  theme_economist() +
  theme(text = element_text(size = 14)) +
  theme(axis.text.x  = element_text(angle = 90, hjust = 1), 
        axis.ticks.x = element_blank(),
        axis.title.x = element_blank()) 

02) Ορυχεία και λατομεία, μεταποίηση, ενέργεια, παροχή νερού, επεξεργασία λυμάτων, διαχείριση αποβλήτων, εξυγίανση

Ποσοστό επί του συνόλου

03) Κατασκευές

Ποσοστό επί του συνόλου

04) Χονδρικό και λιανικό εμπόριο, επισκευές οχημάτων και μοτοσικλετών, μεταφορά και αποθήκευση, υπηρεσίες παροχής καταλύματος και υπηρεσίες εστίασης

Ποσοστό επί του συνόλου

05) Eνημέρωση και επικοινωνία

Ποσοστό επί του συνόλου

06) Χρηματοπιστωτικές και ασφαλιστικές δραστηριότητες

Ποσοστό επί του συνόλου

07) Διαχείριση ακίνητης περιουσίας

Ποσοστό επί του συνόλου

08) Επαγγελματικές, επιστημονικές και τεχνικές δραστηριότητες, διοικητικές και υποστηρικτικές δραστηριότητες

Ποσοστό επί του συνόλου

09) Δημόσια διοίκηση και άμυνα, υποχρεωτική κοινωνική ασφάλιση, εκπαίδευση, δραστηριότητες σχετικές με την ανθρώπινη υγεία και την κοινωνική μέριμνα

Ποσοστό επί του συνόλου

10) Τέχνες, διασκέδαση και ψυχαγωγία, επισκευές ειδών νοικοκυριού και άλλες υπηρεσίες

Ποσοστό επί του συνόλου