Code
%>%
fm_t70_2019.fr group_by(year) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
Data - INED
%>%
fm_t70_2019.fr group_by(year) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
%>%
fm_t70_2019.fr group_by(variable) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
variable | Nobs |
---|---|
Infantile = Enfants décédés à moins d'un an = (1) + (2) | 119 |
Néonatale = Enfants décédés à moins de 28 jours (1) | 70 |
Néonatale précoce = Enfants décédés à moins de 7 jours | 70 |
Post-néonatale = Enfants décédés entre 28 jours et moins d'un an (2) | 70 |
%>%
fm_t70_2019.fr %>%
year_to_date2 filter(date >= as.Date("1950-01-01")) %>%
+ geom_line(aes(x = date, y = value, color = variable)) +
ggplot
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = seq(1920, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 100, 5),
labels = dollar_format(a = 1, pre = "", su = "‰"))
%>%
fm_t70_2019.fr %>%
year_to_date2 filter(date >= as.Date("1980-01-01")) %>%
+ geom_line(aes(x = date, y = value, color = variable)) +
ggplot
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = seq(1920, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%y")) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 100, 1),
labels = dollar_format(a = 1, pre = "", su = "‰"))
%>%
fm_t70_2019.fr %>%
year_to_date2 filter(date >= as.Date("1990-01-01")) %>%
+ geom_line(aes(x = date, y = value, color = variable)) +
ggplot #
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = seq(1990, 2025, 5) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 100, 1),
labels = dollar_format(a = 1, pre = "", su = "‰"))
%>%
fm_t70_2019.fr %>%
year_to_date2 filter(date >= as.Date("2000-01-01")) %>%
+ geom_line(aes(x = date, y = value, color = variable)) +
ggplot
xlab("") + ylab("") + theme_minimal() +
scale_x_date(breaks = seq(1920, 2025, 1) %>% paste0("-01-01") %>% as.Date,
labels = date_format("%Y")) +
theme(legend.position = c(0.6, 0.9),
legend.title = element_blank()) +
scale_y_continuous(breaks = seq(0, 100, 1),
labels = dollar_format(a = 1, pre = "", su = "‰"))