Formation brute de capital fixe (FBCF) par branche - CNA-2014-FBCF-BRANCHE

Données - INSEE

Auteur

François Geerolf

Last observation: 2021 (N = 136)

First observation: 1978 (N = 136)

Last data update: 03 sept. 2026, 23:28

Last compile: 04 sept. 2026, 01:48

Structure

Decomposition

A5

Code 
`CNA-2014-FBCF-BRANCHE` |>
  filter(grepl("A5", CNA_ACTIVITE),
         UNIT_MEASURE == "EUROS_COURANTS") |>
  year_to_date() |>
  
  select(date, CNA_ACTIVITE, CNA_ACTIVITE, OBS_VALUE) |>
  left_join(gdp, by = "date") |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = CNA_ACTIVITE)) +
  theme_minimal() + xlab("") + ylab("") +
  theme(legend.title = element_blank(),
        legend.position = c(0.4, 0.5)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
                     labels = scales::percent_format(accuracy = 1))

A5 moins services marchands

Code 
`CNA-2014-FBCF-BRANCHE` |>
  filter(CNA_ACTIVITE %in% c("A5-AZ", "A5-BE", "A5-FZ", "A5-OQ"),
         UNIT_MEASURE == "EUROS_COURANTS") |>
  year_to_date() |>
  
  select(date, CNA_ACTIVITE, CNA_ACTIVITE, OBS_VALUE) |>
  left_join(gdp, by = "date") |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = CNA_ACTIVITE)) +
  theme_minimal() + xlab("") + ylab("") +
  theme(legend.title = element_blank(),
        legend.position = c(0.4, 0.5)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 100, .5),
                     labels = scales::percent_format(accuracy = .1))

GU, BE, JZ

Code 
`CNA-2014-FBCF-BRANCHE` |>
  filter(CNA_ACTIVITE %in% c("A5-GU", "A10-BE", "A17-JZ"),
         UNIT_MEASURE == "EUROS_COURANTS") |>
  year_to_date() |>
  
  select(date, CNA_ACTIVITE, CNA_ACTIVITE, OBS_VALUE) |>
  left_join(gdp, by = "date") |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = CNA_ACTIVITE)) +
  theme_minimal() + xlab("") + ylab("") +
  theme(legend.title = element_blank(),
        legend.position = c(0.4, 0.5)) +
  scale_x_date(breaks = seq(1950, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(0, 100, 1),
                     labels = scales::percent_format(accuracy = 1))