Wages

Data - Census

Author

François Geerolf


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