R/plot_label_maker.R

In jhnwllr/gbifapi: Package calls gbif api with a url and returns a list

plot_label_maker = function(breaks,unit_MK,unit_scale) {

labels = scales::unit_format(unit = unit_MK, scale = unit_scale,accuracy = 1,sep="")(breaks) %>%
  stringr::str_replace_all(stringr::regex("^0M$"),"0") %>%
  stringr::str_replace_all(stringr::regex("^0K$"),"0") %>%
  stringr::str_replace_all(stringr::regex("^1 000K$"),"1M") %>%
  stringr::str_replace_all(stringr::regex("^2 000K$"),"2M") %>%
  stringr::str_replace_all(stringr::regex("^3 000K$"),"3M") %>%
  stringr::str_replace_all(stringr::regex("^4 000K$"),"4M") %>%
  stringr::str_replace_all(stringr::regex("^5 000K$"),"5M") %>%
  stringr::str_replace_all(stringr::regex("^1 000M$"),"1B") %>%
  stringr::str_replace_all(stringr::regex("^2 000M$"),"2B") %>%
  stringr::str_replace_all(stringr::regex("^3 000M$"),"3B") %>%
  stringr::str_replace_all(stringr::regex("^2 500K$"),"2.5M") %>%
  stringr::str_replace_all(stringr::regex("^1 500K$"),"1.5M")


return(labels)
}

# breaks = scales::pretty_breaks(n = number_breaks)(c(0,d[[variable_total]]))
# labels = gbifapi::plot_label_maker(breaks,unit_MK,unit_scale)
# scale_x_continuous(name, breaks, labels, limits, trans)