R绘图expression标题动态赋值 循环时n_sim未更新如何解决

问题原因 #

expression()函数不会解析运行环境中的变量值，只会将括号内的内容作为固定的数学表达式符号处理，因此你传入的n_sim参数值不会被动态替换到标题中。

最优解决方案 #

使用bquote()函数替代expression()，需要动态取值的变量包裹在.()内即可，.()标记的内容会被自动解析为当前环境中的变量值，语法更简洁，适配绝大多数动态表达式场景。
修改后的可运行代码如下：

# 定义绘图函数，动态生成带参数的标题
plot_sim <- function(n_sim = NULL){
  rand_var <- runif(n_sim)
  # 使用bquote替换动态变量
  hist(rand_var, freq = F, main = bquote(paste('Histogram of rand_var ', bar(X)[n = .(n_sim)])))
}


# 循环调用函数生成不同样本量的直方图
possible_n = c(100,2000,400)
for (i in 1:length(possible_n)){
  plot_sim(possible_n[i])
}

其他可选方案 #

如果需要处理更复杂的多变量表达式拼接，也可以使用substitute()函数实现同样效果，示例如下：

hist(rand_var, freq = F, main = substitute(paste('Histogram of rand_var ', bar(X)[n = ns]), list(ns = n_sim)))

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