如何在R中叠加2个具有相同y轴但不同x轴的图

Question

有两种方法可以叠加两个具有不同x轴的图吗？

我有一个患者在不同日期服用不同药物时收缩压的数据集。我想创建一个他们的收缩压的散点图，并在每种药物上叠加他们的SBP盒子图。我分别创建了这两个地块，但无法弄清楚如何将它们合并成一个数字。

library(ggplot2) 
library(lubridate) 

df <- data.frame(date = c(ymd("2014-09-01") + c(1:5), ymd("2014-09-11") + c(1:5), ymd("2014-09-21") + c(1:5)), sbp1 = round(runif(n=15, min=130, max=200)), group = c(rep("A",5), rep("B",5), rep("C", 5))) 
p1 <- ggplot(df, aes(x=date, y=sbp1)) + geom_point(aes(color = group)) 
p2 <- ggplot(df, aes(x=group, y=sbp1)) + geom_boxplot(aes(x=group, y = sbp1)) 
p1 
p2 

Answer 1

你必须决定如何映射的x坐标到一个单一的规模 - 例如，就像在捡一个日期为整个集团：

df %>% 
    group_by(group) %>% 
    mutate(groupdate = first(date) + 3) %>% 
    ggplot(aes(y = sbp1)) + 
    geom_boxplot(aes(x = groupdate, group = group)) + 
    geom_point(aes(x = date, colour = group)) 

然后你可以叠加通过+互相顶部的ggplot几何图形。感觉有点哈克，但会产生这样的：