R语言中动态生成DataFrame变量全组合（无需硬编码变量名）

不管你有多少个变量，都可以通过生成变量取值的全组合来实现转换，无需硬编码变量名，以下提供两种方案：

方案一：Base R 实现（无需额外包） #

# 假设你的数据已经读入为foo（比如从CSV读取：foo <- read.csv("your_data.csv")）
foo <- data.frame(variable = c("peltrawl_PF","peltrawl_DF"),low = c(0,3.8),high = c(10,11))

# 1. 为每个变量生成包含low和high的向量列表
var_value_list <- lapply(seq(nrow(foo)), function(i) c(foo$low[i], foo$high[i]))
# 2. 生成所有变量取值的全组合
bar <- expand.grid(var_value_list, KEEP.OUT.ATTRS = FALSE)
# 3. 设置列名为原数据的variable值
colnames(bar) <- foo$variable
# 4. 按变量顺序排序，得到目标行顺序
bar <- bar[do.call(order, bar), ]

运行后bar就会是你想要的格式，对于132行的输入数据，这个逻辑同样适用，自动处理所有变量。

方案二：tidyverse 实现（代码更简洁） #

如果你习惯用tidyverse工具链，可以用以下代码：

library(tidyverse)

foo <- data.frame(variable = c("peltrawl_PF","peltrawl_DF"),low = c(0,3.8),high = c(10,11))

bar <- foo %>%
  # 为每个变量生成low和high的向量
  mutate(values = map2(low, high, ~c(.x, .y))) %>%
  # 保留变量名和对应取值向量
  select(variable, values) %>%
  # 转换为命名列表（变量名为名，取值向量为值）
  deframe() %>%
  # 生成全组合
  expand_grid() %>%
  # 按所有变量排序，匹配目标行顺序
  arrange(across(everything()))

说明 #

两种方案的核心逻辑都是：

1. 为每个变量提取low和high作为可选取值
2. 生成所有变量可选取值的笛卡尔积（全组合）
3. 调整行顺序并设置正确的列名

这样无论变量数量是2个还是132个，都能自动完成转换，完全不需要硬编码变量名。

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