R ggplot 2具有两个不同长度数据帧和不同破折号类型序列的图形

我有以下数据，由两个不同长度的data.frame组成

df1 <- data.frame(cbind(rnorm(20,0.4,0.2), seq(0,200,by=10)))
df2 <- data.frame(cbind(rnorm(30,0.6,0.25), seq(0,270,by=9)))

---

任何帮助都将不胜感激

数据具有不同长度的事实在这里并不重要，您只需要创建一个新列来标识哪个数据集是哪个数据集，您可以使用

rbind（）

：

---

哦，那很简单！我整个上午都被难住了！谢谢：）

ggplot() + 
  geom_path(data = df1, aes(x = X1, y = X2)) +
  geom_path(data = df2, aes(x = X1, y = X2)) +
  theme_bw() + geom_point() + geom_line() +
  scale_y_reverse()+
  scale_x_continuous(position="top") +
  scale_linetype_manual(values=c("twodash", "dotted")) +
  theme(axis.line=element_line(),
        axis.line.y = element_line(),
        panel.background= element_blank(),
        panel.border = element_blank(),
        panel.grid.major.x = element_blank(),
        panel.grid.minor.x = element_blank(),
        panel.grid.major.y = element_blank(),
        panel.grid.minor.y = element_blank())

df1$Source = "df1"
df2$Source = "df2"

df_combined = rbind(df1, df2)

ggplot(df_combined, aes(x = X1, y = X2, linetype = Source)) + 
    geom_path() +
    theme_bw() +
    scale_y_reverse()+
    scale_x_continuous(position="top") +
    scale_linetype_manual(values=c("twodash", "dotted")) +
    theme(axis.line=element_line(),
          axis.line.y = element_line(),
          panel.background= element_blank(),
          panel.border = element_blank(),
          panel.grid.major.x = element_blank(),
          panel.grid.minor.x = element_blank(),
          panel.grid.major.y = element_blank(),
          panel.grid.minor.y = element_blank())