У меня есть такие данные
year month Avdischarge IndustrialCompound Pharmaceutical Pesticide TotalOvershootings
37 2018 1 740.5200 0.0000000 1.0000000 0.0000000 0.1578947
38 2018 2 376.8050 0.0000000 1.0000000 0.0000000 0.1428571
39 2018 3 269.2800 0.4285714 0.5714286 0.0000000 0.2800000
40 2018 4 195.8825 0.0000000 1.0000000 0.0000000 0.2105263
41 2018 5 100.9800 0.2500000 0.5833333 0.1666667 0.3243243
42 2018 6 99.5775 0.0000000 1.0000000 0.0000000 0.2105263
Сначала я нанес график разряда
q<- ggplot(data,aes(month, Avdischarge, group=1))+
geom_line(color='royalblue1', size=1.5, alpha=0.9))
Теперь я хочу добавить график scatterpie
к графику разряда
Итак, я сделал это
pieper<-q +
scatterpie::geom_scatterpie(aes(x=month, y=2, group=type, r = TotalOvershootings/0.5),
cols= c("IndustrialCompound", "Pharmaceutical", "Pesticide"),alpha= 0.7, color=NA,data= data)
Но я получил это
Я уже изменил r
на все возможные числа, но я не получаю пироги правильно (как на картинке).Когда я изменяю т, пироги становятся больше, но всегда в виде линии или исчезают.
Что я могу добавить, чтобы получить круговые диаграммы в правильном масштабе?