Créations d’entreprises - CREATIONS-ENTREPRISES

Data - INSEE

Author

François Geerolf

TITLE_FR

Code 
`CREATIONS-ENTREPRISES` %>%
  group_by(IDBANK, TITLE_FR) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

CORRECTION

Code 
`CREATIONS-ENTREPRISES` %>%
  group_by(CORRECTION) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
CORRECTION Nobs
BRUT 154446
CVS 41708
RECALAGE 90

INDICATEUR

Code 
`CREATIONS-ENTREPRISES` %>%
  left_join(INDICATEUR,  by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
INDICATEUR Indicateur Nobs
TYPE-ENT_TOTAL Tous types d'entreprises 71174
TYPE-ENT_AE Micro-entrepreneurs 35704
TYPE-ENT_HAE Hors micro-entrepreneurs 30839
TYPE-ENT_PM Sociétés 28420
TYPE-ENT_PP Entreprises individuelles y compris micro-entrepreneurs 28420
TYPE-ENT_PP-HAE Entreprises individuelles hors micro-entrepreneurs 1627
PART-FEM-PP Part des femmes parmi les créateurs d'entreprise individuelle 30
PART-PM Part des sociétés parmi les entreprises créées 30

FREQ

Code 
`CREATIONS-ENTREPRISES` %>%
  left_join(FREQ,  by = "FREQ") %>%
  group_by(FREQ, Freq) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
FREQ Freq Nobs
M Monthly 111300
T NA 84854
A Annual 90

ACTIVITE_CREAT_ENT

Code 
`CREATIONS-ENTREPRISES` %>%
  left_join(ACTIVITE_CREAT_ENT, by = "ACTIVITE_CREAT_ENT") %>%
  group_by(ACTIVITE_CREAT_ENT, Activite_creat_ent) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
ACTIVITE_CREAT_ENT Activite_creat_ent Nobs
ENS Ensemble 110152
BE A10 BE - Industrie 9337
FZ A10 FZ - Construction 9337
GI A10 GI - Commerce, transport, hébergement, restauration 9337
C A21 C - Industrie manufacturière 5304
G A21 G - Commerce et réparation automobile 5304
H A21 H - Transports 5304
I A21 I - Hébergement, restauration 5304
JZ A10 JZ - Information et communication 5304
KZ A10 KZ - Activités financières et d'assurance 5304
LZ A10 LZ - Activités immobilières 5304
MN A10 MN - Activités spécialisées, scientifiques et techniques et activités de services administratifs et de soutien 5304
OQ A10 OQ - Administration publique, enseignement, santé humaine et action sociale 5304
RU A10 RU - Autres activités de services 5304
JKLMNOQ A10 JZ+KZ+LZ+MN+OQ - Toutes activités de services 5041

REF_AREA

Code 
`CREATIONS-ENTREPRISES` %>%
  group_by(REF_AREA) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()

TIME_PERIOD

Code 
`CREATIONS-ENTREPRISES` %>%
  group_by(TIME_PERIOD) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(TIME_PERIOD)) %>%
  print_table_conditional()

Créations hors auto-entrepreneurs

2017, Juillet 2021

Code 
`CREATIONS-ENTREPRISES` %>%
  filter(REF_AREA == "FE",
         NATURE == "VALEUR_ABSOLUE",
         # Hors auto-entrepreneurs
         INDICATEUR == "TYPE-ENT_HAE",
         TIME_PERIOD %in% c("2017-01", "2021-06"),
         CORRECTION == "CVS",
         FREQ == "M") %>%
  left_join(ACTIVITE_CREAT_ENT, by = "ACTIVITE_CREAT_ENT") %>%
  select(TIME_PERIOD, ACTIVITE_CREAT_ENT, Activite_creat_ent, OBS_VALUE) %>%
  spread(TIME_PERIOD, OBS_VALUE) %>%
  mutate(Croissance = round(100*(`2021-06`/`2017-01`-1), 1)) %>%
  arrange(Croissance) %>%
  print_table_conditional()
ACTIVITE_CREAT_ENT Activite_creat_ent 2017-01 2021-06 Croissance
OQ A10 OQ - Administration publique, enseignement, santé humaine et action sociale 2807 2518 -10.3
G A21 G - Commerce et réparation automobile 4206 5014 19.2
GI A10 GI - Commerce, transport, hébergement, restauration 7137 8708 22.0
I A21 I - Hébergement, restauration 1721 2137 24.2
H A21 H - Transports 1210 1558 28.8
ENS Ensemble 22280 30830 38.4
JZ A10 JZ - Information et communication 1029 1439 39.8
FZ A10 FZ - Construction 2659 3830 44.0
BE A10 BE - Industrie 909 1324 45.7
MN A10 MN - Activités spécialisées, scientifiques et techniques et activités de services administratifs et de soutien 4367 6511 49.1
C A21 C - Industrie manufacturière 702 1050 49.6
KZ A10 KZ - Activités financières et d'assurance 1159 2046 76.5
LZ A10 LZ - Activités immobilières 1212 2293 89.2
RU A10 RU - Autres activités de services 1003 2162 115.6

ENS, BE, AZ

Niveaux

Code 
`CREATIONS-ENTREPRISES` %>%
  filter(REF_AREA == "FE",
         NATURE == "VALEUR_ABSOLUE",
         INDICATEUR == "TYPE-ENT_HAE",
         ACTIVITE_CREAT_ENT %in% c("ENS", "BE", "AZ"),
         CORRECTION == "CVS",
         FREQ == "M") %>%
  month_to_date %>%
  arrange(desc(date)) %>%
  left_join(ACTIVITE_CREAT_ENT, by = "ACTIVITE_CREAT_ENT") %>%
  ggplot() + ylab("Créations d'entreprises") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = Activite_creat_ent)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = seq(1920, 2025, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.2, 0.9),
        legend.title = element_blank()) +
  scale_y_log10(breaks = c(300, 500, 800, 10, 20, 30, 50, 1000, 2000, 3000, 5000, 10000, 20000, 30000, 50000, 100000),
                     labels = dollar_format(accuracy = 1, prefix = ""))

100

Code 
`CREATIONS-ENTREPRISES` %>%
  filter(REF_AREA == "FE",
         NATURE == "VALEUR_ABSOLUE",
         INDICATEUR == "TYPE-ENT_HAE",
         ACTIVITE_CREAT_ENT %in% c("ENS", "BE", "AZ"),
         CORRECTION == "CVS",
         FREQ == "M") %>%
  month_to_date %>%
  filter(date >= as.Date("2017-01-01")) %>%
  left_join(ACTIVITE_CREAT_ENT, by = "ACTIVITE_CREAT_ENT") %>%
  group_by(ACTIVITE_CREAT_ENT) %>%
  mutate(OBS_VALUE = 100*OBS_VALUE/OBS_VALUE[date == as.Date("2017-01-01")]) %>%
  ggplot() + ylab("Créations d'entreprises (100 = 2017)") + xlab("") + theme_minimal() +
  geom_line(aes(x = date, y = OBS_VALUE, color = Activite_creat_ent)) +
  scale_color_manual(values = viridis(4)[1:3]) +
  scale_x_date(breaks = seq(1920, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.25, 0.2),
        legend.title = element_blank()) +
  scale_y_log10(breaks = seq(10, 200, 10),
                     labels = dollar_format(accuracy = 1, prefix = ""))