如何在R语言data.frame的零值行前插入空行（首行零不插入）

刚好碰到过类似的需求，给你整理了一个简单的实现方案，直接看代码和解释就行：

完整代码 #

# 原始数据
x <- c(0,1,1,0,1,1,1,0,1,1)
aaa <- data.frame(x)

# 定位所有零值行的索引，排除首行是零的情况
zero_indices <- which(aaa$x == 0)
zero_indices <- zero_indices[zero_indices != 1]

# 倒序插入空行（避免索引偏移问题）
for (i in rev(zero_indices)) {
  aaa <- rbind(aaa[1:(i-1), ], data.frame(x = NA), aaa[i:nrow(aaa), ])
}

# 打印时将NA显示为"."，匹配期望格式
print(aaa, na.print = ".")

代码解释 #

• 定位零值行：先用which()找出所有值为0的行索引，然后排除第一个位置（如果首行就是0，就不对它插入空行）
• 倒序插入的原因：如果正序插入空行，前面插入的行会让后面的行索引偏移，导致后续插入位置错误；倒序处理的话，后面的位置先处理，不会影响前面的索引
• 插入空行：用rbind()把插入位置前的行、包含NA的空行、插入位置及之后的行合并，这里用NA代表空值
• 格式化输出：通过print()的na.print参数把NA显示为"."，就能得到你想要的0 1 1 . 0 1 1 1 . 0 1 1格式

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