Comptes des branches

Data - Insee

Author

François Geerolf

Info

source dataset .html .RData

insee

CNT-2014-CB

 2024-06-20 2024-06-23

Données sur la macroéconomie en France

source dataset .html .RData

bdf

CFT

 2024-06-23 2024-06-23

insee

CNA-2014-CONSO-MEN

 2024-06-24 2024-06-23

insee

CNA-2014-CONSO-SI

 2024-06-24 2024-06-23

insee

CNA-2014-CSI

 2024-06-24 2024-06-23

insee

CNA-2014-FBCF-BRANCHE

 2024-06-24 2024-06-23

insee

CNA-2014-FBCF-SI

 2024-06-07 2024-06-23

insee

CNA-2014-PIB

 2024-06-24 2024-06-23

insee

CNA-2014-RDB

 2024-06-24 2024-06-23

insee

CNT-2014-CB

 2024-06-20 2024-06-23

insee

CNT-2014-CSI

 2024-06-20 2024-06-23

insee

CNT-2014-OPERATIONS

 2024-06-20 2024-06-23

insee

CNT-2014-PIB-EQB-RF

 2024-06-20 2024-06-23

insee

CONSO-MENAGES-2014

 2024-06-20 2024-06-23

insee

conso-mensuelle

 2024-06-07 2023-07-04

insee

ICA-2015-IND-CONS

 2024-06-20 2024-06-24

insee

t_1101

 2024-06-20 2022-01-02

insee

t_1102

 2024-06-20 2020-10-30

insee

t_1105

 2024-06-20 2020-10-30

LAST_UPDATE

Code 
`CNT-2014-CB` %>%
  group_by(LAST_UPDATE) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(LAST_UPDATE)) %>%
  print_table_conditional()
LAST_UPDATE Nobs
2024-04-30 178344

LAST_COMPILE

LAST_COMPILE
2024-06-24

Last

Code 
`CNT-2014-CB` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  head(2) %>%
  print_table_conditional()
TIME_PERIOD Nobs
2024-Q1 144
2023-Q4 594

  • Le compte de production décrit la relation entre la production et la consommation intermédiaire nécessaire à cette production. Il a pour solde la valeur ajoutée brute qui mesure la richesse créée lors du processus de production.

  • Le compte d’exploitation décrit comment la valeur ajoutée brute couvre la rémunération versée aux salariés et les impôts sur la production. Il a pour solde l’excédent brut d’exploitation et le revenu mixte brut qui mesurent le profit d’exploitation des branches.

TITLE_FR

Code 
`CNT-2014-CB` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

INDICATEUR

Code 
`CNT-2014-CB` %>%
  left_join(INDICATEUR,  by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
INDICATEUR Indicateur Nobs
CNT-COMPTE_EXPLOITATION_BRANCHES Compte d'exploitation des branches 63000
CNT-COMPTE_PRODUCTION_BRANCHES Compte de production des branches 43344
CNT-EMPLOI_INTERIEUR_BRANCHES Emploi intérieur par branche 43200
CNT-DUREE_VOLUME_TRAVAIL_BRANCHE Durée hebdomadaire et volume de travail par branche 28800

VALORISATION

Code 
`CNT-2014-CB` %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  group_by(VALORISATION, Valorisation) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
VALORISATION Valorisation Nobs
SO Sans objet 135000
L Volumes aux prix de l'année précédente chaînés 21672
V Valeurs aux prix courants 21672

OPERATION

Code 
`CNT-2014-CB` %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  group_by(OPERATION, Operation) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

UNIT_MEASURE

Code 
`CNT-2014-CB` %>%
  group_by(UNIT_MEASURE) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
UNIT_MEASURE Nobs
ETP 21600
EUROS 106344
HEURES 28800
INDIVIDUS 21600

CNA_PRODUIT

Code 
`CNT-2014-CB` %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  group_by(CNA_PRODUIT, Cna_produit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

TIME_PERIOD

Code 
`CNT-2014-CB` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Excédent Brut / PIB par branche

All

Code 
`CNT-2014-CB` %>%
  filter(TIME_PERIOD %in%  c("2022-Q4", "2019-Q4", "2006-Q4")) %>%
  filter(OPERATION %in% c("B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         VALORISATION %in% c("V", "SO")) %>%
  quarter_to_date() %>%
  select(date, OPERATION, CNA_PRODUIT, OBS_VALUE) %>%
  left_join(gdp_quarterly, by = "date") %>%
  mutate(B2_gdp = round(100*OBS_VALUE/gdp, 1)) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  select(CNA_PRODUIT, Cna_produit, date, B2_gdp) %>%
  spread(date, B2_gdp) %>%
  mutate(change = `2022-10-01`-`2006-10-01`) %>%
  arrange(-change) %>%
  print_table_conditional()
CNA_PRODUIT Cna_produit 2006-10-01 2019-10-01 2022-10-01 change
A17-HZ A17-HZ - Transports et entreposage 1.0 1.3 1.8 0.8
A17-AZ A17-AZ - Agriculture, sylviculture et pêche 1.5 1.3 1.9 0.4
A17-C2 A17-C2 - Cokéfaction et raffinage 0.0 0.0 0.3 0.3
A17-GZ A17-GZ - Commerce ; réparation d'automobiles et de motocycles 3.2 3.3 3.5 0.3
A17-C1 A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 0.9 0.8 0.9 0.0
A17-OQ A17-OQ - Administration publique, enseignement, santé humaine et action sociale 4.3 4.5 4.3 0.0
DSN-CNT Tertiaire principalement non marchand (OQ) 4.3 4.5 4.3 0.0
A17-LZ A17-LZ - Activités immobilières 9.7 9.6 9.6 -0.1
A17-DE A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 1.5 1.4 1.4 -0.1
A17-FZ A17-FZ - Construction 1.8 1.9 1.7 -0.1
A17-C3 A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 0.6 0.5 0.4 -0.2
A17-C4 A17-C4 - Fabrication de matériels de transport 0.6 0.7 0.4 -0.2
DI-CNT Industrie (DE, C1, C2, C3, C4, C5) 5.6 5.2 5.3 -0.3
A17-C5 A17-C5 - Fabrication d'autres produits industriels 2.1 1.8 1.8 -0.3
DIM-CNT Industrie manufacturière (C1, C2, C3, C4, C5) 4.2 3.7 3.9 -0.3
A17-RU A17-RU - Autres activités de services 0.8 0.7 0.4 -0.4
A17-IZ A17-IZ - Hébergement et restauration 0.9 0.8 0.4 -0.5
A17-JZ A17-JZ - Information et communication 2.2 1.9 1.6 -0.6
A17-KZ A17-KZ - Activités financières et d'assurance 0.9 0.8 0.3 -0.6
A17-MN A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 4.0 3.7 3.3 -0.7
D-CNT Ensemble des biens et services 35.8 35.1 34.1 -1.7
DS-CNT Ensemble des services 28.7 28.5 27.0 -1.7
DSM-CNT Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 22.7 22.1 21.0 -1.7
SMNA-CNT Ensemble principalement marchand non agricole 30.1 29.2 28.0 -2.1

Transports, Energie, Alimentation

All

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "A17-HZ", "A17-C1", "A17-C2"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

2000-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "A17-HZ", "A17-C1", "A17-C2"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  filter(date >= as.Date("2000-01-01")) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

Industrie

All

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.7),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 2),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

2000-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  filter(date >= as.Date("2000-01-01")) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.5),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 0.5),
                labels = percent_format(accuracy = .1)) +
  scale_x_date(breaks = seq(1920, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

Grands ensembles

All

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("DI-CNT", "DIM-CNT", "DS-CNT", "DSM-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 2),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

2000-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("DI-CNT", "DIM-CNT", "DS-CNT", "DSM-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  filter(date >= as.Date("2000-01-01")) %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.5),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 2),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

Excédent Brut / VA par branche

All

Code 
`CNT-2014-CB` %>%
  filter(TIME_PERIOD %in% c("2023-Q1", "2022-Q1")) %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, TIME_PERIOD, CNA_PRODUIT, OBS_VALUE) %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(B2_B1 = round(100*B2/B1, 1)) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  select(Cna_produit, TIME_PERIOD, B2_B1) %>%
  spread(TIME_PERIOD, B2_B1) %>%
  mutate(change = `2023-Q1` - `2022-Q1`) %>%
  arrange(change) %>%
  print_table_conditional()
Cna_produit 2022-Q1 2023-Q1 change
A17-IZ - Hébergement et restauration 27.2 15.2 -12.0
A17-KZ - Activités financières et d'assurance 17.3 9.7 -7.6
A17-HZ - Transports et entreposage 43.4 36.6 -6.8
A17-RU - Autres activités de services 23.5 17.1 -6.4
A17-OQ - Administration publique, enseignement, santé humaine et action sociale 23.4 21.2 -2.2
Tertiaire principalement non marchand (OQ) 23.4 21.2 -2.2
A17-JZ - Information et communication 34.1 32.5 -1.6
Ensemble des services 36.4 35.3 -1.1
Tertiaire principalement marchand (GZ, HZ, IZ, JZ, KZ, LZ, MN, RU) 42.1 41.0 -1.1
A17-AZ - Agriculture, sylviculture et pêche 92.7 92.5 -0.2
A17-MN - Activités scientifiques et techniques ; services administratifs et de soutien 26.2 26.0 -0.2
A17-GZ - Commerce ; réparation d'automobiles et de motocycles 35.5 35.5 0.0
Ensemble des biens et services 38.0 38.3 0.3
Ensemble principalement marchand non agricole 40.9 41.6 0.7
A17-C2 - Cokéfaction et raffinage 88.3 89.2 0.9
A17-C5 - Fabrication d'autres produits industriels 34.1 35.1 1.0
A17-LZ - Activités immobilières 83.0 84.3 1.3
A17-FZ - Construction 31.4 33.9 2.5
Industrie manufacturière (C1, C2, C3, C4, C5) 33.5 39.8 6.3
A17-DE - Industries extractives, énergie, eau, gestion des déchets et dépollution 62.7 69.7 7.0
A17-C3 - Fabrication d'équipements électriques, électroniques, informatiques ; fabrication de machines 30.1 37.2 7.1
Industrie (DE, C1, C2, C3, C4, C5) 40.0 47.2 7.2
A17-C4 - Fabrication de matériels de transport 21.1 33.6 12.5
A17-C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac 29.1 47.9 18.8

Total VS Energie

Tous

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  #filter(date >= as.Date("1990-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.4, 0.3),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

1990-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("1990-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.4, 0.3),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

Total VS Energie VS Total Hors Energie

Tous

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(CNA_PRODUIT, OBS_VALUE) %>%
  mutate(`D-CNT-A17-DE` = `D-CNT` - `A17-DE`) %>%
  select(-`A17-DE`) %>%
  gather(CNA_PRODUIT, OBS_VALUE, -date, -OPERATION) %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  mutate(Cna_produit = ifelse(CNA_PRODUIT == "D-CNT-A17-DE", "Ensemble des biens et services, sans le secteur énergétique", Cna_produit)) %>%
  #filter(date >= as.Date("1990-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.6, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

1970-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(CNA_PRODUIT, OBS_VALUE) %>%
  mutate(`D-CNT-A17-DE` = `D-CNT` - `A17-DE`) %>%
  select(-`A17-DE`) %>%
  gather(CNA_PRODUIT, OBS_VALUE, -date, -OPERATION) %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  mutate(Cna_produit = ifelse(CNA_PRODUIT == "D-CNT-A17-DE", "Ensemble des biens et services, sans le secteur énergétique", Cna_produit)) %>%
  filter(date >= as.Date("1970-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.65, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

1990-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(CNA_PRODUIT, OBS_VALUE) %>%
  mutate(`D-CNT-A17-DE` = `D-CNT` - `A17-DE`) %>%
  select(-`A17-DE`) %>%
  gather(CNA_PRODUIT, OBS_VALUE, -date, -OPERATION) %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  mutate(Cna_produit = ifelse(CNA_PRODUIT == "D-CNT-A17-DE", "Ensemble des biens et services, sans le secteur énergétique", Cna_produit)) %>%
  filter(date >= as.Date("1990-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.3, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

2010-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(CNA_PRODUIT, OBS_VALUE) %>%
  mutate(`D-CNT-A17-DE` = `D-CNT` - `A17-DE`) %>%
  select(-`A17-DE`) %>%
  gather(CNA_PRODUIT, OBS_VALUE, -date, -OPERATION) %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  mutate(Cna_produit = ifelse(CNA_PRODUIT == "D-CNT-A17-DE", "Ensemble des biens et services, sans le secteur énergétique", Cna_produit)) %>%
  filter(date >= as.Date("2010-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

Total VS Energie VS Agro-Alimentaire

Tous

% de la branche

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("1990-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("forestgreen", "brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1),
                limits = c(0, 0.85)) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

% de la VA

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B1", "B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'Exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 0.5),
                labels = percent_format(accuracy = .1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

% de la VA

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B1", "B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'Exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 0.5),
                labels = percent_format(accuracy = .1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

2010-

% of B1 de la branche

avec 0
Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2010-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("forestgreen", "brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1),
                limits = c(0, 0.75)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

sans 0
Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2010-01-01")) %>%
  arrange(desc(date)) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("forestgreen", "brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels") +
  geom_text(data = . %>%
              filter(date == as.Date("2023-10-01")), aes(x = date, y = B2/B1, label = percent(B2/B1)))

% de la production (définition finance entreprise)

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "P1E"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/P1E) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2010-01-01")) %>%
  arrange(desc(date)) %>%
  ggplot + geom_line(aes(x = date, y = B2/P1E, color = Cna_produit)) +
  scale_color_manual(values = c("forestgreen", "brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la production)") +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 2),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Production)",
       caption = "Source: INSEE, Comptes Trimestriels") +
  geom_text(data = . %>%
              filter(date == as.Date("2023-10-01")), aes(x = date, y = B2/P1E, label = percent(B2/P1E)))

sans 0
Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "D-CNT", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2017-01-01")) %>%
  arrange(desc(date)) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("forestgreen", "brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.45, 0.85),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels") +
  geom_text(data = . %>%
              filter(date == as.Date("2023-10-01")), aes(x = date, y = B2/B1, label = percent(B2/B1)))

% of B1 de la branche

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c( "D-CNT", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2010-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("forestgreen", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 2),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels") +
  geom_text(data = . %>%
              filter(date == as.Date("2023-10-01")), aes(x = date, y = B2/B1, label = percent(B2/B1), color = Cna_produit))

Avec les biens et services

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c( "D-CNT", "A17-C1", "A17-GZ"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2010-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit, linetype = Cna_produit)) +
  scale_color_manual(values = c("forestgreen", "brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 2),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels du 1er trimestre 2023")

% de la VA

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B1", "B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2010-01-01")) %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  scale_color_manual(values = c("forestgreen", "brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  labs(title = "Taux de marge (en % de la Valeur Ajoutée)",
       caption = "Source: INSEE, Comptes Trimestriels")

Total VS Raffinerie

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-C2", "D-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("1990-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.4, 0.3),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1),
                limits = c(0, 0.75)) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

Total VS Services de Transport

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-HZ", "D-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("1990-01-01")) %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  scale_color_manual(values = c("brown", "black")) +
  theme_minimal() +
  xlab("") + ylab("Taux de marge (% de la VA)") +
  theme(legend.position = c(0.4, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1),
                limits = c(0, 0.75)) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

Transports, Energie, Alimentation

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B1", "B2"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "A17-HZ", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  left_join(gdp_quarterly, by = "date") %>%
  ggplot + geom_line(aes(x = date, y = B2/gdp, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("Excédent brut d'exploitation (% du PIB)") +
  theme(legend.position = c(0.5, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

Services: IZ, KZ, HZ, RU, JZ

All

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-IZ", "A17-KZ", "A17-HZ", "A17-RU", "A17-JZ"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("") +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 10),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

2010-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-IZ", "A17-KZ", "A17-HZ", "A17-RU", "A17-JZ"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  filter(date >= as.Date("2010-01-01")) %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("") +
  theme(legend.position = c(0.3, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 10),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

DE, AZ, C1

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-DE", "A17-AZ", "A17-C1"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("") +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 10),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

C2, C3, C5

All

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-C5", "A17-C3", "A17-C4"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("") +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 10),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

2010-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("A17-C5", "A17-C3", "A17-C4"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  filter(date >= as.Date("2010-01-01")) %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("") +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 10),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

DI-CNT, DIM-CNT, DS-CNT

All

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("DI-CNT", "DIM-CNT", "DS-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("") +
  theme(legend.position = c(0.6, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 5),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 10) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

2010-

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B2", "B1"),
         #INDICATEUR == "CNT-COMPTE_EXPLOITATION_BRANCHES",
         CNA_PRODUIT %in% c("DI-CNT", "DIM-CNT", "DS-CNT"),
         VALORISATION %in% c("V", "SO")) %>%
  select(OPERATION, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) %>%
  quarter_to_date %>%
  filter(date >= as.Date("2010-01-01")) %>%
  spread(OPERATION, OBS_VALUE) %>%
  mutate(profit_share = B2/B1) %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  ggplot + geom_line(aes(x = date, y = B2/B1, color = Cna_produit)) +
  theme_minimal() +
  xlab("") + ylab("") +
  theme(legend.position = c(0.6, 0.8),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = 0.01*seq(-100, 500, 1),
                labels = percent_format(accuracy = 1)) +
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y"))

C1, C2, C3, C4, C5

2017T2-

Code 
`CNT-2014-CB` %>%
  filter(CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5"),
         OPERATION == "B1",
         VALORISATION == "L") %>%
  select_if(~ n_distinct(.) > 1) %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2017-04-01")) %>%
  group_by(CNA_PRODUIT) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit)) +
  xlab("") + ylab("") +  theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("2017-04-01"), to = as.Date("2023-10-01"), by = "6 months"),
               labels = date_format("%b %y")) +
  scale_y_log10(breaks = seq(0, 400, 20)) +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank())

2019T4-

Code 
`CNT-2014-CB` %>%
  filter(CNA_PRODUIT %in% c("A17-C1", "A17-C2", "A17-C3", "A17-C4", "A17-C5"),
         OPERATION == "B1",
         VALORISATION == "L") %>%
  select_if(~ n_distinct(.) > 1) %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2019-10-01")) %>%
  group_by(CNA_PRODUIT) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2019-10-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit)) +
  xlab("") + ylab("") +  theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("2019-10-01"), to = as.Date("2023-10-01"), by = "quarter"),
               labels = date_format("%b %y")) +
  scale_y_log10(breaks = seq(0, 400, 20)) +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank())

Volume des Branches: Services Non Marchands, Marchands, Industrie

2011T1-

Code 
`CNT-2014-CB` %>%
  filter(CNA_PRODUIT %in% c("DSN-CNT", "DSM-CNT", "DIM-CNT", "A17-FZ"),
         OPERATION == "B1",
         VALORISATION == "L") %>%
  select_if(~ n_distinct(.) > 1) %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2011-01-01")) %>%
  group_by(CNA_PRODUIT) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2017T2)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 120, 2)) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

2017T2-

Code 
`CNT-2014-CB` %>%
  filter(CNA_PRODUIT %in% c("DSN-CNT", "DSM-CNT", "DIM-CNT", "A17-FZ"),
         OPERATION == "B1",
         VALORISATION == "L") %>%
  select_if(~ n_distinct(.) > 1) %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2017-04-01")) %>%
  group_by(CNA_PRODUIT) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE / OBS_VALUE[date == as.Date("2017-04-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit)) +
  xlab("") + ylab("Emploi Trimestriel (100 = 2017T2)") +  theme_minimal() +
  scale_x_date(breaks = seq(1960, 2023, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_log10(breaks = seq(0, 120, 2)) +
  theme(legend.position = c(0.32, 0.2),
        legend.title = element_blank())

2019T4-

Code 
`CNT-2014-CB` %>%
  filter(CNA_PRODUIT %in% c("DSN-CNT", "DSM-CNT", "DIM-CNT", "A17-FZ"),
         OPERATION == "B1",
         VALORISATION == "L") %>%
  select_if(~ n_distinct(.) > 1) %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  filter(date >= as.Date("2019-10-01")) %>%
  arrange(date) %>%
  group_by(CNA_PRODUIT) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[date == as.Date("2019-10-01")]) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE, color = Cna_produit)) +
  xlab("") + ylab("") +  theme_minimal() +
  scale_x_date(breaks = seq.Date(from = as.Date("2019-10-01"), to = as.Date("2023-10-01"), by = "quarter"),
               labels = date_format("%b %y")) +
  scale_y_log10(breaks = seq(0, 120, 5)) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank())

Valeur VS Volume

C1 - Fabrication de denrées alimentaires, de boissons et de produits à base de tabac

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "A17-C1",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

C2 - Cokéfaction et raffinage

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "A17-C2",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.01, 0.02, 0.05, 0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50),
                labels = dollar_format(accuracy = 0.01, prefix = "", suffix = "M"))

C3 - Fabrication d’équipements électriques, électroniques, informatiques ; fabrication de machines

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "A17-C3",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

C4 - Fabrication de matériels de transport

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "A17-C4",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

C5 - Fabrication d’autres produits industriels

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "A17-C5",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

DIM-CNT - C1+C2+C3+C4+C5 - Industrie manuf.

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "DIM-CNT",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

DI-CNT

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "DI-CNT",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

DS-CNT

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "DS-CNT",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50, 100, 200, 500),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

GZ

Code 
`CNT-2014-CB` %>%
  filter(INDICATEUR == "CNT-COMPTE_PRODUCTION_BRANCHES",
         CNA_PRODUIT == "A17-GZ",
         OPERATION == "B1") %>%
  select(VALORISATION, OBS_VALUE, TIME_PERIOD) %>%
  quarter_to_date %>%
  left_join(VALORISATION, by = "VALORISATION") %>%
  ggplot() + theme_minimal() + ylab("") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Valorisation, linetype = Valorisation)) +
  scale_color_manual(values = viridis(3)[1:2]) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_x_date(breaks = seq(1920, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  scale_y_log10(breaks = c(0.1, 0.2, 0.3, 0.5, 0.8, 1, 2, 3, 5, 10, 20, 50),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

Emploi Total 1995-

Industrie, Construction

Code 
`CNT-2014-CB` %>%
  filter(OPERATION == "EMPS",
         CNA_PRODUIT %in% c("A17-FZ", "DIM-CNT", ""),
         UNIT_MEASURE == "INDIVIDUS") %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  arrange(CNA_PRODUIT, date) %>%
  filter(date >= as.Date("2011-01-01")) %>%
  ggplot() + theme_minimal() + ylab("Nombre d'actifs occupés") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Cna_produit, linetype = Cna_produit)) +
  
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_log10(breaks = c(seq(0, 40, 0.1), seq(0, 1, 0.1), seq(0, 0.1, 0.01)),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

Services

Code 
`CNT-2014-CB` %>%
  filter(OPERATION == "EMPS",
         CNA_PRODUIT %in% c("DSM-CNT", "DSN-CNT ", ""),
         UNIT_MEASURE == "INDIVIDUS") %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  arrange(CNA_PRODUIT, date) %>%
  filter(date >= as.Date("2011-01-01")) %>%
  ggplot() + theme_minimal() + ylab("Nombre d'actifs occupés") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Cna_produit, linetype = Cna_produit)) +
  
  scale_x_date(breaks = seq(1920, 2100, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_log10(breaks = c(seq(0, 40, 0.1), seq(0, 1, 0.1), seq(0, 0.1, 0.01)),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

Taux de marge par branches

Code 
`CNT-2014-CB` %>%
  filter(OPERATION %in% c("B1", "B2"),
         grepl("A17", CNA_PRODUIT)) %>%
  mutate(variable = paste0(OPERATION, "_", VALORISATION)) %>%
  quarterend_to_date() %>%
  arrange(CNA_PRODUIT, date, variable) %>%
  select(CNA_PRODUIT, date, variable, OBS_VALUE) %>%
  spread(variable, OBS_VALUE) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}