Business surveys - NACE Rev. 2 activity - Financial services - monthly data - ei_bsfs_m

Data - Eurostat

indic

English

Code
ei_bsfs_m %>%
  left_join(indic, by = "indic") %>%
  group_by(indic, Indic) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
indic Indic Nobs
BS-BSDP3 Assessment of business situation over the past 3 months 1632
BS-DEVP3 Evolution of demand over the past 3 months 1632
BS-DEXN3 Evolution of demand expected over the next 3 months 1632
BS-EEVP3 Evolution of employment over the past 3 months 1632
BS-EEXN3 Evolution of employment expected over the next 3 months 1632
BS-FCI Financial services confidence indicator 1632

French

Code
load_data("eurostat/indic_fr.RData")
ei_bsfs_m %>%
  left_join(indic, by = "indic") %>%
  group_by(indic, Indic) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
indic Indic Nobs
BS-BSDP3 Evolution de la situation commerciale au cours des 3 derniers mois 1632
BS-DEVP3 Evolution de la demande au cours des 3 derniers mois 1632
BS-DEXN3 Evolution attendue de la demande au cours des 3 prochains mois 1632
BS-EEVP3 Evolution du nombre d'employés au cours des 3 derniers mois 1632
BS-EEXN3 Evolution attendue du nombre d'employés au cours des 3 prochains mois 1632
BS-FCI Indicateur de confiance des services financiers 1632

s_adj

Code
ei_bsfs_m %>%
  left_join(s_adj, by = "s_adj") %>%
  group_by(s_adj, S_adj) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
s_adj S_adj Nobs
NSA Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) 9792

nace_r2

Code
ei_bsfs_m %>%
  left_join(nace_r2, by = "nace_r2") %>%
  group_by(nace_r2, Nace_r2) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional
nace_r2 Nace_r2 Nobs
K Financial and insurance activities 2448
K64 Financial service activities, except insurance and pension funding 2448
K65 Insurance, reinsurance and pension funding, except compulsory social security 2448
K66 Activities auxiliary to financial services and insurance activities 2448

geo

Code
ei_bsfs_m %>%
  left_join(geo, by = "geo") %>%
  group_by(geo, Geo) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  mutate(Geo = ifelse(geo == "DE", "Germany", Geo)) %>%
  mutate(Flag = gsub(" ", "-", str_to_lower(Geo)),
         Flag = paste0('<img src="../../bib/flags/vsmall/', Flag, '.png" alt="Flag">')) %>%
  select(Flag, everything()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .}

time

Code
ei_bsfs_m %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional