如何在R中重疊具有相同y軸但不同x軸的2個圖

Question

有沒有辦法用不同的x軸疊加兩個圖？

我有一個數據集，其中包含患者在服用不同葯物時不同天的收縮壓。 我想按日期創建其SBP的散點圖，並在每種葯物上疊加其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幾何圖形彼此疊加+ 。 感覺有點駭人聽聞，但是會生成以下內容：