如何在R语言中指定位置为数据集添加行？

现有数据集 #

df=data.frame(country=c(rep("POL",4),rep("UK",4)),year=c(rep(2000:2003,2)),index=c(1.5,1.5,1.55,1.6,1.78,1.8,1.8,2))

期望输出 #

country year index
1      POL 2000  1.50
2      POL 2001  1.50
3      POL 2002  1.55
4      POL 2003  1.60
5      POL 2004    NA
6      POL 2005    NA
7      POL 2006    NA
8       UK 2000  1.78
9       UK 2001  1.80
10      UK 2002  1.80
11      UK 2003  2.00
12      UK 2004    NA
13      UK 2005    NA

已构造的辅助向量 #

v1=rep("POL",3)             
v2=2004:2006
v3=rep(NA,3)
v4=rep("UK",2)
v5=2004:2005
v6=rep(NA,2)

方法一：基础R原生实现 #

先把要插入的向量转换成和原数据框结构一致的子数据框：

# 构造POL的新增行数据框
pol_add <- data.frame(country = v1, year = v2, index = v3)
# 构造UK的新增行数据框
uk_add <- data.frame(country = v4, year = v5, index = v6)

通过拆分原数据框，在指定位置拼接子数据框：

# 按顺序拼接：POL原有行 → POL新增行 → UK原有行 → UK新增行
result <- rbind(
  df[1:4, ],    # 原数据中POL的4行
  pol_add,
  df[5:8, ],    # 原数据中UK的4行
  uk_add
)
# 重置行名，避免行名混乱
rownames(result) <- NULL

如果是大型数据集，可通过变量定义插入位置，避免硬编码行号：

# 定义第一个插入位置：在原POL数据最后一行（第4行）之后
pos_pol <- 4
# 定义第二个插入位置：在拼接POL新增行后的UK数据最后一行之后
pos_uk <- pos_pol + nrow(pol_add) + nrow(df[df$country == "UK", ])

result <- rbind(
  df[1:pos_pol, ],
  pol_add,
  df[(pos_pol+1):(pos_uk - nrow(pol_add)), ],
  uk_add
)
rownames(result) <- NULL

方法二：tidyverse（dplyr）实现 #

使用dplyr的add_row函数，可直接指定插入位置，代码更直观：

library(dplyr)

result <- df %>%
  # 在第4行后插入POL的新增行
  add_row(
    country = v1,
    year = v2,
    index = v3,
    .after = 4
  ) %>%
  # 在第11行后插入UK的新增行（此时UK原有行最后一行是第11行）
  add_row(
    country = v4,
    year = v5,
    index = v6,
    .after = 11
  )

两种方法都能精准控制插入位置，适配大型数据集的处理需求。

内容的提问来源于stack exchange，提问作者John M.