R语言：动态生成图形标签时如何去除表达式中多余的()？

我来帮你搞定这个烦人的多余括号问题！你遇到的问题其实是因为substitute和expression嵌套使用后，取元素时带出了不必要的结构。咱们来一步步解决：

问题原因 #

你原来的代码labl<-substitute(expression(tau[CODE]),list(CODE=i))[2]，其实是先创建了一个expression()的调用对象，然后取它的第二个元素。这个操作会让生成的标签对象带着额外的调用结构，最终显示时就会多出括号。

两种简单的解决方案 #

方法1：用bquote（最推荐）

bquote就是专门用来生成带变量替换的表达式的，用法更直接，完全不会有多余结构：

# 循环示例
for(i in 1:3){
  # 直接生成tau[i]的表达式
  labl <- bquote(tau[.(i)])
  # 绘图时直接用labl作为标签
  plot(1:10, main = labl)
}

这里的.(i)就是告诉R把变量i的值替换进去，生成的labl就是干净的tau[1]、tau[2]这类表达式。

方法2：简化substitute的用法

如果你坚持想用substitute，可以去掉外层的expression嵌套，直接替换表达式里的变量：

# 循环示例
for(i in 1:3){
  labl <- substitute(tau[CODE], list(CODE = i))
  plot(1:10, main = labl)
}

这样substitute直接生成tau[i]的表达式，不需要再取元素，自然就不会有多余括号了。

为什么你的代码会出问题 #

原来的代码里，substitute(expression(tau[CODE]), list(CODE=i))返回的是一个类似expression(tau[i])的调用对象，当你取[2]时，得到的是tau[i]但它仍然是这个调用对象的一部分，在解析显示时就会带出不必要的括号。而上面两种方法都是直接生成目标表达式，避开了这个结构问题。

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