Niveaux de vie depuis 1970 - RPM2021_D2

Data - INSEE

Auteur

François Geerolf 

[1] "Dixième"                                        
[2] "Taxes / (Revenu avant transferts)"              
[3] "Transferts / (Revenu avant transferts)"         
[4] "(Transferts -Taxes) / (Revenu avant transferts)"
[5] "(Taxes-Transferts) / (Revenu avant transferts)"

Taux d’imposition

Plot1

Code 
plot1 <- RPM2021_D2_manuel |>
  select(1, 2) |>
  gather(variable, value, -`Dixième`) |>
  ggplot() + geom_line(aes(x = `Dixième`, y = value, color = variable, group = variable)) +
  theme_minimal() + xlab("") + ylab("% du revenu avant transferts") +
  scale_color_manual(name = "Variable",
                     values = c("(P.O.-Transferts) / (Revenu avant transferts)" = '#F8766D',
                                "P.O. / (Revenu avant transferts)" = '#00BA38',
                                         "Transferts / (Revenu avant transferts)" = '#619CFF'),
                     drop = FALSE) +
  scale_y_continuous(breaks = 0.01*seq(-200, 2000, 10),
                     labels = percent_format(accuracy = 1),
                     limits = c(0.2, 0.9)) +
  theme(legend.position = c(0.6, 0.9),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

plot1

Plot2

Code 
plot2 <- RPM2021_D2_manuel |>
  select(1, 2, 3, 5) |>
  gather(variable, value, -`Dixième`) |>
  ggplot() + geom_line(aes(x = `Dixième`, y = value, color = variable, group = variable)) +
  theme_minimal() + xlab("") + ylab("") +
  scale_color_manual(name = "Variable",
                     values = c("(P.O.-Transferts) / (Revenu avant transferts)" = '#F8766D',
                                         "P.O. / (Revenu avant transferts)" = '#00BA38',
                                         "Transferts / (Revenu avant transferts)" = '#619CFF'),
                     drop = FALSE) +
  scale_y_continuous(breaks = 0.01*seq(-200, 2000, 20),
                     labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))
plot2

Plot3

Code 
plot3 <- RPM2021_D2_manuel |>
  select(1, 2, 5) |>
  gather(variable, value, -`Dixième`) |>
  mutate(variable = factor(variable, levels = c("P.O. / (Revenu avant transferts)",
                                                "(P.O.-Transferts) / (Revenu avant transferts)"))) |>
  mutate(`Dixième` = ifelse(`Dixième` == "D1-", "D1-\n10% les + pauvres", `Dixième`),
         `Dixième` = ifelse(`Dixième` == "D9+", "D9+\n10% les + riches", `Dixième`)) |>
  ggplot() + geom_line(aes(x = `Dixième`, y = value, color = variable, group = variable)) +
  theme_minimal() + xlab("") + ylab("% du revenu avant transferts") +
  scale_color_manual(name = "Variable",
                     values = c("(P.O.-Transferts) / (Revenu avant transferts)" = '#F8766D',
                                         "P.O. / (Revenu avant transferts)" = '#00BA38',
                                         "Transferts / (Revenu avant transferts)" = '#619CFF'),
                     drop = FALSE) +
  scale_y_continuous(breaks = 0.01*seq(-200, 2000, 20),
                     labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.5, 0.8),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
 geom_label(data = . %>% filter(`Dixième` %in% c("D1-\n10% les + pauvres", "D9+\n10% les + riches")),
            aes(x = `Dixième`, y = value, label = percent(value), color = variable)) +
  geom_hline(yintercept = 0, linetype = "dashed")
plot3

Bind

Code 
ggpubr::ggarrange(plot1, plot2)

Comparatif

Code 
RPM2021_D2_manuel |>
  select(1, 2, 5) |>
  gather(variable, value, -`Dixième`) |>
  ggplot() + geom_line(aes(x = `Dixième`, y = value, color = variable, group = variable), size = 1) +
  theme_minimal() + xlab("") + ylab("") +
  scale_color_manual(name = "Variable",
                     values = c("(P.O.-Transferts) / (Revenu avant transferts)" = '#F8766D',
                                         "P.O. / (Revenu avant transferts)" = '#619CFF'),
                     drop = FALSE) +
  scale_y_continuous(breaks = 0.01*seq(-200, 2000, 20),
                     labels = percent_format(accuracy = 1)) +
  theme(legend.position = c(0.7, 0.2),
        legend.title = element_blank(),
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  geom_label(data = . %>%
               filter(`Dixième` %in% c("D1-", "D9+")),
             aes(x = `Dixième`, y = value, color = variable, label = percent(value, acc = 1))) +
  geom_hline(yintercept = 0, linetype = "dashed", size = 1)