结合qplots

Question

我是R的新手，我正在尝试合并到qplots（ggplot2包裹），这样两张图（应力与应变曲线）将成为一个应力与应变图。我不知道该怎么做。请有人帮忙。以下是每个单独情节的代码。我尝试使用rbind，但我不确定这是否与此相关。

p1 <- qplot(StrainL,StressL, data=dat2,) + 
      geom_line(aes(colour="Longitudinal"))
p2 <- qplot(StrainC,StressC, data=dat2) + 
      geom_line(aes(colour="Circumferential"))
p3 <- rbind(p1,p2)

Answer 1

我在这里对你的数据做了一些假设，但这应该可行：

library(ggplot2)
ggplot(data = dat2) +
        geom_line(aes(x = StrainL, y = StressL, colour = "L")) + 
        geom_line(aes(x = StrainC, y = StressC, colour = "C")) +
xlab("Strain") + 
ylab("Stress") + 
ggtitle("Put your plot's title here") +
scale_colour_manual(name = "", values = c("L" = "red", "C" = "blue"))