如何使用R将两组之间的多个比较合并到一个图中？

Question

我在试着比较两组病人。一组服用药物A，另一组服用药物B。我有4个不同时间点的血压信息: BB1、BB2、BB3和BB4。我想用中位数、25%和75%比较每个时间点的组别，并显示组间差异的P值。

理想情况下，我希望用不同的颜色和它们之间的偏移量来区分这两组人，但要用同一张图上显示的时间点，也许用一条线连接中间点。也就是说，首先为两个组显示BB1，然后显示BB2等。

不管怎么说，我都搞不懂这事。互联网上的聪明人，请帮帮我！

这有点像是在说，但并不是真的。https://community.rstudio.com/t/2-groups-multiple-variables/13151/3

Answer 1

这是一个不优雅的解决方案，但我确实解决了它。

library(tidyverse)
library(hrbrthemes)
library(viridis)

mmHg <- KetData$MAP1
MAP1Data <- data.frame(mmHg)
MAP1Data$Drug <- Data$Drug
MAP1Data$Time <- "1. timepoint"
mmHg <- KetData$MAP2
MAP2Data <- data.frame(mmHg)
MAP2Data$Drug <- Data$Drug
MAP2Data$Time <- "2. timepoint"

...

MAPData <- do.call("rbind", list(MAP1Data, MAP2Data, ...))

ggplot(MAPData, aes(x=Time, y=mmHg, fill=Drug)) +
  geom_boxplot() +
  scale_fill_viridis(discrete = TRUE, alpha=0.6) +
  geom_jitter(color="black", size=0.4, alpha=0.9) +
  theme_ipsum() +
  theme(
    legend.position="right",
    plot.title = element_text(size=11)
  ) +
  ggtitle("Mean arterial pressure at n timepoints") +
  xlab("")