r - 图例将 bquote 与向量变量一起使用

Question

我想用包含 4 行的 bquote 绘制一个图例 (kappa=0.5, kappa=1, kappa=1.5, kappa=5)。

范例:

kappa_var <- c(0.5, 1.0, 1.5, 5.0)

plot(1000, type="n", xlab="x", ylab= expression(paste("f(x;",kappa,",",sigma,")",sep="")), 
     xlim=c(0, 5), ylim=c(0, 6))

legend("topleft",legend=do.call( 'expression', list( bquote( kappa == .(kappa_var)))))

但是我只能管理 bquote 表达 kappa_var 的第一个条目而不是所有条目

Answer 1

尝试使用 bquote 标签列表中的 as.expression 创建一个表达式向量:

legend("topleft", legend = as.expression(sapply(kappa_var, function(var) bquote(kappa == .(var)))))