Code
d <- arrow::read_parquet(here::here("data", "desf", "dgfip_stat29_budget_2024_.parquet"))
parquet_path <- here::here("data", "desf", "dgfip_stat29_budget_2024_.parquet")d <- arrow::read_parquet(here::here("data", "desf", "dgfip_stat29_budget_2024_.parquet"))
parquet_path <- here::here("data", "desf", "dgfip_stat29_budget_2024_.parquet")DGFiP Statistiques n°29, publiée par la DGFiP.
sort(unique(d$Tableau))[1] "Tableau 1" "Tableau 2" "Tableau 3"
premier <- dplyr::first(sort(unique(d$Tableau)))
prem_col <- d |> dplyr::filter(Tableau == premier) |> dplyr::distinct(Colonne) |> dplyr::slice(1) |> dplyr::pull(Colonne)
d |>
dplyr::filter(Tableau == premier, Colonne == prem_col, !is.na(Valeur)) |>
dplyr::mutate(Libelle = forcats::fct_reorder(Libelle, Valeur)) |>
ggplot2::ggplot(ggplot2::aes(Valeur, Libelle)) +
ggplot2::geom_col(fill = "#3b6f8a") +
ggplot2::labs(title = premier, subtitle = prem_col, x = NULL, y = NULL) +
ggplot2::theme_minimal(base_size = 12)
d |>
reactable::reactable(
searchable = TRUE, filterable = TRUE, pagination = TRUE,
defaultPageSize = 15, compact = TRUE, resizable = TRUE, highlight = TRUE, wrap = TRUE,
defaultColDef = reactable::colDef(
align = "left", headerStyle = list(fontWeight = "bold"),
style = list(whiteSpace = "normal", wordBreak = "break-word")))tibble::tibble(
` ` = c("Jeu de données", "Producteur", "Licence", "Fichier", "Mise à jour"),
` ` = c(
"DGFiP Statistiques n°29",
"Direction générale des Finances publiques (DGFiP) — Département des études et statistiques fiscales (DESF)",
"Licence Ouverte / Open Licence 2.0 (Etalab)",
sprintf("`data/desf/%s` (%s ko)", basename(parquet_path), round(file.size(parquet_path) / 1024)),
format(as.Date(file.mtime(parquet_path)), "%d %B %Y")
)
) |>
gt::gt() |> gt::fmt_markdown(columns = ` `) |>
gt::tab_options(table.width = "100%", column_labels.hidden = TRUE)| Jeu de données | DGFiP Statistiques n°29 |
| Producteur | Direction générale des Finances publiques (DGFiP) — Département des études et statistiques fiscales (DESF) |
| Licence | Licence Ouverte / Open Licence 2.0 (Etalab) |
| Fichier | data/desf/dgfip_stat29_budget_2024_.parquet (7 ko) |
| Mise à jour | 23 septembre 2026 |