使用R、拼图和可能的网格包绘制两个地块的公共垂直线

如果我是您，我会用facet而不是grid.draw通过Geom_Hline来执行此操作，因为当您调整绘图大小时，Grob中x轴=0的值会发生变化.

Geom_Hline

library(tidyverse)

df2 = data.frame(gender = c("male", "female"), age = c("teenager", "adult"), math = rnorm(100,0,0.3))
df2 = df2 %>% mutate(math = if_else(age == "adult", math+0.2, math))

pivot_longer(df2, gender:age) |> 
  ggplot(aes(x = value, y = math)) +
  stat_summary(fun.data = mean_cl_boot,geom = "errorbar") +
  facet_grid(name~., space = "free", scale = "free", switch = "y") +
  Geom_Hline(yintercept = 0, color = "darkslategray3") +
  coord_flip() +
  theme_minimal()+
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.spacing.y = unit(-0.1, "lines"),
    axis.title.y = element_blank(),
    strip.placement = "outside"
  ) 

LinesGrob

图的问题是你想要一条垂直线，所以LinesGrob中的x应该是x轴= 0的单个值，而不是c(0, 1).你可以随意调整这个值，目前我用x = 0.291来把它放在正确的位置.

library(dplyr)
library(ggplot2)
library(patchwork)
library(grid)
library(gridExtra)

df2 = data.frame(gender = c("male", "female"), age = c("teenager", "adult"), math = rnorm(100,0,0.3))
df2 = df2 %>% mutate(math = if_else(age == "adult", math+0.2, math))
p1 = df2 %>%
  ggplot(. , aes(x = gender, y = math)) +
  stat_summary(fun.data = mean_cl_boot,geom = "errorbar") +
  coord_flip() +
  theme_minimal()+
  theme(
    axis.title.x = element_blank(),
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank()
  )
p2 = df2 %>%
  ggplot(. , aes(x = age, y = math)) +
  stat_summary(fun.data = mean_cl_boot,geom = "errorbar") +
  coord_flip() +
  theme_minimal()+
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank()
  ) 

p1/p2

grid.draw(LinesGrob(x = 0.291, "npc", y = unit(c(0, 1), "npc"), gp = gpar(col = "darkslategray3")))