如何用expand.grid()固定前两列并扩展第三列生成数据框？

你需要保留前两列的固定配对（如bob对应male，mary对应female），同时为每一组配对扩展第三列的所有值，以下是几种可行的实现方式：

基础数据准备 #

name <- c("bob", "mary")
sex <- c("male", "female")
num <- 1:2

# 先把前两列的固定配对做成数据框，避免打乱对应关系
pair_df <- data.frame(name, sex)

方法1：Base R 原生实现（用rep和cbind） #

直接重复配对数据框的行，再拼接第三列的循环值：

result <- cbind(
  pair_df[rep(seq(nrow(pair_df)), each = length(num)), ],
  num = rep(num, nrow(pair_df))
)

# 查看结果
result
#    name    sex num
# 1   bob   male   1
# 1.1 bob   male   2
# 2  mary female   1
# 2.1 mary female   2

方法2：用expand.grid结合拆分（适合复杂配对） #

如果配对较多，可以先把配对合并成单个元素，再做笛卡尔积后拆分：

# 合并配对为字符串
temp <- expand.grid(
  pair = paste(pair_df$name, pair_df$sex, sep = "|"),
  num = num
)

# 拆分字符串还原前两列
result <- tidyr::separate(temp, pair, into = c("name", "sex"), sep = "|")

方法3：Tidyverse 简洁实现 #

用tidyr::uncount重复行，再按组添加第三列值：

library(dplyr)
library(tidyr)

result <- pair_df %>%
  uncount(length(num)) %>%  # 按第三列长度重复每一行
  group_by(name, sex) %>%
  mutate(num = num) %>%     # 为每组添加第三列的所有值
  ungroup()

方法4：用lapply批量处理配对 #

遍历每一组配对，拼接第三列后合并结果：

# 把配对拆分为单个列表元素
pair_list <- split(pair_df, seq(nrow(pair_df)))

# 批量处理后合并
result <- do.call(rbind, lapply(pair_list, function(x) cbind(x, num = num)))

以上方法都能得到你期望的结果，可根据自己的代码习惯选择。

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