Business Employment Dynamics - BD

Data - BLS

Author

François Geerolf


Last observation: 2025 (N = 136200)

First observation: 1992 (N = 63920)

Last data update: 05 sept. 2026, 23:07

Last compile: 05 sept. 2026, 23:14

bd.dataclass

Code 
bd.data.1.AllItems |>
  left_join(bd.series, by = "series_id") |>
  left_join(bd.dataclass, by = "dataclass_code") |>
  group_by(dataclass_code, dataclass_name) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
dataclass_code dataclass_name Nobs
1 Gross Job Gains 741848
2 Expansions 741848
3 Openings 741848
4 Gross Job Losses 741848
5 Contractions 741848
6 Closings 741848
7 Establishment Births 73728
8 Establishment Deaths 73728

bd.dataelement

Code 
bd.data.1.AllItems |>
  left_join(bd.series, by = "series_id") |>
  left_join(bd.dataelement, by = "dataelement_code") |>
  group_by(dataelement_code, dataelement_name) |>
  summarise(Nobs = n()) |>
  print_table_conditional()
dataelement_code dataelement_name Nobs
1 Employment 2313744
2 Number of Establishments 2284800

bd.sizeclass

Code 
bd.data.1.AllItems |>
  left_join(bd.series, by = "series_id") |>
  left_join(bd.sizeclass, by = "sizeclass_code") |>
  group_by(sizeclass_code, sizeclass_name) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

bd.state

Code 
bd.data.1.AllItems |>
  left_join(bd.series, by = "series_id") |>
  left_join(bd.state, by = "state_code") |>
  group_by(state_code, state_name) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

bd.industry

Code 
bd.data.1.AllItems |>
  left_join(bd.series, by = "series_id") |>
  left_join(bd.industry, by = "industry_code") |>
  group_by(industry_code, industry_name) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

bd.series

Code 
bd.data.1.AllItems |>
  left_join(bd.series, by = "series_id") |>
  group_by(series_id, series_title) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}