Auto-entrepreneurs, par département et secteur - auto-entrepreneurs-par-departement-secteur

Données - ACOSS

Last data update: 19 Sep 2026, 18:54

Last compile: 19 Sep 2026, 18:58

Structure

Auto-entrepreneurs économiquement actifs (France entière)

`auto-entrepreneurs-dept-secteur` |>
  group_by(dernier_jour_du_trimestre) |>
  summarise(economiquement_actifs = sum(economiquement_actifs, na.rm = TRUE), .groups = "drop") |>
  ggplot() + geom_line(aes(x = dernier_jour_du_trimestre, y = economiquement_actifs)) +
  theme_minimal() + xlab("") + ylab("Auto-entrepreneurs économiquement actifs") +
  scale_x_date(date_breaks = "1 year", labels = date_format("%Y")) +
  scale_y_continuous(labels = label_number(big.mark = " ")) +
  theme(axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1))

Secteurs les plus importants (dernier trimestre)

`auto-entrepreneurs-dept-secteur` |>
  filter(dernier_jour_du_trimestre == max(dernier_jour_du_trimestre)) |>
  group_by(secteur_d_activite) |>
  summarise(economiquement_actifs = sum(economiquement_actifs, na.rm = TRUE), .groups = "drop") |>
  slice_max(economiquement_actifs, n = 15) |>
  mutate(secteur_d_activite = fct_reorder(secteur_d_activite, economiquement_actifs)) |>
  ggplot() + geom_col(aes(x = secteur_d_activite, y = economiquement_actifs)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Auto-entrepreneurs économiquement actifs") +
  scale_y_continuous(labels = label_number(big.mark = " "))

Départements les plus importants (dernier trimestre)

`auto-entrepreneurs-dept-secteur` |>
  filter(dernier_jour_du_trimestre == max(dernier_jour_du_trimestre)) |>
  group_by(departement) |>
  summarise(economiquement_actifs = sum(economiquement_actifs, na.rm = TRUE), .groups = "drop") |>
  slice_max(economiquement_actifs, n = 20) |>
  mutate(departement = fct_reorder(departement, economiquement_actifs)) |>
  ggplot() + geom_col(aes(x = departement, y = economiquement_actifs)) +
  coord_flip() +
  theme_minimal() + xlab("") + ylab("Auto-entrepreneurs économiquement actifs") +
  scale_y_continuous(labels = label_number(big.mark = " "))

Carte de France par département (dernier trimestre)

`auto-entrepreneurs-dept-secteur` |>
  filter(dernier_jour_du_trimestre == max(dernier_jour_du_trimestre)) |>
  group_by(code_departement) |>
  summarise(economiquement_actifs = sum(economiquement_actifs, na.rm = TRUE), .groups = "drop") |>
  rename(CODE_DEPT = code_departement) |>
  right_join(departements_details, by = "CODE_DEPT") |>
  right_join(departements, by = "CODE_DEPT") |>
  ggplot() + aes(long, lat, group = group, fill = economiquement_actifs) +
  coord_equal() + theme_void() + geom_polygon() +
  geom_text(aes(X_CENTROID, Y_CENTROID, label = NOM_DEPT), size = 1.8, check_overlap = TRUE) +
  scale_fill_viridis_c(na.value = "grey90",
                       labels = label_number(big.mark = " "),
                       name = "Auto-entrepreneurs\néconomiquement actifs") +
  labs(x = "", y = "") +
  theme(axis.text.x = element_blank(),
        axis.text.y = element_blank())