Business Employment Dynamics - BD

Data - BLS


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 746328
2 Expansions 746328
3 Openings 746328
4 Gross Job Losses 746328
5 Contractions 746328
6 Closings 746328
7 Establishment Births 74280
8 Establishment Deaths 74280

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 2327844
2 Number of Establishments 2298684

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 .}