Comptes des branches - CNT-2010-CB

Data - INSEE

Auteur

François Geerolf

TITLE_FR

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

INDICATEUR

Code 
`CNT-2010-CB` %>%
  left_join(INDICATEUR,  by = "INDICATEUR") %>%
  group_by(INDICATEUR, Indicateur) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
INDICATEUR Indicateur Nobs
CNT-COMPTE_EXPLOITATION_BRANCHES Compte d'exploitation des branches 58170
CNT-COMPTE_PRODUCTION_BRANCHES Compte de production des branches 39888
CNT-EMPLOI_INTERIEUR_BRANCHES Emploi intérieur par branche 39888
CNT-DUREE_VOLUME_TRAVAIL_BRANCHE Durée hebdomadaire et volume de travail par branche 26592

VALORISATION

Code 
`CNT-2010-CB` %>%
  left_join(VALORISATION,  by = "VALORISATION") %>%
  group_by(VALORISATION, Valorisation) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) print_table(.) else .}
VALORISATION Valorisation Nobs
SO Sans objet 124650
L Volumes aux prix de l'année précédente chaînés 19944
V Valeurs aux prix courants 19944

OPERATION

Code 
`CNT-2010-CB` %>%
  left_join(OPERATION,  by = "OPERATION") %>%
  group_by(OPERATION, Operation) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

UNIT_MEASURE

Code 
`CNT-2010-CB` %>%
  group_by(UNIT_MEASURE) %>%
  summarise(Nobs = n()) %>%
  {if (is_html_output()) print_table(.) else .}
UNIT_MEASURE Nobs
ETP 19944
EUROS 98058
HEURES 26592
INDIVIDUS 19944

CNA_PRODUIT

Code 
`CNT-2010-CB` %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  group_by(CNA_PRODUIT, Cna_produit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

Emploi Total 1995-

Industrie, Construction

Code 
`CNT-2010-CB` %>%
  filter(OPERATION == "EMPS",
         CNA_PRODUIT %in% c("A17-FZ", "DIM-CNT", ""),
         UNIT_MEASURE == "INDIVIDUS") %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  arrange(CNA_PRODUIT, date) %>%
  filter(date >= as.Date("2011-01-01")) %>%
  ggplot() + theme_minimal() + ylab("Nombre d'actifs occupés") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Cna_produit, linetype = Cna_produit)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  scale_x_date(breaks = seq(1920, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_log10(breaks = c(seq(0, 40, 0.1), seq(0, 1, 0.1), seq(0, 0.1, 0.01)),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

Services

Code 
`CNT-2010-CB` %>%
  filter(OPERATION == "EMPS",
         CNA_PRODUIT %in% c("DSM-CNT", "DSN-CNT ", ""),
         UNIT_MEASURE == "INDIVIDUS") %>%
  quarter_to_date %>%
  left_join(CNA_PRODUIT, by = "CNA_PRODUIT") %>%
  arrange(CNA_PRODUIT, date) %>%
  filter(date >= as.Date("2011-01-01")) %>%
  ggplot() + theme_minimal() + ylab("Nombre d'actifs occupés") + xlab("") +
  geom_line(aes(x = date, y = OBS_VALUE/10^3, color = Cna_produit, linetype = Cna_produit)) +
  scale_color_manual(values = viridis(5)[1:4]) +
  scale_x_date(breaks = seq(1920, 2025, 1) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%y")) +
  theme(legend.position = c(0.5, 0.2),
        legend.title = element_blank()) +
  scale_y_log10(breaks = c(seq(0, 40, 0.1), seq(0, 1, 0.1), seq(0, 0.1, 0.01)),
                labels = dollar_format(accuracy = 0.1, prefix = "", suffix = "M"))

Taux de marge par branches

Code 
`CNT-2010-CB` %>%
  filter(OPERATION %in% c("B1", "B2"),
         grepl("A17", CNA_PRODUIT)) %>%
  mutate(variable = paste0(OPERATION, "_", VALORISATION)) %>%
  quarterend_to_date() %>%
  arrange(CNA_PRODUIT, date, variable) %>%
  select(CNA_PRODUIT, date, variable, OBS_VALUE) %>%
  spread(variable, OBS_VALUE) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}