如何在R语言中用变量引用数据框列名而非字面量列名？

要在R脚本中用字符串变量指定列名（比如切换Trait1和Trait2），需要使用tidyverse的tidyeval语法，核心是用all_of()函数引用字符串形式的列名，确保函数能正确识别目标列。

完整可运行代码 #

1. 准备数据和变量 #

library(tidyverse)

# 指定要使用的性状列（切换时只需改为"Trait2"即可）
trait.to.use <- "Trait1"

# 示例数据
data <- tibble(
  `Plant Number` = c(1, 2, 3, 4),
  Value = c(10, 20, 15, 10),
  Trait1 = c("A", "B", "A+B", "B"),
  Trait2 = c("A", "A+B", "A+B", "B"),
  NumTraits = c(1, 1, 2, 1)
)

2. 动态列名处理代码 #

如果你需要保留所有原始列，仅拆分性状列（即得到你展示的预期输出），使用以下代码：

split.data <- data %>%
  mutate(NewValue = Value / NumTraits) %>%
  # 用all_of()传递动态列名给separate_rows
  tidyr::separate_rows(all_of(trait.to.use), sep = "[+]")

如果需要按目标性状分组汇总，添加分组和汇总步骤：

split.data <- data %>%
  mutate(NewValue = Value / NumTraits) %>%
  tidyr::separate_rows(all_of(trait.to.use), sep = "[+]") %>%
  # 同样用all_of()指定分组列
  group_by(all_of(trait.to.use)) %>%
  summarise(TotalValue = sum(NewValue), .groups = 'drop')

关键说明 #

• all_of()的作用是明确告诉tidyverse函数：变量里存储的是列名，不是字面字符串，避免把trait.to.use当作列名去查找。
• 所有需要引用该动态列名的地方（比如separate_rows、group_by、select等）都要使用all_of()包裹变量。
• 切换性状列时，仅需修改trait.to.use的取值，无需改动代码其他部分。

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