Insee Focus - toutes les publications

Données - INSEE

source(here::here("_rinit.R"))
invisible(Sys.setlocale("LC_TIME", "fr_FR.UTF-8"))
# cd ~/iCloud/website/data/insee; Rscript insee_focus.R
# cd ~/iCloud/website/data/insee; /usr/local/bin/R -e 'quarto::quarto_render("insee_focus.qmd")'

knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE,
                      fig.width = 9, fig.height = 4.5, dpi = 150)

if_path <- here::here("data", "insee", "insee_focus.parquet")
ip <- arrow::read_parquet(if_path) |>
  dplyr::arrange(dplyr::desc(date))

n_ip <- nrow(ip)
periode <- range(ip$date, na.rm = TRUE)

Last data update: 29 sept. 2026, 17:51

Last compile: 29 sept. 2026, 17:52

386 numéros d’Insee Focus (collection « Insee Focus » du site insee.fr), du 17 février 2014 au 29 septembre 2026. Le tableau ci-dessous permet de chercher dans les titres, les résumés et les thèmes (champ de recherche en haut à gauche), de filtrer par colonne et de trier. Cliquer sur la flèche à gauche d’une ligne affiche le résumé (chapô) ; le numéro ouvre la publication sur insee.fr.

Recherche

ip |>
  dplyr::transmute(
    Date = date,
    `N°` = sprintf('<a href="%s" target="_blank">%s</a>', url, numero),
    Titre = titre,
    Thème = theme,
    Résumé = chapo
  ) |>
  reactable::reactable(
    searchable = TRUE, filterable = TRUE, defaultPageSize = 25,
    showPageSizeOptions = TRUE, pageSizeOptions = c(10, 25, 50, 100),
    highlight = TRUE, striped = TRUE, compact = TRUE, wrap = TRUE,
    language = reactable::reactableLang(
      searchPlaceholder = "Rechercher un titre, un mot du résumé, un thème…",
      noData = "Aucun Insee Focus trouvé",
      pageInfo = "{rowStart}–{rowEnd} sur {rows} numéros",
      pagePrevious = "Précédent", pageNext = "Suivant"
    ),
    columns = list(
      Date = reactable::colDef(format = reactable::colFormat(date = TRUE, locales = "fr-FR"),
                               minWidth = 90, filterable = FALSE),
      `N°` = reactable::colDef(html = TRUE, minWidth = 60),
      Titre = reactable::colDef(minWidth = 320),
      Thème = reactable::colDef(minWidth = 160),
      Résumé = reactable::colDef(show = FALSE)
    ),
    details = function(i) {
      htmltools::div(style = "padding: 8px 16px; color: #444;",
                     ip$chapo[i])
    },
    searchMethod = reactable::JS("function(rows, columnIds, searchValue) {
      var q = searchValue.toLowerCase().normalize('NFD').replace(/[\\u0300-\\u036f]/g, '');
      var words = q.split(/\\s+/).filter(Boolean);
      return rows.filter(function(row) {
        var s = Object.values(row.values).join(' ').toLowerCase()
                  .normalize('NFD').replace(/[\\u0300-\\u036f]/g, '');
        return words.every(function(w) { return s.indexOf(w) >= 0; });
      });
    }")
  )

NoteComment la recherche fonctionne

La recherche est insensible à la casse et aux accents, et tous les mots saisis doivent être présents (dans le titre, le thème ou le numéro). Le résumé est inclus dans la recherche même s’il n’est affiché que dans le détail de la ligne.

Nombre de publications par an

ip |>
  dplyr::count(annee = lubridate::year(date)) |>
  ggplot(aes(annee, n)) +
  geom_col(fill = "#2c6fbb") +
  scale_x_continuous(breaks = scales::pretty_breaks(12)) +
  labs(x = NULL, y = "Nombre d'Insee Focus",
       title = "Insee Focus publiés par an") +
  theme_minimal(base_size = 12) +
  theme(plot.title = element_text(face = "bold"),
        panel.grid.minor = element_blank())

Par thème

ip |>
  dplyr::count(Thème = theme, sort = TRUE) |>
  dplyr::left_join(
    ip |> dplyr::group_by(Thème = theme) |>
      dplyr::summarise(`Dernier` = max(date), .groups = "drop"),
    by = "Thème") |>
  dplyr::rename(`Nombre` = n) |>
  reactable::reactable(defaultPageSize = 15, compact = TRUE, striped = TRUE,
                       columns = list(Dernier = reactable::colDef(
                         format = reactable::colFormat(date = TRUE, locales = "fr-FR"))))