ggplot2 stat for creating a sample of jittered points in a polygon

ggplot2 stat for creating a sample of jittered points in a polygon

StatPolygon_jitter

Format

An object of class StatPolygon_jitter (inherits from Stat, ggproto, gg) of length 4.

Examples

data(division)
data(crimes)
library(dplyr)
#> 
#> Attaching package: ‘dplyr’
#> The following objects are masked from ‘package:stats’:
#> 
#>     filter, lag
#> The following objects are masked from ‘package:base’:
#> 
#>     intersect, setdiff, setequal, union
crime.map <- left_join(division, crimes, by=c("NAME"="State"))
#> Warning: Column `NAME`/`State` joining factors with different levels, coercing to character vector
ggplot(data = crime.map, aes(x = long, y = lat)) +
  geom_polygon(aes(group = group), fill="grey90", colour="white", size = 0.5) +
  stat_polygon_jitter(aes(long = long, lat = lat, group = STATEFP,
                          mapgroup = group, n = Population/200000)) +
  ggthemes::theme_map()
#> Warning: Removed 10 rows containing non-finite values (stat_polygon_jitter).