R-ggplot：一个坐标系中的五个图

我在一小时前问过类似的问题，得到了一些很好的答案，但不是我想要的答案，可能是因为我的问题没有以正确的方式表达出来。这就是我再次发布的方式 在ggplot的帮助下，我在R脚本中绘制了不同的图形。为了比较它们，我需要将它们集成到一个图中

这是我当前针对单个图形的代码：

p1 <- ggplot(merch42, aes(x = day_code, y = avg_logistic_review_score, col = "red"))+   geom_smooth(method = "loess", span = 1/25, col = "red")

p2 <- ggplot(merch323, aes(x = day_code, y = avg_logistic_review_score, col = "blue"))+
  geom_smooth(method = "loess", span = 1/25, col = "blue")

p3 <- ggplot(merch24, aes(x = day_code, y = avg_logistic_review_score, col = "green"))+
  geom_smooth(method = "loess", span = 1/25, col = "green")

p4 <- ggplot(merch180, aes(x = day_code, y = avg_logistic_review_score, col = "yellow"))+
  geom_smooth(method = "loess", span = 1/25, col = "yellow")

p5 <- ggplot(merch505, aes(x = day_code, y = avg_logistic_review_score, col = "merch505"))+
  geom_smooth(method = "loess", span = 1/25, col = "black")

---

p1我不确定我是否理解您的问题，但是如果您想将五行数据合并到一个绘图中，您可以执行以下操作：

p <- ggplot(merch42, aes(x = day_code, y = avg_logistic_review_score)) +
geom_smooth(method = "loess", span = 1/25, col = "red") + 
geom_smooth(merch323, aes(x = day_code, y = avg_logistic_review_score),
method = "loess", span = 1/25, col = "blue")+
geom_smooth(merch24, aes(x = day_code, y = avg_logistic_review_score),
method = "loess", span = 1/25, col = "green") + 
geom_smooth(merch180, aes(x = day_code, y = avg_logistic_review_score),
method = "loess", span = 1/25, col = "yellow") + 
geom_smooth(merch505, aes(x = day_code, y = avg_logistic_review_score), 
method = "loess", span = 1/25, col = "black")

p考虑堆叠（即行绑定）所有数据帧，向每个数据帧添加一个类似指示器变量的类型，然后使用映射到指示器变量的颜色进行打印，甚至定义手动颜色：

final_df <- rbind(transform(merch42, type = "merch42"),
                  transform(merch323, type = "merch323"),
                  transform(merch24, type = "merch24"),
                  transform(merch180, type = "merch180"),
                  transform(merch505, type = "merch505"))

ggplot(final_df, aes(x = day_code, y = avg_logistic_review_score, color = type)) +
  geom_smooth(method = "loess", span = 1/25) +
  scale_color_manual(values = c("red", "blue", "green", "yellow", "black"))

final\u您所寻找的东西叫做刻面，它内置在
ggplot
中。您希望数据位于单个长形数据框中，然后添加
facet\u wrap（~type）
，其中type是用于区分进入每个绘图的数据块的任何列。如果你发布你的数据，我或其他人可以给你一个简单的解决方案。还可以查看
facet\u wrap
的文档。您应该编辑上一个问题。太好了！非常感谢：）很高兴听到这个消息，也很乐意帮忙！注意StackOverflow的说法。