如何用R自动识别目标行名并删除含$符号的列？

我从维基百科提取了表格数据，核心处理需求是：找到第一列中名为total costs或total current costs的行，删除该行里值为$的列。之前的代码需要手动指定行名，现在要实现自动化处理的函数。

示例数据 #

df1 <- data.frame(col1=c('', 'total costs', 'liability'),
                 col2=c("", 1000, 500),
                 col3=c("", '$', ""),
                 col4=c("", '$', 500))

df2 <- data.frame(col1=c('', 'total current costs', 'liability'),
                 col2=c("", 1000, 500),
                 col3=c("", '$', ""),
                 col4=c("", '$', 500))

自动化处理函数 #

以下函数可以自动匹配目标行并完成列删除：

clean_wiki_table <- function(df) {
  # 用正则匹配第一列中以total开头、costs结尾的行（忽略大小写）
  target_row <- which(grepl("^total.*costs$", df$col1, ignore.case = TRUE))
  # 筛选出目标行中值为$的列索引
  cols_to_remove <- which(df[target_row, ] == '$')
  # 删除指定列，drop=FALSE确保结果始终为数据框格式
  df[, -cols_to_remove, drop = FALSE]
}

函数逻辑说明 #

• 正则表达式^total.*costs$可以同时匹配total costs和total current costs，还能兼容大小写差异（比如大写开头的情况）
• 找到目标行后，定位该行内值为$的列，最后直接删除这些列
• drop=FALSE参数避免只剩一列时结果自动转为向量，保证输出始终是数据框

测试验证 #

运行函数处理示例数据：

# 处理df1
clean_wiki_table(df1)
# 处理df2
clean_wiki_table(df2)

两次处理结果都会保留col1和col2列，符合预期需求。

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