如何在R语言中将名称列表设置为斜体并绘制？

你可以通过批量生成表达式的方式实现批量斜体文本绘制，循环写法调整后也能生效，具体方法如下：

假设你的名称列表、坐标数据是这样的：

name_list <- c("Gorilla gorilla gorilla", "Pan troglodytes", "Pongo abelii")
x_coords <- 1:3
y_coords <- 1:3

方法1：批量生成表达式列表（推荐） #

用lapply遍历名称列表，给每个名称单独生成带italic()的表达式，再统一传入text函数：

# 生成每个名称对应的斜体表达式
italic_labels <- lapply(name_list, function(name) {
  substitute(paste(italic(n)), list(n = name))
})

# 批量绘制斜体文本
text(x = x_coords, y = y_coords, labels = italic_labels)

方法2：正确的循环写法 #

如果你想用循环，只需在循环内部逐个将列表元素代入表达式即可，之前的问题是没有动态替换变量：

for(i in seq_along(name_list)){
  text(
    x = x_coords[i], 
    y = y_coords[i], 
    labels = substitute(paste(italic(n)), list(n = name_list[i]))
  )
}

为啥之前的写法失效？因为substitute是在调用时解析变量的，直接写italic('list')会把斜体内容固定成字符串"list"，不会读取你的列表元素。必须逐个把列表里的名称代入表达式，才能生成对应元素的斜体文本。

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