我想用ggplot2生成一个散点图,它包含所有数据点的回归线(无论它们来自哪个组),但同时通过分组变量改变标记的形状。下面的代码生成组标记,但是会产生两条回归线,每组一条。
#model=lm(df, ParamY~ParamX)
p1<-ggplot(df,aes(x=ParamX,y=ParamY,shape=group)) + geom_point() + stat_smooth(method=lm)
我该如何编程?
答案 0 :(得分:10)
您不必在aes
中重做完整geom_point
并添加其他图层,只需将形状aes
移至geom_point
来电:
df <- data.frame(x=1:10,y=1:100+5,grouping = c(rep("a",10),rep("b",10)))
ggplot(df,aes(x=x,y=y)) +
geom_point(aes(shape=grouping)) +
stat_smooth(method=lm)
编辑:
帮助您发表评论:
因为无论如何annotate
最终可能会在每个方面都使用相同的标签。我喜欢制作一个迷你data.frame
,它有我的变量用于刻面,而刻面水平与另一列代表我想要使用的标签。在这种情况下,标签数据框称为dfalbs
。
然后使用它来标记数据框以单独标注构面,例如
df <- data.frame(x=1:10,y=1:10,grouping =
c(rep("a",5),rep("b",5)),faceting=c(rep(c("oneR2","twoR2"),5)))
dflabs <- data.frame(faceting=c("oneR2","twoR2"),posx=c(7.5,7.5),posy=c(2.5,2.5))
ggplot(df,aes(x=x,y=y,group=faceting)) +
geom_point(aes(shape=grouping),size=5) +
stat_smooth(method=lm) +
facet_wrap( ~ faceting) +
geom_text(data=dflabs,aes(x=posx,y=posy,label=faceting))