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时，饼会变大，但总是成一条线，或者消失。

我可以添加什么，以便以正确的比例获得饼图？

Answer 1

我认为这是一个扩展问题。如果您只是绘图

q<- ggplot(data,aes(month, Avdischarge, group=1))+
  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)

将所有内容打印为圆圈。您在图表底部看到颜色了吗？这些是圈子。看一下y轴，您会发现圆具有另一个比例。

Answer 2

您可以尝试将scale_y_log10（）添加到代码中以解决此比例尺问题。（第一个绘图中的y太大，而第二个绘图中的y太小了！因此，请尝试通过正确使用scale_y_log10（）〜

散点图在ggplot上显示为线

2 个答案: