Two interfaces are provided to mapping funcitonality in R. fcds_map()
uses
ggplot2::geom_sf()
and fcds_map_leaflet()
uses leaflet::leaflet()
to
create static and interactive plots of the input data. The defaults of both
functions are designed to work with fcds data, in particular after an
age-adjusted rate has been calculated.
fcds_map_add_label(data, ...) fcds_map(data, ..., fill = rate, geom_sf.color = "grey20", geom_sf.size = 0.25, coord_sf_hide = TRUE, theme = ggplot2::theme_minimal(), scale_fill = ggplot2::scale_fill_viridis_c()) fcds_map_leaflet(data, ..., palette = "Blues", palette_bins = if (length(palette == 1)) 5L else length(palette), group_name = "year_group", group_labels = rev(fcds_const(group_name)), proxy_id = NULL)
data | A data frame containing FCDS data. At a minimum either
|
---|---|
... | Ignored in Additional arguments passed to Additional arguments passed to |
fill | The unquoted column name to be used for the fill aesthetic.
Defaults to |
geom_sf.color | The color of the |
geom_sf.size | The size of the |
coord_sf_hide | If |
theme | The theme to be applied to the plot, by default
|
scale_fill | The fill scale to be applied to the |
palette | Set the color palette of the shape fill. You may provide a
vector of colors that will be used for the palette. The number of colors
provided determines the number of bins for the values mapped to the fill,
unless specified by |
palette_bins | The number of bins in the color |
group_name | Character name of the column in |
group_labels | Labels for the group levels in the column referenced by
|
proxy_id | If provided, a |
A ggplot2 plot object
fcds_map_add_label
: Add a column with the name "label
" to the input data.
The ...
are passed to glue::glue_data()
, so you can construct labels
row-wise with references to the column in data
.
fcds_map_leaflet
: Creates an interactive map using leaflet::leaflet()
.
fcds_example_rates <- fcds::fcds_example %>% count_fcds(moffitt_catchment = TRUE) %>% complete_age_groups(county_name, tidyr::nesting(year_group, year)) %>% age_adjust() %>% dplyr::ungroup() %>% dplyr::mutate(rate = rate / 5) %>% dplyr::mutate(year_group = factor(year_group, unique(year_group)))#> Warning: The moffitt_catchment argument is deprecated, please use county_name = "moffitt"if (all(fcds:::suggests_package(c("sf", "ggplot2")))) { fcds_map(fcds_example_rates) + ggplot2::facet_wrap(~year_group, ncol = 4) + ggplot2::theme(legend.position = c(0.93, 0.25)) }if (FALSE) { fcds_map_leaflet(fcds_example_rates) }