我即将通过下面的跨越 textgrob 图形图例实现这个多面板图。但是我继续在人物和人物图例之间获得意想不到的空间。在下面的 reprex 中尝试。
# Library calls
library(tidyverse)
library(grid)
library(gridtext)
library(ggtext)
library(patchwork)
# make dummy figures
d1 <- runif(500)
d2 <- rep(c("Treatment", "Control"), each=250)
d3 <- rbeta(500, shape1=100, shape2=3)
d4 <- d3 + rnorm(500, mean=0, sd=0.1)
plotData <- data.frame(d1, d2, d3, d4)
str(plotData)
#> 'data.frame': 500 obs. of 4 variables:
#> $ d1: num 0.0177 0.2228 0.5643 0.4036 0.329 ...
#> $ d2: Factor w/ 2 levels "Control","Treatment": 2 2 2 2 2 2 2 2 2 2 ... …