annotation_table.Rd
Create a data frame for putting labels on a graph.
annotation_table(.x, .col, .focal_value, .group_col)
a data frame with fields “Name“, “Measure“, “Value“, and “Label“
racine_laus |>
purrr::pluck("wisconsin") |>
dplyr::mutate(Parsed = list(laus_parse_series(.data$Series))) |>
tidyr::unnest("Parsed") |>
dplyr::select("measure_code", "Year", "Month", "Value") |>
dplyr::filter(.data$Month == "January") |>
annotation_table("Year", 2020, "measure_code")
#> # A tibble: 6,192 × 4
#> measure_code Year Month Value
#> <int> <dbl> <fct> <dbl>
#> 1 5 2020 January 2981617
#> 2 5 2020 January 2981617
#> 3 5 2020 January 2981617
#> 4 5 2020 January 2981617
#> 5 5 2020 January 2981617
#> 6 5 2020 January 2981617
#> 7 5 2020 January 2981617
#> 8 5 2020 January 2981617
#> 9 5 2020 January 2981617
#> 10 5 2020 January 2981617
#> # ℹ 6,182 more rows