Круговые диаграммы в перекрытии geom_scatterpie

Question

Я бы хотел найти способ, чтобы круговые диаграммы в scatterpie не пересекались друг с другом.Я знаю, что могу еще больше уменьшить радиус, но не хочу делать их меньше, чем они есть.Положение = джиттер не работает вообще.

Вот воспроизводимый пример:

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))