Gostaria de mapear uma sequência de números inteiros para uma sequência de literais de expressão, a fim de usar o último como rótulos de marca de escala em um gráfico, por exemplo,

<code>lbls <- lapply(-2:2, function(i) expression(i * pi))
plot(...)
axis(1, at=seq(-2,2)*pi, labels=lbls)
</code>

Até agora eu tentei todas as variações debquote, substitute, expression etc que eu poderia pensar, mas, aparentemente, devo ter perdido alguma coisa. Além disso, o FAQ e as perguntas e respostas relacionadas ao SO não resolveram completamente isso para mim.

Como eu faria corretamente (eu queroaxis renderizarpi como a letra grega e tem-2 ...2 substituído pori no exemplo acima)?