如何在R绘图中显示参数？beta_plot函数标题参数未正确渲染求助

这个问题我太熟了！你遇到的是R里expression()函数的一个常见坑——它不会直接解析函数内部的变量a和b，而是把它们当成字面符号来显示，所以标题才会出现alpha = a beta = b而不是你想要的alpha = 2 beta = 2。

下面给你两种简单有效的解决办法：

方法1：使用bquote()（推荐） #

bquote()可以让我们在表达式中插入变量的实际值，只需要把要解析的变量用.(变量名)包裹起来就行。同时用~来添加空格，==可以让等号显示得更规范（和数学表达式风格一致）：

beta_plot <- function(a, b, ...) {
  x <- seq(0, 1, by = 0.02)
  y <- dbeta(x, shape1 = a, shape2 = b)
  plot(x, y, main = bquote(alpha == .(a) ~ " " ~ beta == .(b)), 
       xlab = NA, ylab = NA, ...)
}

调用beta_plot(2, 2)后，标题就会正确显示为α = 2 β = 2啦。

方法2：使用sprintf() + parse(text=) #

如果你更习惯字符串拼接的方式，可以先用sprintf()把标题内容拼成字符串，再用parse(text=)把字符串转换成R能识别的表达式：

beta_plot <- function(a, b, ...) {
  x <- seq(0, 1, by = 0.02)
  y <- dbeta(x, shape1 = a, shape2 = b)
  main_text <- sprintf("alpha = %g ~ beta = %g", a, b)
  plot(x, y, main = parse(text = main_text), 
       xlab = NA, ylab = NA, ...)
}

这里的%g会自动适配整数和小数的显示，比%d（仅整数）更灵活。

两种方法都能完美解决你的问题，选你觉得顺手的就行~

内容的提问来源于stack exchange，提问作者Wooheon