如何在tidyverse函数中用glue动态生成列名并在mutate中调用？

方法一：使用符号（sym）与tidy eval #

library(tidyverse)
library(glue)

tmp <- function(data, type) {
  # 将glue生成的列名字符串转换为tidy eval识别的符号对象
  target_col <- sym(glue("Sepal.{type}"))
  
  data |>
    select({{target_col}}) |>
    mutate(!!target_col := mean(!!target_col))
}

关键说明： #

• sym() 是连接字符串和tidyverse非标准求值的核心，它能把字符串形式的列名转为符号对象
• select中使用{{target_col}}（或直接写target_col）即可精准匹配目标列
• mutate里的!!target_col用于解引用符号：左侧作为新列名，右侧引用原列计算均值

方法二：使用.data代词（更直观的字符串处理） #

如果不想处理符号，可直接通过.data代词操作字符串列名：

library(tidyverse)
library(glue)

tmp <- function(data, type) {
  target_col <- glue("Sepal.{type}")
  
  data |>
    select(all_of(target_col)) |>
    mutate(!!target_col := mean(.data[[target_col]]))
}

关键说明： #

• all_of(target_col) 用于在select中精准匹配字符串指定的列，避免模糊匹配问题
• .data[[target_col]] 通过字符串索引直接引用目标列，无需转换符号
• !!target_col 负责将字符串作为新列名完成赋值

测试验证 #

调用tmp(iris, "Length")会返回150行1列的data.frame，所有行的值均为Sepal.Length列的均值（约5.843）。

原代码问题分析 #

你之前用{{var}}的写法有误：{{}}是用来捕获用户传入的裸变量名（比如直接写Sepal.Length而非字符串），但var是glue生成的字符串，无法被{{}}正确解析，因此无法同时作为列名和计算引用。

内容的提问来源于stack exchange，提问作者Maël