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))

結果の画像が見栄えが悪く (長いラベルの 2 行目に長い空白があるため、ラベルが大きすぎて 2 行目が途切れているように見えます)、この問題を解決する方法が見つかりません。

より複雑な式も試しましたが、セパレーターが正しい方法で配置されませんでした。

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

2行目を正しく揃える方法を教えてください。