r - 2行标签ggplot看起来异常

Question

我有一个复杂的 2 线轴标签的问题，它的第一部分包含格式。

library(ggplot2)
df <- data.frame(Groups=c("A", "B"), Values = c(1,2))
label2 <- expression(paste(italic("The quick brown fox jumps over the\n lazy dog."), " Non-italic part of label"))
ggplot(df, aes(x = Groups, y = Values)) +  
  geom_bar(stat="identity") + 
  scale_x_discrete("Labels", labels=c("Short label", label2))+
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

结果图像看起来不太好（长标签的第二行有很长的空白。所以标签过大，第二行看起来中断了），我找不到解决这个问题的任何方法。

我也尝试过更复杂的表达式，但分隔符没有以正确的方式定位。

label3 <- expression(paste(italic("The quick brown fox jumps over the"), paste(italic("lazy dog."), "Non-italic part of label"), sep = "\nSEP"))

请分享一些如何正确对齐第二行的想法？