Formation brute de capital fixe (FBCF) par secteur institutionnel - CNA-2014-FBCF-SI

Données - INSEE

Auteur

François Geerolf

Last observation: 2022 (N = 15)

First observation: 1949 (N = 93)

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

Last compile: 04 sept. 2026, 01:48

Structure

Decomposition

Table

Code 
`CNA-2014-FBCF-SI` |>
  filter(TIME_PERIOD == "2021",
         UNIT_MEASURE == "EUROS_COURANTS",
         `SECT-INST` == "S11ES14AA") %>%
  select_if(~ n_distinct(.) > 1) |>
  
  transmute(CNA_PRODUIT, CNA_PRODUIT, OBS_VALUE) |>
  arrange(-OBS_VALUE) |>
  print_table_conditional()

Change 2010-2021

Code 
`CNA-2014-FBCF-SI` |>
  filter(TIME_PERIOD %in% c("2021", "2010"),
         UNIT_MEASURE == "EUROS_COURANTS",
         `SECT-INST` == "S11ES14AA") |>
  
  transmute(CNA_PRODUIT, CNA_PRODUIT, TIME_PERIOD, OBS_VALUE) |>
  arrange(-OBS_VALUE) |>
  spread(TIME_PERIOD, OBS_VALUE) |>
  mutate(Change = `2021` - `2010`) |>
  arrange(-Change) |>
  print_table_conditional()

GU, BE, JZ

Code 
`CNA-2014-FBCF-SI` |>
  filter(CNA_PRODUIT %in% c("A5-GU", "A10-BE", "A17-JZ"),
         UNIT_MEASURE == "EUROS_COURANTS",
         `SECT-INST` == "S11ES14AA") |>
  year_to_date() |>
  
  select(date, CNA_PRODUIT, CNA_PRODUIT, OBS_VALUE) |>
  left_join(gdp, by = "date") |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = CNA_PRODUIT)) +
  theme_minimal() + xlab("") + ylab("") +
  theme(legend.title = element_blank(),
        legend.position = c(0.3, 0.91)) +
  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, 0.5),
                     labels = scales::percent_format(accuracy = 0.1))

NNTOTAL, BE, JZ

Code 
`CNA-2014-FBCF-SI` |>
  filter(CNA_PRODUIT %in% c("NNTOTAL", "A10-BE", "A17-JZ"),
         UNIT_MEASURE == "EUROS_COURANTS",
         `SECT-INST` == "S11ES14AA") |>
  year_to_date() |>
  
  select(date, CNA_PRODUIT, CNA_PRODUIT, OBS_VALUE) |>
  left_join(gdp, by = "date") |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = CNA_PRODUIT)) +
  theme_minimal() + xlab("") + ylab("") +
  theme(legend.title = element_blank(),
        legend.position = c(0.3, 0.91)) +
  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, 0.5),
                     labels = scales::percent_format(accuracy = 0.1))

NNTOTAL, BE, JZ, FZ

Code 
`CNA-2014-FBCF-SI` |>
  filter(CNA_PRODUIT %in% c("NNTOTAL", "A10-BE", "A17-JZ", "A17-FZ"),
         UNIT_MEASURE == "EUROS_COURANTS",
         `SECT-INST` == "S11ES14AA") |>
  year_to_date() |>
  
  select(date, CNA_PRODUIT, CNA_PRODUIT, OBS_VALUE) |>
  left_join(gdp, by = "date") |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = CNA_PRODUIT)) +
  theme_minimal() + xlab("") + ylab("") +
  theme(legend.title = element_blank(),
        legend.position = c(0.3, 0.91)) +
  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))

MN, C4, C3, MB

Code 
`CNA-2014-FBCF-SI` |>
  filter(CNA_PRODUIT %in% c("A17-MN", "A17-C4", "A17-C3", "A38-MB"),
         UNIT_MEASURE == "EUROS_COURANTS",
         `SECT-INST` == "S11ES14AA") |>
  year_to_date() |>
  
  select(date, CNA_PRODUIT, CNA_PRODUIT, OBS_VALUE) |>
  left_join(gdp, by = "date") |>
  ggplot() + geom_line(aes(x = date, y = OBS_VALUE/gdp, color = CNA_PRODUIT)) +
  theme_minimal() + xlab("") + ylab("") +
  theme(legend.title = element_blank(),
        legend.position = c(0.5, 0.85)) +
  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, 0.2),
                     labels = scales::percent_format(accuracy = .1))