Coûts salariaux, Emploi, Chômage - STS

Données - BDF

Auteur

François Geerolf

Info

Structure

LAST_DOWNLOAD

LAST_DOWNLOAD
NA

Taux de chômage (CVS)

Code 
STS %>%
  
  
  filter(REF_AREA %in% c("FR", "DE", "IT", "ES", "GB"),
         STS_CONCEPT == "UNEH",
         ADJUSTMENT == "S",
         FREQ == "M") %>%
  arrange(date) %>%
  ggplot + geom_line(aes(x = date, y = value, color = Ref_area)) +
  xlab("") + ylab("") + theme_minimal() + add_5flags +
  scale_x_date(breaks = seq(1960, 2100, 5) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1, scale = 1)) +
  theme(legend.position = c(0.85, 0.75),
        legend.title = element_blank())

Depuis 2008

Code 
STS %>%
  
  
  filter(REF_AREA %in% c("FR", "DE", "IT", "ES", "GB"),
         STS_CONCEPT == "UNEH",
         ADJUSTMENT == "S",
         FREQ == "M") %>%
  filter(date >= as.Date("2008-01-01")) %>%
  arrange(date) %>%
  ggplot + geom_line(aes(x = date, y = value, color = Ref_area)) +
  xlab("") + ylab("") + theme_minimal() + add_5flags +
  scale_x_date(breaks = seq(1960, 2100, 2) %>% paste0("-01-01") %>% as.Date,
               labels = date_format("%Y")) +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1, scale = 1)) +
  theme(legend.position = c(0.85, 0.85),
        legend.title = element_blank())

Salaires négociés en France (variation annuelle)

Code 
STS %>%
  
  filter(variable == "STS.Q.FR.N.INWR.000000.2.ANR") %>%
  arrange(date) %>%
  ggplot(.) + geom_line(aes(x = date, y = value)) +
  theme_minimal() + xlab("") + ylab("Glissement annuel") +
  scale_x_date(breaks = "1 year",
               labels = date_format("%Y")) +
  scale_y_continuous(labels = scales::percent_format(accuracy = 1, scale = 1)) +
  geom_hline(yintercept = 0, linetype = "dashed", color = "black")

Dernière période disponible - taux de chômage

Code 
STS %>%
  
  
  filter(REF_AREA %in% c("FR", "DE", "IT", "ES", "GB", "US"),
         STS_CONCEPT == "UNEH",
         ADJUSTMENT == "S",
         FREQ == "M") %>%
  group_by(Ref_area) %>%
  filter(date == max(date)) %>%
  ungroup() %>%
  transmute(Pays = Ref_area, `Taux de chômage (%)` = value, Date = date) %>%
  arrange(desc(`Taux de chômage (%)`)) %>%
  print_table_conditional()
Pays Taux de chômage (%) Date
Espagne 16.358357 2020-11-01
Italie 8.872096 2020-11-01
France 8.774961 2020-11-01
États-Unis 6.700000 2020-11-01
Royaume-Uni 4.591271 2020-08-01
Allemagne 4.478856 2020-11-01