6.461-462 - Consommation de capital fixe par branche (38 postes)

Données - INSEE

Auteur

François Geerolf

Info

source dataset Title .html .rData
insee T_6461 NA NA NA

Info

Dernière

Code 
T_6461 |>
  group_by(year) |>
  summarise(Nobs = n()) |>
  arrange(desc(year)) |>
  head(2) |>
  print_table_conditional()
year Nobs
2023 47
2022 47

Last Year

Ordre Ligne

Code 
T_6461 |>
  filter(year == max(year)) |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  select(-date) |>
  mutate(value_gdp = round(100*value/gdp, 1)) |>
  select(-gdp) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Ordre décroissant

Code 
T_6461 |>
  filter(year == max(year)) |>
  year_to_date2() |>
  left_join(gdp, by = "date") |>
  select(-date) |>
  mutate(value_gdp = round(100*value/gdp, 1)) |>
  select(-gdp) |>
  arrange(-value) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

gdp

Code 
gdp |>
  mutate(gdp = round(gdp) |> paste0(" Mds€")) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Table

2023

Code 
T_6461 |>
  filter(year == "2023") |>
  select(-year) |>
  mutate(value = round(value) |> paste0(" Mds€")) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

2018

Code 
T_6461 |>
  filter(year == "2018") |>
  select(-year) |>
  mutate(value = round(value) |> paste0(" Mds€")) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Activités immobilières

Code 
T_6461 |>
  filter(variable %in% c("A10_LZ", "A5_BE")) |>
  year_to_date2() |>
  arrange(desc(date)) |>
  left_join(gdp, by = "date") |>
  ggplot() + geom_line(aes(x = date, y = value / gdp, color = Variable)) +
  theme_minimal() + xlab("") + ylab("Dépréciation du capital (% du PIB)") +
  scale_x_date(breaks = seq(1940, 2100, 5) |> paste0("-01-01") |> as.Date(),
               labels = date_format("%Y")) +
  scale_y_continuous(breaks = 0.01*seq(-20, 500, 0.1),
                labels = percent_format(accuracy = .1)) +
  
  theme(legend.position = c(0.4, 0.85),
        legend.title = element_blank())