R适配多门店可变列的store.sales函数across参数调整问询

核心思路：利用dplyr的负向列选择特性，直接排除不需要参与分组的固定列，无需手动指定属性列范围。

• 核心修改逻辑：你所有门店的销售数据中，datex、hourx、sales为固定非分组列，剩余所有列均为需要参与分组的属性维度，因此在across中直接排除这三个列即可。
  修改后的store.sales函数示例：

library(dplyr)
library(purrr)

store.sales <- function(store_data) {
  # 可选：增加必填列校验，避免异常数据报错
  required_cols <- c("datex", "hourx", "sales")
  if (!all(required_cols %in% colnames(store_data))) {
    stop("门店数据缺失核心必填列，请校验表结构")
  }
  
  store_data %>%
    # 关键修改：across用负向选择排除非分组列，剩余列自动作为分组维度
    group_by(across(-all_of(required_cols))) %>%
    group_split() %>%
    map_df(best.sales)
}

• 方案优势：
  • 自动适配1~10个甚至更多属性列的所有门店表，不需要随列数变化调整参数
  • 后续新增属性维度不需要修改函数逻辑，兼容性极强

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