我希望能够控制每个图的y轴标题相对于y轴本身的位置，以便当我在顶部图中输入不同的抗生素名称长度时，底部图中的y轴标题与y轴的距离相同，并且每次我更改顶部图中的抗生素名称时，我不必手动更改底部图中的y轴标题。有人能帮忙吗？
第一个图显示的是未进行任何调整的默认值。
第二个图显示y轴标题与y轴标签之间的所需距离。
第三个图展示了在顶部图中改变抗生素名称长度意味着需要改变校正。我想试着把这段代码自动化。

library(tidyverse)
library(patchwork)

therapy_1 <- tibble(
  antibiotic = c("IV Piperacillin-tazobactam", "IV Piperacillin-tazobactam"),
  time_point = c("start", "end"),
  date = c("2023-04-10","2023-04-25")) %>% 
  mutate(date = as_date(date))

therapy_2 <-tibble(
  antibiotic = c("PO co-trimoxazole", "PO co-trimoxazole"),
  time_point = c("start", "end"),
  date = c("2023-04-10","2023-04-25")) %>% 
  mutate(date = as_date(date))

inflammatory_markers <- tibble(
  date = c("2023-04-10", "2023-04-12"),
  value = c("38.1", "37.8")) %>%
  mutate(date = as_date(date))

p1 <- therapy_1 %>%
  ggplot(aes(x = date)) +
  geom_line(aes(y = antibiotic, colour = antibiotic)) +
  theme(legend.position = "none")

p2 <- therapy_2 %>%
  ggplot(aes(x = date)) +
  geom_line(aes(y = antibiotic, colour = antibiotic)) +
  theme(legend.position = "none")

default <- inflammatory_markers %>%
  ggplot(aes(x = date)) +
  geom_point(aes(y = value))

desired <- inflammatory_markers %>%
  ggplot(aes(x = date)) +
  geom_point(aes(y = value)) +
  theme(axis.title.y = element_text(margin = margin(r = -160)))

# default output
p1 / default

# desired output
p1 / desired

# when length of y-axis labels shortened
p2 / desired

创建于2023-05-08使用reprex v2.0.2