如何在R中创建由不等长向量组成的不规则数据框/表格？

核心思路 #

• 将每个样本的三个向量整理为列对齐的长格式数据框（长度不足的补空值），再根据需求调整为不规则表格样式
• 封装处理逻辑为函数，通过循环批量遍历所有样本完成处理

代码实现（R语言） #

1. 构造模拟样本数据 #

先创建包含多个样本的列表，每个样本包含三个长度不同的字符向量：

# 构造3个模拟样本（实际可替换为你的数十个样本数据）
samples <- list(
  Sample_01 = list(
    Shared = c("物种A", "物种B", "物种C"),
    eDNA = c("物种D", "物种E"),
    DNet = c("物种F")
  ),
  Sample_02 = list(
    Shared = c("物种X", "物种Y"),
    eDNA = c("物种M", "物种N", "物种O", "物种P"),
    DNet = c("物种Q", "物种R")
  ),
  Sample_03 = list(
    Shared = character(0),
    eDNA = c("物种K"),
    DNet = c("物种L", "物种Z", "物种W")
  )
)

2. 单个样本处理函数 #

编写函数将三个向量转换为可生成不规则表格的数据结构，采用补空值对齐列的方式，保证输出表格的可读性：

process_sample <- function(sample_data) {
  # 获取三个向量的最大长度，作为表格的行数
  max_row <- max(length(sample_data$Shared), length(sample_data$eDNA), length(sample_data$DNet))
  # 补全向量长度，不足的位置填充空字符串
  Shared_pad <- c(sample_data$Shared, rep("", max_row - length(sample_data$Shared)))
  eDNA_pad <- c(sample_data$eDNA, rep("", max_row - length(sample_data$eDNA)))
  DNet_pad <- c(sample_data$DNet, rep("", max_row - length(sample_data$DNet)))
  # 转换为数据框
  data.frame(
    Shared = Shared_pad,
    eDNA = eDNA_pad,
    DNet = DNet_pad,
    stringsAsFactors = FALSE
  )
}

3. 批量处理并输出表格 #

用循环遍历所有样本，调用处理函数后输出Markdown格式的表格（依赖knitr包生成美观表格）：

library(knitr)

for (sample_name in names(samples)) {
  # 输出样本标题
  cat(paste0("## ", sample_name, " 物种分布表\n"))
  # 处理当前样本数据
  sample_table <- process_sample(samples[[sample_name]])
  # 输出表格
  print(kable(sample_table, align = "c", caption = paste(sample_name, "的Shared/eDNA/DNet物种分布")))
  # 用分隔线区分不同样本
  cat("\n---\n")
}

输出效果示例 #

以Sample_01为例，输出的不规则表格如下：

Sample_01 物种分布表 #

Shared	eDNA	DNet
物种A	物种D	物种F
物种B	物种E
物种C

如果需要更复杂的不规则样式（如单元格合并、表头跨列），可以结合kableExtra包的column_spec、row_spec等函数自定义调整。

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