Intitulés courts de la NAF rév. 2 - int_courts_naf_rev_2

Données - INSEE

Nomenclature d’activités française (NAF rév. 2, 2008) avec les intitulés complets et deux versions abrégées (65 et 40 caractères) pour les affichages contraints. La nomenclature compte 21 sections, 88 divisions, 272 groupes, 615 classes et 732 sous-classes.

Nombre de postes par niveau

Code
naf |>
  count(niveau) |>
  mutate(niveau = factor(niveau, levels = c("Section", "Division", "Groupe", "Classe", "Sous-classe"))) |>
  ggplot(aes(x = niveau, y = n)) +
  geom_col(fill = bleu) +
  geom_text(aes(label = n), vjust = -0.4, fontface = "bold") +
  scale_y_continuous(expand = expansion(mult = c(0, 0.1))) +
  theme_ref() +
  labs(x = NULL, y = "Nombre de postes", title = "La NAF rév. 2 en cinq niveaux emboîtés")

Sous-classes par section

Code
naf |>
  filter(niveau == "Sous-classe") |>
  count(section) |>
  ggplot(aes(x = n, y = fct_reorder(section, n))) +
  geom_col(fill = rose) +
  geom_text(aes(label = n), hjust = -0.2, size = 3.2) +
  scale_x_continuous(expand = expansion(mult = c(0, 0.1))) +
  theme_ref() +
  labs(x = "Nombre de sous-classes", y = "Section", title = "Nombre de sous-classes de la NAF par section")

Longueur des intitulés

Code
naf |>
  filter(!is.na(libelle)) |>
  transmute(`Complet` = nchar(libelle), `65 caractères` = nchar(libelle_65), `40 caractères` = nchar(libelle_40)) |>
  pivot_longer(everything()) |>
  mutate(name = factor(name, levels = c("Complet", "65 caractères", "40 caractères"))) |>
  ggplot(aes(x = value, fill = name)) +
  geom_histogram(binwidth = 5, show.legend = FALSE) +
  facet_wrap(~ name, ncol = 1) +
  scale_fill_manual(values = c(bleu, vert, rose)) +
  theme_ref() +
  labs(x = "Nombre de caractères", y = "Postes", title = "Longueur des intitulés selon la version")

Table

Code
naf |> select(code, niveau, section, libelle, libelle_65, libelle_40) |>
  print_table_conditional()