Code
t_6401 |>
group_by(year) |>
summarise(Nobs = n()) |>
print_table_conditional()Données - INSEE
t_6401 |>
group_by(year) |>
summarise(Nobs = n()) |>
print_table_conditional()t_6401 |>
filter(year == "2020") |>
select(-year) |>
mutate(share = round(100*value/ value[sector == "TOTAL"], 1)) |>
mutate(value = round(value) |> paste0(" Mds€")) |>
arrange(-share) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}t_6401 |>
rename(fixed_assets = value) |>
left_join(t_6207, by = c("sector", "Sector", "year")) |>
rename(revenue = value) |>
mutate(return = revenue/fixed_assets) |>
filter(year == "2019") |>
select(sector, Sector, fixed_assets, revenue, return) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}