R语言在dataframe指定位置插入空行，循环插入偏移问题如何解决

问题根源 #

错位问题核心原因有两点：

1. R的for循环在启动时会读取一次遍历向量的全部值，后续循环体内对该向量的修改不会影响已经确定的遍历序列
2. 顺序插入时，每插入1行，插入位置之后的所有行号都会+1，直接使用原始行号会出现偏移

解决方案1：倒序遍历插入（最简洁） #

直接从最大的待插入位置开始倒序插入，插入靠后的行时不会改变靠前位置的行号，完全不需要手动计算偏移：

# 加载需要的包（add_row属于tibble包，tidyverse已包含）
library(tidyverse)

# 初始数据
df <- data.frame(var1 = c(1,2,3,4,5,6,7,8,9),
                 var2 = c(9,8,7,6,5,4,3,2,1))
rows <- c(1,3,5)

# 倒序遍历插入空行
for (i in rev(rows)) {
  df <- add_row(df, .after = i)
}

解决方案2：顺序插入+偏移量计算 #

如果一定要用顺序插入，可以单独维护偏移计数器，每插入一行偏移量+1，计算实际插入位置：

insert_offset <- 0
for (i in rows) {
  # 实际插入位置 = 原始位置 + 已插入的行数偏移
  df <- add_row(df, .after = i + insert_offset)
  insert_offset <- insert_offset + 1
}

结果验证 #

两种方案执行后，调用print(df)即可看到第1、3、5行后各生成了一行全NA的空行，直接传入flextable生成表格即可。

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