您可以将以下dplyr::mutate添加到tibble：mutate(labs = str_pad(labs, max(str_width(labs)), side = "both"))为字符串添加填充，使它们都具有相同的表观长度。

library(tidyverse)

t1 <- tibble(
  labs = c(
    "A short label",
    "Second short label",
    "This is a medium length label",
    "This is also a medium length",
    "Now, this label is actually quite long, really long",
    "This label is also actually quite long, really long"
  ) %>% 
    fct_inorder %>% 
    fct_rev,
  facs = str_c(
    "facet", 1:3
  ) %>% 
    rep(each = 2),
  x = runif(6)
) |> 
  mutate(labs = str_pad(labs, max(str_width(labs)), side = "both"))

t1 %>% 
  ggplot(
    aes(
      x, labs
    )
  ) +
  geom_point() +
  facet_grid(
    vars(facs), 
    scales = "free_y"
  ) +
  labs(
    x = "",
    y = ""
  ) +
  theme(
    axis.text.y = element_text(hjust = .5)
  )

字符串
x1c 0d1x的数据
创建于2023-07-17带有reprex v2.0.2