r - 在 facet_grid 中垂直居中多行、部分斜体的条形标签

Question

我想在 ggplot2 中沿垂直轴显示条形文本，facet_grid()这样

• 文本水平阅读（即，angle = 0），
• 文本跨越多行，并且
• 部分文字为斜体

但是，当我使用labeller = label_parsed时，条形文本的最后一行显然是垂直居中的，并且整个条形文本的位置没有得到很好的调整。

set.seed(1)
d <- data.frame(
  x = rnorm(20),
  y = rnorm(20),
  f1 = rep(letters[1:2], each = 10),
  f2 = rep(letters[1:2], 10)
)
levels(d$f2) <- c(
  "a" = expression(paste("short label")),
  "b" = expression(paste("Long and\npartly italicized\nlabel over\nmultiple", italic("lines")))
)
ggplot(d, aes(x, y)) +
  geom_point() +
  facet_grid(f2 ~ f1, scale = "free_y", labeller = label_parsed) +
  theme(strip.text.y = element_text(angle = 0)) 

有没有办法来解决这个问题？我考虑过使用vjust，但它也不必要地调整了另一个标签（上面的“短标签”）。

标签： rggplot2facet-grid