R 如何在x轴比例相同的情况下同时绘制两个图形

我想把两个共用同一个x轴的图形画在一起。我该怎么做？ 我的数据可以使用以下代码生成：

df <-structure(list(SDTM_LabN = c("ALP", "AST", "ALT", "AST", "ALT", 
"ALT", "ALP", "AST", "ALP", "AST", "ALP", "ALT", "ALP", "ALP", 
"ALT", "AST", "ALT", "ALT", "ALT", "AST", "AST", "ALP", "AST", 
"ALT", "ALP", "ALP", "AST"), ADY = structure(c(45, 15, 1, 1, 
30, 58, 30, 45, 46, -6, 23, 46, -6, 15, 23, 46, 45, -6, 8, 30, 
58, 58, 23, 15, 8, 1, 8), class = "difftime", units = "days"), 
    result = c(0.841269841269841, 0.578947368421053, 0.625, 0.552631578947368, 
    0.416666666666667, 0.3125, 0.936507936507937, 0.447368421052632, 
    0.634920634920635, 0.657894736842105, 0.873015873015873, 
    0.291666666666667, 0.73015873015873, 0.857142857142857, 0.5, 
    0.447368421052632, 0.479166666666667, 0.625, 0.604166666666667, 
    0.5, 0.526315789473684, 0.849206349206349, 0.526315789473684, 
    0.5, 1.00793650793651, 0.896825396825397, 0.894736842105263
    )), row.names = c(NA, -27L), class = "data.frame")

df2<-structure(list(ID = c(101, 101, 101, 101, 101, 101), AEDECOD = c("Diarrhoea", 
"Vitreous floaters", "Musculoskeletal pain", "Diarrhoea", "Decreased appetite", 
"Fatigue"), AESTDY = structure(c(101, 74, 65, 2, 33, 27), class = "difftime", units = "days"), 
    AEENDY = structure(c(105, 99, NA, 5, NA, NA), class = "difftime", units = "days")), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"))

我怎样才能得到这样的东西：

---

您应该首先确保计算两个系列的公共xmin-xmax

然后在评论或cowplot中建议使用patwhwork：

---

您应该首先确保计算两个系列的公共xmin-xmax

然后在评论或cowplot中建议使用patwhwork：

---

试试图书馆的拼凑；p1/p2，其中p1是第一个绘图，p2是第二个绘图。此软件包可以一起绘制两个图形，但是x轴的比例不同。有什么办法可以解决这个问题吗？我想下面发布的解决方案会让你达到目的，对吧，试试librarypatchwork；p1/p2，其中p1是第一个绘图，p2是第二个绘图。此软件包可以一起绘制两个图形，但是x轴的比例不同。有什么办法可以解决这个问题吗？我想下面发布的解决方案会让你达到目的，对吧谢谢你的回答。有可能把这两个情节叠加起来吗？图1的左y轴和图2的右y轴？也许这有帮助：谢谢你的回答。有可能把这两个情节叠加起来吗？第一个绘图的左y轴和第二个绘图的右y轴？也许这有助于：

ggplot(df, aes(colour=SDTM_LabN)) + 
    geom_line(aes(x=ADY,y=result)) 

ggplot(df2, aes(colour=AEDECOD)) + 
    geom_segment(aes(x=AESTDY, xend=AEENDY, y=AEDECOD, yend=AEDECOD),) +
    xlab("Duration")

xmin <- min(df$ADY ,df2$AESTDY)
xmax <- max(df$ADY ,df2$AESTDY)

p1 <- ggplot(df, aes(colour=SDTM_LabN)) + 
        geom_line(aes(x=ADY,y=result)) +
        coord_cartesian(xlim = c(xmin,xmax))


p2 <- ggplot(df2, aes(colour=AEDECOD)) + 
        geom_segment(aes(x=AESTDY, xend=AEENDY, y=AEDECOD, yend=AEDECOD),) +
        xlab("Duration") + 
        coord_cartesian(xlim = c(xmin,xmax))

library(cowplot)
plot_grid(plotlist = list(p1,p2),align='v',ncol=1)