如何在bquote中通过对象设置绘图文本样式参数？

你的问题核心在于：直接在bquote中插入字符串形式的样式名（比如"bold"），会被当作普通文本而非表达式中的样式函数来解析，所以才会显示"bold(A)"而非加粗的A。以下是几种可行的解决思路：

方法1：使用call()构建样式调用 #

call()函数可以直接根据样式名（字符串）和目标内容生成对应的表达式：

mstyle <- "bold"
var <- LETTERS[1:4]
# 构建形如 bold(A) 的表达式
eq <- call(mstyle, var[1])
plot(1)
text(1, 0.8, eq)

方法2：结合substitute()与as.name() #

把字符串形式的样式名转为符号（as.name()），再用substitute()替换到表达式模板中：

mstyle <- "bold"
var <- LETTERS[1:4]
# 用as.name把字符串转为表达式符号，再替换到模板里
eq <- substitute(style_target(content), 
                 list(style_target = as.name(mstyle), content = var[1]))
plot(1)
text(1, 0.8, eq)

方法3：通过parse()解析字符串表达式 #

把样式名和内容拼接成完整的表达式字符串，再解析为可执行的表达式：

mstyle <- "bold"
var <- LETTERS[1:4]
# 拼接成"bold('A')"这样的字符串，再解析
eq_str <- paste0(mstyle, "('", var[1], "')")
eq <- parse(text = eq_str)[[1]]
plot(1)
text(1, 0.8, eq)

这三种方法都能实现用变量动态指定文本样式的需求，其中前两种方法更安全（避免字符串解析的潜在风险），推荐优先使用。

内容的提问来源于stack exchange，提问作者schosse-sitzer