Code
sa.area %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}
Data - BLS
Last compile: 05 sept. 2026, 23:17
sa.area %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}sa.state %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}sa.data_type %>%
{if (is_html_output()) print_table(.) else .}| data_type_code | data_type_text |
|---|---|
| 1 | All Employees, In Thousands |
| 2 | Women Workers, In Thousands |
| 3 | Production Workers, In Thousands |
| 4 | Average Weekly Earnings, In Dollars |
| 5 | Average Weekly Hours |
| 6 | Average Hourly Earnings, In Dollars |
| 7 | Average Overtime Hours |
sa.detail %>%
{if (is_html_output()) print_table(.) else .}| detail_code | detail_name |
|---|---|
| 0 | Total Nonagricultural |
| 1 | A 1-digit Industry (Industry Division) |
| 2 | A 2-digit Industry |
| 3 | A 3-digit Industry |
| 4 | A 4-digit Industry |
| 5 | A Combination Of Industry Divisions |
| 6 | A Combination Of Industries |
| 7 | State Specific |
| 8 | A Regular Atypical Cell |
| 9 | A Residual Cell |
sa.series |>
arrange(begin_year) |>
head(100) |>
select(series_id, begin_period, end_period) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}