Solde des échanges extérieurs et principales composantes

Data - Insee

Author

François Geerolf

Info

source dataset .html .RData
insee econ-gen-solde-ech-ext-2 2024-10-29 2023-11-01

Données sur l’énergie

source dataset .html .RData
cre TRV_electricite 2024-10-27 2024-10-07
cre TRV_gaz 2024-10-07 2021-09-05
insee econ-gen-solde-ech-ext-2 2024-10-29 2023-11-01
insee IPPMP-NF 2024-10-29 2024-11-05
insee t_5404 2024-10-29 2021-08-01
sdes bilan_energetique 2024-10-07 2024-10-07

Info

  • Solde des échanges extérieurs et principales composantes. html / xlsx

variable

Code 
`econ-gen-solde-ech-ext-2` %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  group_by(variable, Variable) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
variable Variable Nobs
ALIM Biens alimentaires 74
AUTR Autres biens industriels 74
ENER Energie 74
MATE Matériels de transport 74
SERV Services 74
SOLD Solde du commerce extérieur 74

date

Code 
`econ-gen-solde-ech-ext-2` %>%
  group_by(year) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  arrange(desc(year)) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Biens, Services, Biens et Services

All

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  select(-gdp) %>%
  spread(variable, value) %>%
  transmute(date,
            Biens = ALIM + AUTR + ENER + MATE,
         Services = SERV,
         `Biens et Services` = SOLD) %>%
  gather(variable, value, -date) %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

1975-

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  select(-gdp) %>%
  spread(variable, value) %>%
  transmute(date,
            `Biens` = ALIM + AUTR + ENER + MATE,
         `Services` = SERV,
         `Biens et Services` = SOLD) %>%
  gather(variable, value, -date) %>%
  filter(date >= as.Date("1955-01-01")) %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = "none") +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("Solde des échanges extérieurs (% du PIB)") + 
  geom_hline(yintercept = 0, linetype = "dashed") +
  geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = value, label = variable, color = variable))

1975-

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  select(-gdp) %>%
  spread(variable, value) %>%
  transmute(date,
            `Biens` = ALIM + AUTR + ENER + MATE,
         `Services` = SERV,
         `Biens et Services` = SOLD) %>%
  gather(variable, value, -date) %>%
  filter(date >= as.Date("1975-01-01")) %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = variable)) + 
  theme(legend.title = element_blank(),
        legend.position = "none") +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("Solde des échanges extérieurs (% du PIB)") + 
  geom_hline(yintercept = 0, linetype = "dashed") +
  geom_label_repel(data = . %>% filter(date == max(date)), aes(x = date, y = value, label = variable, color = variable))

Energie, Services, Alimentation, Industrie, Transport

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  filter(variable %in% c("ENER", "SERV", "AUTR", "ALIM", "MATE")) %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  ggplot(.) + theme_minimal() + 
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Paires & Solde Extérieur

Industrie, Energie, Solde Extérieur

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  filter(variable %in% c("ENER", "SOLD", "AUTR")) %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  ggplot(.) + xlab("") + ylab("% du PIB") + 
  theme_minimal() + 
  geom_line(aes(x = date, y = value, color = Variable)) +  
  theme(legend.title = element_blank(),
        legend.position = c(0.8, 0.15)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  geom_hline(yintercept = 0, linetype = "dashed")

Alimentation, Transport, Solde Extérieur

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  filter(variable %in% c("ALIM", "MATE", "SOLD")) %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.8, 0.15)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Individu & Solde Extérieur

Services, Solde Extérieur

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  filter(variable %in% c("SERV", "SOLD")) %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Alimentation, Solde Extérieur

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  filter(variable %in% c("ALIM", "SOLD")) %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.8, 0.15)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Energie, Solde Extérieur

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  filter(variable %in% c("ENER", "SOLD")) %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Industrie, Solde Extérieur

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  filter(variable %in% c("AUTR", "SOLD")) %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")

Transport, Solde Extérieur

Code 
`econ-gen-solde-ech-ext-2` %>%
  year_to_date2 %>%
  left_join(gdp, by = "date") %>%
  mutate(value = value/gdp) %>%
  filter(variable %in% c("MATE", "SOLD")) %>%
  left_join(`econ-gen-solde-ech-ext-2_var`, by = "variable") %>%
  ggplot(.) + theme_minimal() +
  geom_line(aes(x = date, y = value, color = Variable)) + 
  theme(legend.title = element_blank(),
        legend.position = c(0.2, 0.2)) +
  scale_x_date(breaks = seq(1950, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-7, 16, 1),
                     labels = scales::percent_format(accuracy = 1)) + 
  xlab("") + ylab("% du PIB") + 
  geom_hline(yintercept = 0, linetype = "dashed")