重新排列data.frame的行名称(非字母)

# 创建一个示例data.frame
df <- data.frame(
  "行1" = c(1, 2, 3),
  "行2" = c(4, 5, 6),
  "行3" = c(7, 8, 9)
)

# 获取当前的行名称
row_names <- rownames(df)

# 自定义排序规则，这里使用数字的大小进行排序
sorted_row_names <- row_names[order(as.numeric(gsub("行", "", row_names)))]

# 将排序后的行名称重新赋值给data.frame
rownames(df) <- sorted_row_names

# 打印重新排列后的data.frame
print(df)