r - geom_scatterpie 中的饼图重叠

Question

我想找到一种方法来防止散点图中的饼图相互重叠。我知道我可以进一步减小半径，但不想让它们变得比现在更小。Position=jitter 根本不能正常工作。

这是一个可重现的示例：

library(ggplot2)
library(ggmap)
library(scatterpie)


data=data.frame(lat=c(52,52,51.5),long=c(4.1,5.5,6),radius=c(5,10,13),A=c(0.2,0.2,0.2),B=c(0.8,0.8,0.8))

map=get_map(location=c(3,50,7,54),source="google")
ggmap(map) + 
  geom_scatterpie(data=data,aes(x=long,y=lat,r=radius/20),cols=c("A","B"))

添加position=position_jitter不起作用：

ggmap(map) + 
  geom_scatterpie(data=data,aes(x=long,y=lat,r=radius/20),cols=c("A","B"),position = position_jitter(w = 0.4,h=0))

Answer 1

调整你的lat和long坐标，例如

data = data.frame(lat = c(52, 52.4, 51.8),
                  long = c(4.1, 5, 6),
                  radius = c(5, 10, 13),
                  A = c(0.2, 0.2, 0.2),
                  B = c(0.8, 0.8, 0.8))