R geom_smooth在aes中写什么

Question

我和R和ggplot一起工作。我已经为4个不同的数据画了点。现在我要为这个点集画4条回归线。

ggplot() + 
    ggtitle("title")+
    xlab("date") +
    ylab("value") +
    geom_point(data=toplot$1, aes(x=date, y=x, color='1'), size = 4, shape=1) +     
    geom_point(data=toplot$2, aes(x=date, y=x, color='2'), size = 4, shape=2)+      
    geom_point(data=toplot$3, aes(x=date, y=x, color='3'), size = 4, shape=3)+      
    geom_point(data=toplot$4, aes(x=date, y=x, color='4'), size = 4, shape=4)+          
    scale_colour_manual(name = "legend", values = c('1'='green', "2"="red", "3"="blue", "4"="brown"))

当我为第一个data.frame添加一行时

geom_smooth(data=toplot$1, formula=date~x,method=lm, color='1',aes(x=date, y=x)) 

我收到一条消息：

每个组只有一个唯一的x值。也许你想要aes（组=1)

geom_smooth(data=toplot$1, formula=date~x,method=lm, color='1',aes(group=1)) 

谢谢你。

Answer 1

简短的答案是aes(x=date,y=x,color='1')，正确的答案是您应该学会使用ggplot2。有关如何使用分组的示例，请参见下面。

# prepare data
toplot2 <- do.call(rbind, toplot)
toplot2[, "group"] <- factor(rep(1:length(toplot), times=sapply(toplot, nrow)))
# ggplot command
ggplot(toplot2, aes(x=date, y=x, color=group, shape=group)) +
  geom_point(size=4) +
  geom_smooth(method=lm) +
  ggtitle("title")+
  xlab("date") +
  ylab("value") +
  scale_colour_manual(name = "legend", values = c('1'='green', '2'='red', '3'='blue', '4'='brown')) +
  scale_shape_manual(name = "legend", values = c('1'=1, '2'=2, '3'=3, '4'=4))

编辑：您似乎必须在示例中添加AES(x=date,y=x,group=1,color='1')或在我的版本中添加AES(x=date,y=x,color=group,shape=group,group=group)。例如，请参见向ggplot boxplot添加一条简单的lm趋势线或在boxplot上添加一条线(ggplot2)，尽管它们也没有解释为什么。