Comptes de production et d’exploitation par branche - CNA-2014-CPEB

Données - INSEE

Auteur

François Geerolf

Last observation: 2022 (N = 831)

First observation: 1949 (N = 509)

Last data update: 14 sept. 2026, 23:36

Last compile: 15 sept. 2026, 00:58

Structure

Excédent Brut d’Exploitation, Revenu Mixte Brut

Deux + Somme

Code 
`CNA-2014-CPEB` |>
  
  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` |>
  
  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` |>
  
  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` |>
  
  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))