Comptes de production et d’exploitation par branche

Data - Insee

Author

Info

source	dataset	.html	.RData
insee	CNA-2014-CPEB	2024-06-20	2024-06-23
insee	CNA-2014-PIB	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-20	2024-06-23
insee	CNA-2014-FBCF-BRANCHE	2024-06-20	2024-06-23
insee	CNA-2014-FBCF-SI	2024-06-07	2024-06-23
insee	CNA-2014-PIB	2024-06-20	2024-06-23
insee	CNA-2014-RDB	2024-06-20	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

`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-06-24

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))