r - 散布図プロットは ggplot の線として表示されます

Question

このようなデータがあります

     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すべての可能な数に変更しましたが、パイを正しく取得しません(写真のように)。r を変更すると、パイは大きくなりますが、常に線になるか、消えます。

円グラフを正しい縮尺で表示するには、何を追加すればよいですか?