Wages - wages

Data - Census


variable

Code
wages |>
  group_by(variable) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

county

Code
wages |>
  left_join(county, by = "county") |>
  group_by(county, County) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}

date

Code
wages |>
  group_by(date) |>
  summarise(Nobs = n()) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}