rótulo de duas linhas ggplot2 com expressão

Eu gostaria de escrever um rótulo do eixo em duas linhas com umexpression() declaração. Contudo,plotmath eexpression não permitirá isso (por exemplo, o texto subscrito aparece na extrema direita). eu encontreiesta discussão por volta de 2005 de um problema semelhante, mas o trabalho em torno de que eles oferecem não se traduz para o meu aplicativo em ggplot2.Uma pergunta recente abordou uma permutação diferente de declarações de expressão de várias linhas, mas novamente o trabalho em torno fornecido não se aplica aqui.

Exemplo:

p <- ggplot(mtcars,aes(x=wt,y=mpg))+
  geom_point()+
  xlab(expression(paste("A long string of text goes here just for the purpose \n of illustrating my point Weight "[reported])))
try(ggsave(plot=p,filename=<some file>,height=4,width=6))

produz uma imagem onde o subscrito "reportado" é retrocedido para a direita quando eu gostaria que ele se sentasse próximo à palavra anterior.

questionAnswers(3)

yourAnswerToTheQuestion