如何在R中读取列联表文件并保留维度名称

针对你批量读取带维度名称的列联表需求，以下是直接从csv文件中提取并保留行/列维度名称的方法，无需手动设置dimnames：

前提：明确你的csv格式 #

假设你的pets.csv结构如下（行维度名Color、列维度名Animal单独存储）：

,Animal
Color,猫,狗,鸟
黑色,2,3,1
白色,4,2,5

• 第一行：空单元格 + 列维度名称Animal
• 第二行：行维度名称Color + 列的具体类别
• 第三行及以后：行类别 + 对应数据

方法一：Base R 原生实现（无需额外包） #

写一个通用函数批量处理：

read_cont_table <- function(file) {
  # 读取文件所有行
  all_lines <- readLines(file)
  
  # 提取行/列维度名称
  col_dim_name <- strsplit(all_lines[1], ",")[[1]][2]
  row_dim_name <- strsplit(all_lines[2], ",")[[1]][1]
  
  # 读取核心数据部分
  table_data <- read.csv(text = all_lines[-c(1,2)], header = TRUE, row.names = 1)
  
  # 转换为矩阵并绑定维度名称属性
  table_matrix <- as.matrix(table_data)
  names(dimnames(table_matrix)) <- c(row_dim_name, col_dim_name)
  
  return(table_matrix)
}

# 单文件测试
mytable <- read_cont_table("pets.csv")

# 批量处理文件夹下所有csv
csv_list <- list.files(pattern = "\\.csv$")
all_tables <- lapply(csv_list, read_cont_table)
names(all_tables) <- sub("\\.csv$", "", csv_list)

验证：执行names(dimnames(mytable))会返回[1] "Color" "Animal"，完美保留维度名称。

方法二：用data.table加速批量处理（适合大量文件） #

如果文件数量多，data.table的fread效率更高：

library(data.table)

read_cont_table_dt <- function(file) {
  # 读取第一行获取列维度名
  col_dim <- fread(file, nrows = 1, header = FALSE)[[2]]
  # 读取数据（表头从第二行开始）
  dt <- fread(file, header = 2)
  
  # 提取行维度名
  row_dim <- colnames(dt)[1]
  # 转换为矩阵并设置维度属性
  table_matrix <- as.matrix(dt[, -1, with = FALSE])
  rownames(table_matrix) <- dt[[1]]
  names(dimnames(table_matrix)) <- c(row_dim, col_dim)
  
  return(table_matrix)
}

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