ggplot2交互作图误差

Question

我试图创建一个交互图，而R正在抛出错误geom_path: Each group consist of only one observation. Do you need to adjust the group aesthetic?，我不明白为什么。以下是我的数据框架：

       topPagesCount DIRTY_INDUSTRY IND_DIRTY_HETEROGENEITY
1             10      1.4444444               1.1727001
2            831      1.4444444               1.1727001
3              1      0.8218391               0.4599108
4              0      0.8218391               0.4599108
5              0      0.8821549               0.4870270
6             30      0.8190476               0.6582197
7             26      0.8218391               0.4599108
8              0      1.4444444               1.1727001
9              7      0.8821549               0.4870270
10           398      0.8218391               0.4599108

下面是我的代码：

greatDF$DIRTY_INDUSTRY_fac <- as.factor (greatDF$DIRTY_INDUSTRY)
ggplot(data = greatDF, aes(x = IND_DIRTY_HETEROGENEITY, y=topPagesCount,
colour=DIRTY_INDUSTRY_fac, group=DIRTY_INDUSTRY_fac))+
stat_summary(fun.y=mean, geom="point")+
stat_summary(fun.y=mean, geom="line")

我没有看到出现错误的任何原因，因为很明显，响应变量topPagesCount的值超过1种，用于交互术语DIRTY_INDUSTRY:IND_DIRTY_HETEROGNEITY...am i，对吗？也许我误解了什么..。

谢谢,

Answer 1

正如@Troy所指出的，出现这种情况的原因是分组本身对geom_line()或geom_path()没有意义。根本没有与线路相连的点！

这就是为什么当您删除最后一行时，一切都正常的原因。请注意，这个“错误”不是一个实际的错误，它绘制了图例，因为它的目的是看，没有一个实际的线，应该绘制根据您的美学和统计。

怎么解决这个问题？好吧，这取决于你想要达到的目标，就像往常一样。注意您的代码与我的代码之间的差异：

ggplot(data = greatDF, aes(x = IND_DIRTY_HETEROGENEITY, y=topPagesCount,
                       colour=DIRTY_INDUSTRY_fac, group=DIRTY_INDUSTRY_fac)) +
geom_line(size=1.4) + 
geom_point(size=5, shape=10) + 
stat_summary(fun.y=mean, geom="point", size=5)

我猜对了吗？有关这个主题的更多见解，您可能会看到this问题。

​

​