Generar una lista de expresiones literales a partir de una secuencia entera

Me gustaría asignar una secuencia de enteros a una secuencia de literales de expresión para usar este último como etiquetas de marca de verificación en una gráfica, por ej.

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

Hasta ahora he probado todas las variaciones debquote, substitute, expression En lo que podía pensar, pero aparentemente debo haberme perdido algo. Además, las preguntas frecuentes y las preguntas y respuestas de SO relacionadas no solucionaron esto por completo.

¿Cómo lo haría correctamente?axis para hacerpi como la letra griega y tener-2 ...2 sustituido parai en el ejemplo anterior)?

Respuestas a la pregunta(2)

Su respuesta a la pregunta