如何在函数的动态ggplot标题中插入带下标的值？

需要批量生成同类型图表，要求标题开头支持两种变量名格式：带下标（如Car[2]）或普通变量名（如Driver），可通过函数参数直接指定，也可从数据框中读取变量名。原代码中直接传入"Car"[2]无法正确渲染下标，因为字符串下标不是bquote可处理的表达式，以下是可行解决方案：

方案1：传入表达式对象（直接支持下标渲染） #

让函数接收表达式类型的参数，bquote可直接解析并渲染下标：

library("tidyverse")

plot_expr <- function(title_expr) {
  n_title <- 4
  
  mtcars %>% 
    ggplot(aes(x = cyl, y = mpg)) +
    geom_point() +
    labs(title = bquote(paste(.(title_expr), " ", "(", italic(reps) == .(n_title), ")")))
}

# 生成带下标的图表
p1 <- plot_expr(title_expr = Car[2])
# 生成普通变量名的图表
p2 <- plot_expr(title_expr = Driver)

方案2：传入字符串（兼容数据框读取场景） #

如果需要传入字符串格式的变量名（比如从数据框读取），用rlang::parse_expr将字符串转为表达式后再处理：

library("tidyverse")
library("rlang")

plot_str <- function(title_str) {
  n_title <- 4
  title_expr <- parse_expr(title_str)
  
  mtcars %>% 
    ggplot(aes(x = cyl, y = mpg)) +
    geom_point() +
    labs(title = bquote(paste(.(title_expr), " ", "(", italic(reps) == .(n_title), ")")))
}

# 传入带下标的字符串
p3 <- plot_str(title_str = "Car[2]")
# 传入普通字符串
p4 <- plot_str(title_str = "Driver")

方案3：从数据框批量生成图表 #

若变量名存储在数据框中，可通过循环批量生成图表列表：

# 示例数据框，包含不同格式的变量名
var_df <- tibble(var_name = c("Car[2]", "Driver", "Speed[3]"))

# 批量生成图表
plot_list <- purrr::map(var_df$var_name, plot_str)

# 查看生成的第一个图表
plot_list[[1]]

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