Expressão e nova linha nos rótulos de plotagem [duplicado]

Esta pergunta já tem uma resposta aqui:

Quebra de linha na expressão ()? 2 respostas

Quero adicionar alguns subscritos e sobrescritos aos meus rótulos de gráfico. Eu tenteiexpression, mas não funciona como desejo com novas linhas \n). Eu tentei corrigi-lo usandopaste, mas não funciona. Abaixo estão algumas das minhas tentativas:

par(mfcol=c(1,3))
plot(1,1,main=expression("first line \n second line x"^2))
plot(1,1,main=expression(paste("first line \n second line", "x"^2)))
plot(1,1,main=paste("first line \n second line", expression("x"^2)))

Produz

Nas duas primeiras fotos, a segunda linha não está bem centralizada; na terceira, o sobrescrito falha. Como obter linha centralizada e subscritos / sobrescritos?

questionAnswers(2)

yourAnswerToTheQuestion