R语言中重命名双层列表内重复的data.table名称

核心思路 #

通过将双层列表转换为结构化的嵌套数据框，统一处理所有重复的秒级时间戳，为重复项添加3位毫秒后缀生成唯一的高精度时间戳（格式为yyyymmddhhmmssfff），最后重新还原为双层列表保留层级关联，方便后续按顶层分类保存。

代码实现 #

1. 加载依赖包并构造示例数据

library(data.table)
library(purrr)
library(dplyr)
library(stringr)

# 构造符合问题场景的示例双层列表
set.seed(123)
sample_dt <- data.table(x = 1:3, y = 4:6)
my_list <- list(
  A = setNames(
    rep(list(sample_dt), 3),
    c("20240520123000", "20240520123000", "20240520123100")
  ),
  B = setNames(
    rep(list(sample_dt), 2),
    c("20240520123000", "20240520123200")
  )
)

2. 转换为结构化数据并处理重复时间戳

# 将双层列表转换为包含层级信息的扁平数据框
list_tbl <- enframe(my_list, name = "top_level", value = "sub_list") %>%
  mutate(sub_list = map(sub_list, ~enframe(.x, name = "orig_ts", value = "dt"))) %>%
  unnest(sub_list)

# 为重复时间戳添加毫秒后缀，生成唯一名称
list_tbl <- list_tbl %>%
  group_by(orig_ts) %>%
  mutate(
    ms_suffix = str_pad(row_number(), width = 3, pad = "0"),
    new_ts = paste0(orig_ts, ms_suffix)
  ) %>%
  ungroup()

3. 还原为双层列表并验证唯一性

# 重新整理回双层列表结构
processed_list <- list_tbl %>%
  group_by(top_level) %>%
  summarise(sub_list = setNames(map2(new_ts, dt, ~.y), new_ts)) %>%
  deframe()

# 验证所有第二层名称是否唯一
all(unlist(map(processed_list, names)) %>% duplicated() %>% sum() == 0)
# 输出：TRUE

4. 按顶层分类保存到对应文件夹

# 遍历顶层列表，创建对应文件夹并保存子data.table
walk2(names(processed_list), processed_list, function(top_name, sub_list) {
  dir.create(top_name, showWarnings = FALSE)
  walk2(names(sub_list), sub_list, function(ts_name, dt) {
    fwrite(dt, file.path(top_name, paste0(ts_name, ".csv")))
  })
})

方案优势 #

• 符合要求：未拼接顶层名称到第二层，新名称仍为标准时间戳格式（仅提升精度到毫秒）
• 高效批量处理：利用purrr和dplyr的管道操作，无需嵌套循环，代码简洁易维护
• 保留层级关联：处理后仍为双层列表结构，直接支持按顶层分类保存的需求

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