如何用tidyverse实现类似tidyr::complete的两个数据框全组合？

嗨，这个需求用tidyverse的工具就能轻松搞定，给你分享几种实用的方法：

方法1：用dplyr的cross_join()（最直接） #

cross_join()是dplyr专门用来生成两个数据框笛卡尔积（所有可能行组合）的函数，完美匹配你的需求：

library(tidyverse)

# 你的原始数据
df <- data.frame(a = letters[1:2])
df1 <- data.frame(one = 1:2)

# 生成全组合
result <- cross_join(df, df1)
print(result)

运行后会得到你想要的结果：

a one
1 a   1
2 a   2
3 b   1
4 b   2

方法2：用tidyr的expand_grid() #

如果更倾向于从向量层面生成组合，expand_grid()也很合适，它可以接收多个向量并生成所有可能的组合：

result2 <- expand_grid(a = df$a, one = df1$one)
print(result2)

这个方法的输出和上面完全一致，而且如果后续需要添加更多维度的组合，直接在expand_grid()里加参数就行，灵活性很高。

方法3：用tidyr::complete()实现 #

你提到了tidyr::complete()，其实也能做到，不过需要先构造一个包含目标列的基础数据框，再扩展所有可能值：

# 先创建一个包含目标列的临时数据框（这里取第一行值占位）
base_df <- tibble(a = df$a[1], one = df1$one[1])

# 用complete扩展所有可能的组合
result3 <- base_df %>% 
  complete(a = df$a, one = df1$one)

print(result3)

不过这种方法相对繁琐一点，更适合已有部分数据需要补全组合的场景，你的需求用前两种更高效。

总的来说，cross_join()是最贴合你需求的方案，代码简洁且直接针对数据框操作，一步到位。

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