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

Data - Eurostat

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) 12663
B-S_X_O_S94 Industry, construction and market services (except public administration and defence; compulsory social security; activities of membership organisations) 12959
F Construction 12750
G Wholesale and retail trade; repair of motor vehicles and motorcycles 12764
H Transportation and storage 12560
I Accommodation and food service activities 12575
J Information and communication 12574
K-N Financial and insurance activities; real estate activities; professional, scientific and technical activities; administrative and support service activities 12806
P-S_X_S94 Education; human health and social work activities; except activities of membership organisations 12606

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 57597
NSA Unadjusted data (i.e. neither seasonally adjusted nor calendar adjusted data) 56660

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 41604
I15 Index, 2015=100 33408
PCH_PRE Percentage change on previous period 20091
PCH_SM Percentage change compared to same period in previous year 19154

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 58716
BKRT Bankruptcy declarations 55541

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()