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

Question

我想把两个共用同一个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"))

我的绘图代码是：

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")

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

​

Answer 1

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

然后在comments或cowplot中使用patwhwork a建议

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)

​

​