使用dplyr或data.table将两列不平衡元素之间的每个组合分隔成行？

library(dplyr)

# 创建原始数据框
df <- data.frame(列1 = c("A", "B", "C"), 列2 = c("X", "Y"))

# 生成组合
combinations <- expand.grid(列1 = df$列1, 列2 = df$列2)

# 连接原始数据框和组合数据框
result <- left_join(df, combinations, by = c("列1", "列2"))

# 选择需要的列
result <- select(result, 列1, 列2, 列1.1, 列2.1)

# 输出结果
print(result)

library(data.table)

# 创建原始数据表
dt <- data.table(列1 = c("A", "B", "C"), 列2 = c("X", "Y"))

# 生成组合
combinations <- CJ(列1 = dt$列1, 列2 = dt$列2)

# 连接原始数据表和组合数据表
result <- merge(dt, combinations, by = c("列1", "列2"))

# 选择需要的列
result <- result[, .(列1, 列2, 列1.1, 列2.1)]

# 输出结果
print(result)