Le patrimoine économique national en 2020 - Des évolutions contrastées entre le secteur public et les secteurs privés - ip1874

Data - INSEE

year

ip1874 %>%
  group_by(year) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

year	Nobs
2001	5
2002	5
2003	5
2004	5
2005	5
2006	5
2007	5
2008	5
2009	5
2010	5
2011	5
2012	5
2013	5
2014	5
2015	5
2016	5
2017	5
2018	5
2019	5
2020	5

variable

ip1874 %>%
  group_by(variable, sheet) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()

variable	sheet	Nobs
Fonds propres des sociétés financières / Produit intérieur net	fig1	20
Fonds propres des sociétés non financières / Valeur ajoutée nette	fig1	20
Patrimoine national net / Produit intérieur net	fig1	20
Patrimoine net des administrations publiques / Produit intérieur net	fig1	20
Patrimoine net des ménages / Revenu disponible net	fig1	20

2020

ip1874 %>%
  filter(year == "2020") %>%
  select_if(~ n_distinct(.) > 1) %>%
  print_table_conditional()

variable	value
Patrimoine national net / Produit intérieur net	9.6
Patrimoine net des ménages / Revenu disponible net	9.3
Fonds propres des sociétés non financières / Valeur ajoutée nette	12.9
Fonds propres des sociétés financières / Produit intérieur net	1.9
Patrimoine net des administrations publiques / Produit intérieur net	0.1

Niveau de vie

ip1874 %>%
  filter(value > 5) %>%
  year_to_date2 %>%
  ggplot() + ylab("") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = value, color = variable)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = seq(1920, 2025, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.35, 0.85),
        legend.title = element_blank()) +
  scale_y_continuous(breaks = seq(0, 300, 1),
                     labels = dollar_format(accuracy = 1, prefix = ""))