Business registration and bankruptcy index by NACE Rev.2 activity - quarterly data - sts_rb_q

Data - Eurostat

Author

François Geerolf

nace_r2

Code 
sts_rb_q %>%
  left_join(nace_r2, by = "nace_r2") %>%
  group_by(nace_r2, Nace_r2) %>%
  summarise(Nobs = n()) %>%
  print_table_conditional()
nace_r2 Nace_r2 Nobs
B-E Industry (except construction) 14069
B-S_X_O_S94 Industry, construction and market services (except public administration and defence; compulsory social security; activities of membership organisations) 14231
F Construction 14122
G Wholesale and retail trade; repair of motor vehicles and motorcycles 14139
H Transportation and storage 13924
I Accommodation and food service activities 13915
J Information and communication 13927
K-N Financial and insurance activities; real estate activities; professional, scientific and technical activities; administrative and support service activities 14185
P-S_X_S94 Education; human health and social work activities; except activities of membership organisations 13967

s_adj

Code 
sts_rb_q %>%
  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
SCA Seasonally and calendar adjusted data 63734
NSA Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) 62745

unit

Code 
sts_rb_q %>%
  left_join(unit, by = "unit") %>%
  group_by(unit, Unit) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
unit Unit Nobs
I21 Index, 2021=100 47899
I15 Index, 2015=100 33408
PCH_PRE Percentage change on previous period 23102
PCH_SM Percentage change compared to same period in previous year 22070

indic_bt

Code 
sts_rb_q %>%
  left_join(indic_bt, by = "indic_bt") %>%
  group_by(indic_bt, Indic_bt) %>%
  summarise(Nobs = n()) %>%
  arrange(-Nobs) %>%
  print_table_conditional()
indic_bt Indic_bt Nobs
REG Registrations 65060
BKRT Bankruptcy declarations 61419

geo

Code 
sts_rb_q %>%
  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 
sts_rb_q %>%
  group_by(time) %>%
  summarise(Nobs = n()) %>%
  arrange(desc(time)) %>%
  print_table_conditional()