在R语言中找到特定值后删除行并整理数据的方法

原始数据 #

col1 <- c('RESULTADOS','ID','result','RESULTADOS','ID','result','INFO ADICIONAL','ID','Extra','Extra2','RESULTADOS','ID','result')
col2 <- c('','1','f','','2','f','','2','q','w','','3','m')
df2 <- data.frame(col1,col2)

解决方案步骤 #

1. 定位并删除无关行
   先找到所有标记为INFO ADICIONAL的行，再标记该行及后续3行作为删除对象（避免超出行数范围）：

# 定位"INFO ADICIONAL"的行位置
info_pos <- which(df2$col1 == "INFO ADICIONAL")
# 生成要删除的行号范围
remove_pos <- unlist(lapply(info_pos, function(x) x:(x+3)))
remove_pos <- remove_pos[remove_pos <= nrow(df2)]

# 删除指定行
temp_df <- df2[-remove_pos, ]

2. 清理无用标题行
   过滤掉col1为RESULTADOS的空标题行：

clean_df <- temp_df[temp_df$col1 != "RESULTADOS", ]

3. 调整列名匹配期望结构

colnames(clean_df) <- c("Datos", "col2")

最终结果 #

运行后得到的clean_df即为目标结构：

> clean_df
    Datos col2
2      ID    1
3  result    f
5      ID    2
6  result    f
12     ID    3
13 result    m

方法说明 #

直接用filter(!col1 %in% ...)只能过滤特定值，但无法关联删除INFO ADICIONAL对应的后续行，导致残留无关的ID行。通过定位标记行再批量删除整段无关内容，能彻底清理冗余数据。

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