在R中如何按TABLE_NAME拆分表格生成对应命名的子表？

我来帮你搞定这个需求！在R里处理这种按表名拆分元数据、生成结构化目录的需求其实很简单，完全能满足你创建数据库表/同义词/视图目录的目标。下面是具体的实现步骤和代码：

1. 先准备你的元数据 #

首先假设你已经把元数据读入R中了，比如用read.csv()或者其他方式。如果还没构造数据，先模拟你的示例：

metadata <- data.frame(
  TABLE_NAME = c("table_1", "table_1", "table_1", "table_2", "table_2"),
  COLUM_NAME = c("DATA", "NAME", "SURNAME", "DATA", "PACK"),
  DATA_TYPE = c("DATE", "VARCHAR2", "VARCHAR2", "DATE", "NUMBER"),
  stringsAsFactors = FALSE
)

2. 按表名拆分子表 #

用R原生的split()函数就能快速按TABLE_NAME分组拆分，得到一个以表名为键的列表，每个元素对应一张子表：

# 拆分时只保留COLUM_NAME和DATA_TYPE字段，去掉TABLE_NAME
table_list <- split(metadata[, c("COLUM_NAME", "DATA_TYPE")], metadata$TABLE_NAME)

执行后，table_list里的每个元素就是对应表的字段信息，比如table_list$table_1就是table_1的所有字段和类型。

3. 输出成你要的格式 #

如果你想在控制台打印出指定格式的结果，可以写一个循环遍历列表：

for (table_name in names(table_list)) {
  # 打印表名
  cat("\n", table_name, "\n", sep = "")
  # 打印字段名行
  cat(paste(colnames(table_list[[table_name]]), collapse = " "), "\n")
  # 逐行打印字段数据
  for (row_idx in 1:nrow(table_list[[table_name]])) {
    cat(paste(table_list[[table_name]][row_idx, ], collapse = " "), "\n")
  }
}

运行这段代码后，控制台会输出：

table_1
COLUM_NAME DATA_TYPE
DATA DATE
NAME VARCHAR2
SURNAME VARCHAR2

table_2
COLUM_NAME DATA_TYPE
DATA DATE
PACK NUMBER

4. 保存为文件（可选） #

如果需要把每个子表保存成单独的文件用于整理目录，可以修改循环用write.table()：

for (table_name in names(table_list)) {
  file_name <- paste0(table_name, "_metadata.txt")
  # 先写入表名
  writeLines(table_name, con = file_name)
  # 写入字段表头和数据
  write.table(
    table_list[[table_name]],
    file = file_name,
    sep = " ",
    row.names = FALSE,
    quote = FALSE,
    append = TRUE
  )
}

这样每个表会生成一个单独的文本文件，内容就是你要的格式。

扩展到同义词/视图目录 #

如果后续你要加入同义词、视图的元数据，只需要在元数据表中添加OBJECT_TYPE字段（比如标记是TABLE/SYNONYM/VIEW），然后先按OBJECT_TYPE分组，再按TABLE_NAME拆分，就能分别生成不同类型对象的目录了。比如用tidyverse的风格：

library(dplyr)
library(purrr)

# 假设元数据表多了OBJECT_TYPE字段
metadata_with_type <- metadata %>%
  mutate(OBJECT_TYPE = "TABLE") # 这里可以替换成实际的类型

# 按对象类型和表名拆分
object_list <- metadata_with_type %>%
  group_split(OBJECT_TYPE, TABLE_NAME, .keep = FALSE) %>%
  set_names(paste(unique(metadata_with_type$OBJECT_TYPE), unique(metadata_with_type$TABLE_NAME), sep = "_"))

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