r - 从整数序列生成表达式文字列表

Question

我想将整数序列映射到表达式文字序列，以便将后者用作绘图中的刻度线标签，例如

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

到目前为止，我已经尝试了 bquote 的所有变体, substitute , expression等等我能想到的，但显然我一定错过了一些东西。
此外，常见问题解答和相关的 SO 问答并没有完全为我解决这个问题。

我将如何正确执行(我希望 axis 将 pi 呈现为希腊字母，并在上述示例中将 -2 ... 2 替换为 i)？

Answer 1

尝试这个:

lbls <- do.call("expression", lapply(-2:2, function(i) substitute(X * pi, list(X = i))))
plot(-10:10, -10:10, xaxt="n")
axis(1, at=seq(-2,2)*pi, labels=lbls)