R/bubbles_GcdCatNum.R

In randommonkey/gggeomagic: Maps with ggplot2

#' Ggplot bubbles by categorical variable
#'
#' @name gg_bubbles_GcdCatNum
#' @param data A data.frame
#' @return leaflet viz
#' @section ctypes: Gcd-Cat-Num
#' @export
#' @examples
#' gg_bubbles_GcdCatNum(sample_data("Gcd-Cat-Num", nrow = 10))
gg_bubbles_GcdCatNum <- function(data = NULL, ...) {

  opts <- dsvizopts::merge_dsviz_options(...)
  l <- geomagic_prep(data = data, opts = opts, by_col = "id")

  g <- gg_basic_bubbles(l)  +
    do.call("coord_map", gg_projections(l$projections)) +
    add_ggmagic_theme(l$theme) +
    gg_graticule(l$graticule) +
    labs(title = l$titles$title,
         subtitle = l$titles$subtitle,
         caption = l$titles$caption, size =  l$titles$legend) +
    geom_text(data = l$centroides, aes(lon, lat, label = labels),
              check_overlap = TRUE, size = l$text$size,
              colour = l$text$colour, family = l$text$family) +
    gg_palette(opts = l$legend, map_type = "bubbles")

  g
}


#' Ggplot bubbles by categorical variable
#'
#' @name gg_bubbles_Gnm
#' @param data A data.frame
#' @return leaflet viz
#' @section ctypes: Gcd-Cat
#' @export
#' @examples
#' gg_bubbles_GcdCat(sample_data("Gcd-Cat", nrow = 10))
gg_bubbles_GcdCat <- gg_bubbles_GcdCatNum