Comptes de production et d’exploitation par branche

Data - Insee

Author

François Geerolf

Info

source dataset .html .RData
insee CNA-2014-CPEB 2024-11-09 2024-11-21
insee CNA-2014-PIB 2024-11-09 2024-11-21

Données sur la macroéconomie en France

source dataset .html .RData
bdf CFT 2024-11-21 2024-11-21
insee CNA-2014-CONSO-MEN 2024-11-22 2024-11-21
insee CNA-2014-CONSO-SI 2024-11-22 2024-11-21
insee CNA-2014-CSI 2024-11-09 2024-11-21
insee CNA-2014-FBCF-BRANCHE 2024-11-22 2024-11-22
insee CNA-2014-FBCF-SI 2024-06-07 2024-11-21
insee CNA-2014-PIB 2024-11-09 2024-11-21
insee CNA-2014-RDB 2024-11-22 2024-11-22
insee CNT-2014-CB 2024-11-22 2024-11-22
insee CNT-2014-CSI 2024-11-22 2024-11-21
insee CNT-2014-OPERATIONS 2024-11-22 2024-11-22
insee CNT-2014-PIB-EQB-RF 2024-11-21 2024-11-21
insee CONSO-MENAGES-2014 2024-11-21 2024-11-21
insee conso-mensuelle 2024-06-07 2023-07-04
insee ICA-2015-IND-CONS 2024-11-22 2024-11-22
insee t_1101 2024-11-09 2022-01-02
insee t_1102 2024-11-09 2020-10-30
insee t_1105 2024-11-09 2020-10-30

LAST_UPDATE

Code 
`CNA-2014-CPEB` %>%
  group_by(LAST_UPDATE) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(LAST_UPDATE)) %>%
  print_table_conditional()
LAST_UPDATE Nobs
2023-05-31 83590
2022-06-14 32257

LAST_COMPILE

LAST_COMPILE
2024-11-22

Last

Code 
`CNA-2014-CPEB` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  head(1) %>%
  print_table_conditional()
TIME_PERIOD Nobs
2022 831

CNA_ACTIVITE

Code 
`CNA-2014-CPEB` %>%
  left_join(CNA_ACTIVITE, by = "CNA_ACTIVITE") %>%
  group_by(CNA_ACTIVITE, Cna_activite) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

INDICATEUR

Code 
`CNA-2014-CPEB` %>%
  group_by(INDICATEUR) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
INDICATEUR Nobs
CNA_CPEB 115847

OPERATION

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

NATURE

Code 
`CNA-2014-CPEB` %>%
  left_join(NATURE,  by = "NATURE") %>%
  group_by(NATURE, Nature) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
NATURE Nature Nobs
VALEUR_ABSOLUE Valeur absolue 93750
INDICE Indice 22097

TITLE_FR

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

UNIT_MEASURE

Code 
`CNA-2014-CPEB` %>%
  group_by(UNIT_MEASURE) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
UNIT_MEASURE Nobs
EUR2014 22007
EUROS_COURANTS 71743
SO 22097

Excédent Brut d’Exploitation, Revenu Mixte Brut

Deux + Somme

Code 
`CNA-2014-CPEB` %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  filter(CNA_ACTIVITE == "NNTOTAL",
         OPERATION %in% c("B3G", "B2G", "B2GEB3G")) %>%
  year_to_date() %>%
  select(date, OPERATION, Operation, OBS_VALUE, UNIT_MEASURE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Operation)) + 
  theme_minimal() +  xlab("") + ylab("") +
  
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 2000, 100),
                     labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))

Deux

Code 
`CNA-2014-CPEB` %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  filter(CNA_ACTIVITE == "NNTOTAL",
         OPERATION %in% c("B3G", "B2G")) %>%
  year_to_date() %>%
  select(date, OPERATION, Operation, OBS_VALUE, UNIT_MEASURE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Operation)) + 
  theme_minimal() +  xlab("") + ylab("") +
  
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.25, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 2000, 100),
                     labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))

Rémunération des Salariés

Code 
`CNA-2014-CPEB` %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  filter(CNA_ACTIVITE == "NNTOTAL",
         OPERATION %in% c("D1", "D11", "D12")) %>%
  year_to_date() %>%
  select(date, OPERATION, Operation, OBS_VALUE, UNIT_MEASURE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Operation)) + 
  theme_minimal() +  xlab("") + ylab("") +
  
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 2000, 100),
                     labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))

Production

Code 
`CNA-2014-CPEB` %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  filter(CNA_ACTIVITE == "NNTOTAL",
         OPERATION %in% c("P1", "P11", "P12"),
         NATURE == "VALEUR_ABSOLUE",
         UNIT_MEASURE == "EUROS_COURANTS") %>%
  year_to_date() %>%
  select(date, OPERATION, Operation, OBS_VALUE, UNIT_MEASURE) %>%
  ggplot + geom_line(aes(x = date, y = OBS_VALUE/1000, color = Operation)) + 
  theme_minimal() +  xlab("") + ylab("") +
  
  scale_x_date(breaks = as.Date(paste0(seq(1940, 2100, 5), "-01-01")),
               labels = date_format("%Y")) +
  theme(legend.position = c(0.35, 0.9),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 7000, 500),
                     labels = dollar_format(suffix = " Mds€", prefix = "", accuracy = 1))