R语言高效创建含多分组、DIV全为0的大型数据框方法

你原有代码的核心问题是rep函数的each参数逻辑不符合全交叉组合的生成要求，硬编码重复次数的写法在数据量增大时完全无法维护，以下是适配大体量数据的高效实现方式：

基础R实现（无依赖、性能最优，推荐百万行以上级别的大体量数据使用） #

核心思路是用内置的expand.grid直接生成多维度的全交叉组合，不需要手动计算重复次数，内存占用和生成速度都最优：

# 1. 预定义各维度的全量取值
## 生成2020-12-27到当前日期的日度序列
date_seq <- seq.Date(from = as.Date("2020-12-27"), to = Sys.Date(), by = "day")
## 替换为你实际的所有location_name取值
location_vec <- c("x", "y", "z")
## 替换为你实际的所有brand取值
brand_vec <- c("a", "b")

# 2. 生成三个维度的全交叉组合
dummy_df <- expand.grid(
  date = date_seq,
  location_name = location_vec,
  brand = brand_vec,
  KEEP.OUT.ATTRS = FALSE,
  stringsAsFactors = FALSE
)

# 3. 补充DIV列并调整列顺序
dummy_df$DIV <- 0
dummy_df <- dummy_df[, c("date", "location_name", "brand", "DIV")]

# 如需和示例保持"日.月.年"的日期格式，执行以下转换即可
dummy_df$date <- format(dummy_df$date, "%d.%m.%Y")

原有代码错误说明 #

你之前写的rep参数逻辑错误：

• location_name = rep(c('x',"y","z"), each=2)会生成序列x,x,y,y,z,z
• brand = rep(c('a',"b"),each=3)会生成序列a,a,a,b,b,b
  两个向量按位置配对后会出现x-a、x-a、y-a、y-b、z-b、z-b的错误匹配，无法得到全组合结果。

tidyverse写法（语法更简洁，适合日常小中体量数据使用） #

如果日常已经加载tidyverse生态包，可以用tidyr::crossing直接生成，代码更简洁：

library(tidyr)

dummy_df <- crossing(
  date = seq.Date(as.Date("2020-12-27"), Sys.Date(), "day"),
  location_name = c("x", "y", "z"),
  brand = c("a", "b"),
  DIV = 0
)
# 日期格式转换和基础R版本一致

生成的结果完全匹配你给出的示例结构：每个日期对应所有location、brand的两两组合，DIV列全为0，不需要手动调整重复参数，修改维度取值时直接替换对应向量即可，维护成本极低。

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