R/z_scales.R

In animint2: Animated Interactive Grammar of Graphics

#' Scale point sizes using circle area, but specifying the radius in
#' pixels.
#' @param pixel.range min and max circle radius in pixels.
#' @param ... passed to continuous_scale.
#' @export
scale_size_animint <- function(pixel.range=c(2,20), ...){
  continuous_scale("size","area",palette=function(x){
    scales::rescale(sqrt(abs(x)), pixel.range, c(0,1))
  },...)
}