1.108 - Emploi intérieur total par secteur institutionnel en nombre de personnes - T_1108

Données - INSEE

Structure

Emploi intérieur total par secteur (personnes)

Code
`T_1108` |>
  filter(sheet == "T_1108 en niveau", code %in% c("S11", "S12", "S13", "S14", "S15")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Emploi (milliers de personnes)") +
  geom_line(aes(x = year, y = value, color = label)) +
  scale_x_continuous(breaks = seq(1980, 2030, 10)) +
  scale_color_manual(values = viridis(5)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 2))

Part de chaque secteur dans l’emploi total

Code
`T_1108` |>
  filter(sheet == "T_1108 en niveau", code %in% c("S11", "S12", "S13", "S14", "S15")) |>
  group_by(year) |>
  mutate(part = value / sum(value)) |>
  ungroup() |>
  arrange(desc(code)) |>
  mutate(label = factor(label, levels = unique(label))) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Part de l'emploi intérieur total") +
  geom_area(aes(x = year, y = part, fill = label)) +
  scale_x_continuous(breaks = seq(1980, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  scale_fill_manual(values = viridis(5)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(fill = guide_legend(nrow = 2))

Emploi dans les administrations publiques

Administration centrale (État et organismes divers), administrations locales, administrations de sécurité sociale.

Code
`T_1108` |>
  filter(sheet == "T_1108 en niveau", code %in% c("S1311", "S1313", "S1314")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Emploi (milliers de personnes)") +
  geom_line(aes(x = year, y = value, color = label)) +
  scale_x_continuous(breaks = seq(1980, 2030, 10)) +
  theme(legend.title = element_blank(), legend.position = "bottom") +
  guides(color = guide_legend(nrow = 2))

Croissance annuelle de l’emploi

Code
`T_1108` |>
  filter(sheet == "T_1108 en évolution", code %in% c("S1", "S11", "S13")) |>
  ggplot() + theme_minimal() + xlab("") + ylab("Évolution annuelle de l'emploi (%)") +
  geom_hline(yintercept = 0, color = "grey60") +
  geom_line(aes(x = year, y = value / 100, color = label)) +
  scale_x_continuous(breaks = seq(1980, 2030, 10)) +
  scale_y_continuous(labels = percent_format(accuracy = 1)) +
  theme(legend.title = element_blank(), legend.position = "bottom")

Table (2025)

Code
`T_1108` |>
  filter(sheet == "T_1108 en niveau", year == last_y) |>
  transmute(Ligne = line, Secteur = label, Code = code,
            `Milliers` = round(value)) |>
  print_table_conditional()
Ligne Secteur Code Milliers
1 Sociétés non financières S11 17663
2 Sociétés financières S12 851
3 Administrations publiques S13 6429
9 Ménages S14 4472
10 Institutions sans but lucratif au services des ménages S15 1224
11 Économie totale - secteurs résidents S1 30638