act <- anrc_2021_x01 |>
select_report(report = "B01002-Median Age By Sex")
geo <- act |>
as_acs_5yr_geo()
metadata <- geo |>
get_metadata()
metadata <- dplyr::filter(metadata, item2 == "Female")
geo2 <- geo |>
set_metadata(metadata)
Run the code above in your browser using DataLab