如何在R中重塑分块布局的分段数据框为标准长格式

数据框内的内容以固定尺寸的独立块横向并排排列，单块宽度为x列、标准高度为y行，布局支持任意横向、纵向块数，且最后一个块可能存在行数不足的情况，需要将所有块按读取顺序纵向拼接为单一规整长表。

使用基础reshape()函数做长宽转换无法达成目标，因为该方法仅按行列索引做对齐转换，无法识别横向相邻列组属于独立数据块的结构逻辑。

示例参数 #

• 示例配置：单块列数x=2，单块标准高度y=6
• 示例布局：横向并排2个块、纵向排布2组块的形态

原始输入数据 #

index v1 index v1
 1    a       7    a
 2    a       8    a
 3    d       9    x
 4    f      10    d
 5    f      11    d
 6    g      12    x
13    e      19    e
14    a      20    e
15    a      21    c
16    d      
17    c      
18    f      

预期输出数据 #

index   v1
1   a
2   a
3   d
4   f
5   f
6   g
7   a
8   a
9   x
10  d
11  d
12  x
13  e
14  a
15  a
16  d
17  c
18  f
19  e
20  e
21  c

可复用的实现逻辑 #

• 行拆分：将原始数据框的所有行按每y行为一组的规则拆分为独立行带，每个行带的高度固定为标准块高y
• 列拆分：在每个行带内部，将列按每x列为一组的规则拆分为独立块，忽略块之间的重复列名
• 空行清洗：逐个删除每个块内全部为空值的行，兼容最后一个块行数不足的场景
• 纵向拼接：将所有块按行带从先到后、块在带内从左到右的顺序上下拼接，重置行索引后即可得到最终结果

R语言实现示例 #

# 输入参数：df为原始数据框，x为单块列数，y为单块标准行数
reshape_block_df <- function(df, x, y) {
  # 按固定高度拆分出行带
  row_bands <- split(seq_len(nrow(df)), ceiling(seq_len(nrow(df))/y))
  block_list <- list()
  # 遍历每个行带
  for (band_idx in seq_along(row_bands)) {
    band_rows <- row_bands[[band_idx]]
    band_df <- df[band_rows, ]
    # 在当前行带内按固定宽度拆分出独立块
    block_cols <- split(seq_len(ncol(band_df)), ceiling(seq_len(ncol(band_df))/x))
    for (col_idx in block_cols) {
      block <- band_df[, col_idx]
      # 删除块内全空的无效行
      non_empty_rows <- rowSums(is.na(block)) != ncol(block)
      clean_block <- block[non_empty_rows, ]
      block_list <- append(block_list, list(clean_block))
    }
  }
  # 拼接所有块，统一列名与行索引
  out <- do.call(rbind, block_list)
  colnames(out) <- colnames(df)[seq_len(x)]
  rownames(out) <- NULL
  out
}

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