r - 绘制两个不同的数据框，按一个或多个变量分组，在图例中使用不同的标签

Question

考虑以下示例数据框:

x1=seq(2,7,length.out=13)
y1a=1.5*x1+4; y2a=1.5*x1+7;y3a=1.5*x1+9;
X1=rep(x1,3)
Y1=c(y1a,y2a,y3a)
groups1=rep(c("A","B","C"),each=13)
df1=data.frame(groups1,X1,Y1)

x2=seq(4,10,length=10)
y1b=3*x2+4; y2b=3*x2+7;y3b=3*x2+9;
X2=rep(x2,3)
Y2=c(y1b,y2b,y3b)
groups2=rep(c("A","B","C"),each=10)
df2=data.frame(groups2,X2,Y2)

用 ggplot2 绘制它们，我得到一个自动图例，这很棒。然而，两个数据帧的图例是相同的，这不是很好:

p <- ggplot()
p <- p + geom_line(data=df1,aes(x=X1, y=Y1, color = groups1)) +
     geom_point(data=df2,aes(x=X2, y=Y2, color = groups2))

相反，我希望图例能够区分来自 df1 的曲线和来自 df2 的曲线，将前者标记为“Pred”，将后者标记为“Test” ”。我怎样才能做到这一点？请注意，真实的数据框要大得多且差异很大(一个大约有 400 行 x 10 列，另一个大约有 90 行 x 30 列)，因此将它们合并在一起并不简单。

Answer 1

一个简单的替代方法是为可以使用 fill 的点使用不同的形状并将 color 设置为 NA (从而得到与默认点相同的结果):

ggplot() + 
  geom_line(data=df1,aes(x=X1, y=Y1, color = groups1)) +
  geom_point(data=df2,aes(x=X2, y=Y2, fill = groups2), shape=21, color=NA) +
  scale_color_discrete("Pred") +
  scale_fill_discrete("Test")

给出:

---

另一种可能性是对不同的数据集使用不同的线型:

ggplot() + 
  geom_line(data=df1,aes(x=X1, y=Y1, color = groups1, linetype = "Pred")) +
  geom_line(data=df2,aes(x=X2, y=Y2, color = groups2, linetype = "Test")) +
  scale_color_discrete("Groups") +
  scale_linetype_discrete("Datasets")

给出: