plotmath：如何在标签中使用函数定义？

Question

我想在x轴标签中显示lambda的定义。当然，我可以手动调整它，例如：

lambda <- function(t) 1/t
plot(0~0, xlab=expression(lambda(t)==1/t))

但有没有办法让plotmath只显示lambda的定义（所以不必手动调整xlab）？

Answer 1

您可以使用此解决方案：

lambda <- function(t) 1/t

sb <- as.character(as.expression(body('lambda')))

plot(0~0, xlab=bquote(lambda(t)==.(sb)))