0

我有这样的数据

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

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

4

2 回答 2

0

我认为这是一个缩放问题。如果你只是情节

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 轴,然后您会看到圆圈有另一个刻度。

于 2019-05-06T10:30:44.003 回答
0

您可以尝试将 scale_y_log10() 添加到代码中以解决此比例问题。(第一个图中的 y 太大,而第二个图中的 y 太小!所以尝试使用 scale_y_log10( ) 妥妥的~

于 2019-05-21T12:45:43.360 回答