在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，但也不必要地调整了其他标签（上面的“短标签”）。