散点饼图的3种样式绘制

# 生成数据
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
head(d)

数据格式

p <- ggplot() + geom_scatterpie(aes(x=long, y=lat, group=region), data=d,
                           cols=LETTERS[1:4]) + coord_equal() 

样式一

自定义样式

theme_half<- function(){
        theme(
            panel.background = element_rect(fill="transparent"), 
            panel.grid = element_line(color = "#cccccc"),
            legend.key = element_blank(),
            axis.line = element_line(colour = "black"),         
        )
    }

p + theme_half()

样式二

p + theme_classic()

样式三

参考资料

https://cran.r-project.org/web/packages/scatterpie/vignettes/scatterpie.html