search

YuLab-SMU / scatterpie

:art: scatter pie plot
https://cran.r-project.org/package=scatterpie
60 stars 16 forks source link

adjust the radius of pie legend #35

Closed xiangpin closed 2 years ago

xiangpin commented 2 years ago

adjust the breaks of the radius of pie with scales::breaks_extended

library(scatterpie)
library(ggplot2)
set.seed(123)
long <- rnorm(50, sd=100)
lat <- rnorm(50, sd=50)
d <- data.frame(long=long, lat=lat)
d <- with(d, d[abs(long) < 150 & abs(lat) < 70,])
n <- nrow(d)
d$region <- factor(1:n)
d$A <- abs(rnorm(n, sd=1))
d$B <- abs(rnorm(n, sd=2))
d$C <- abs(rnorm(n, sd=3))
d$D <- abs(rnorm(n, sd=4))
d[1, 4:7] <- d[1, 4:7] * 3
d$radius <- 6 * abs(rnorm(n))
p <- ggplot() + geom_scatterpie(aes(x=long, y=lat, group=region, r=radius), data=d,
                                cols=LETTERS[1:4], color=NA) + coord_equal()
f1 <- p + geom_scatterpie_legend(d$radius, x=-140, y=-70, n=3)
f2 <- p + geom_scatterpie_legend(d$radius, x=-140, y =-70, n=8)
aplot::plot_list(f1, f2)

xx