如何基于索引编号拆分数据框？R语言新手求助

嘿，刚学R的时候我也踩过一模一样的坑！问题出在R的行索引是从1开始的，不是你习惯的0起始逻辑～

你写的df[c(0:28120),]会把不存在的第0行也包含进去，R会自动把这行填充为0，导致后续汇总时这些无效行也被算进去了。下面给你几个靠谱的解决方案：

方案1：修正基础索引写法 #

直接把起始索引改成1，并且用nrow(df)代替手动输入的总行数，避免数错或者后续数据行数变化时还要改代码：

# 取前28120行
df.tory <- df[1:28120, ]
# 取剩余所有行
df.labour <- df[28121:nrow(df), ]

方案2：用dplyr的slice函数（更直观） #

如果你习惯用tidyverse工具包，slice函数可以更清晰地指定行范围，代码可读性更高：

library(dplyr)

# 前28120行
df.tory <- df %>% slice(1:28120)
# 从28121行到最后一行（n()代表当前数据框的总行数）
df.labour <- df %>% slice(28121:n())

方案3：一次性拆分（适合批量操作） #

如果想一步完成拆分，可以先创建分组标记，再用split函数拆分：

# 创建分组变量：前28120行标记为tory，其余为labour
group_tag <- ifelse(1:nrow(df) <= 28120, "tory", "labour")
# 拆分数据框为列表
split_df <- split(df, group_tag)
# 从列表中提取两个数据框
df.tory <- split_df$tory
df.labour <- split_df$labour

最后可以验证一下：用nrow(df.tory) + nrow(df.labour)看看是不是等于nrow(df)，确保没有多余的行～

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