R语言中如何按行名将指定行移动至data frame的指定位置

核心实现逻辑 #

通过调整行名的顺序实现行的重排，其余行保留原有相对顺序，仅移动目标行到指定位置。

通用函数代码 #

# 参数说明：
# df: 待处理的data frame
# row_name: 要移动的行的行名
# target_pos: 目标位置，从1开始计数
move_row_to_position <- function(df, row_name, target_pos) {
  all_rownames <- rownames(df)
  # 匹配目标行的当前位置
  current_idx <- which(all_rownames == row_name)
  # 构造新的行名顺序：移除原位置目标行后插入到目标位置
  new_order <- append(all_rownames[-current_idx], values = row_name, after = target_pos - 1)
  # 按新顺序重排数据框
  return(df[new_order, ])
}

测试示例 #

示例1：将行d移动到第2位 #

df1 <- move_row_to_position(df, "d", 2)
print(df1)

输出结果：

V1  V2 V3 V4
a   5   7  9 11
d  -4  -1 -6  3
b  -8 -10 -3 -1
c  -4  -1 -6  3

示例2：将行c移动到第1位 #

df2 <- move_row_to_position(df, "c", 1)
print(df2)

输出结果：

V1  V2 V3 V4
c  -4  -1 -6  3
a   5   7  9 11
b  -8 -10 -3 -1
d  -4  -1 -6  3

注意事项 #

该实现默认数据框行名唯一，若存在重复行名，which会返回所有匹配的位置，可根据需求调整匹配逻辑筛选对应行即可。

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