如何查找包含特定部分字符串行的列索引？

嘿，完全懂你处理PDF表格时的困扰！不同页面的表格排版不一样，同一个信息一会儿在第2列，一会儿又跑到第1列，得准确找到对应的列索引才行对吧？

先拿你给的示例数据来演示，咱们用tidyverse工具来解决这个问题：

# 加载tidyverse包
library(tidyverse)

# 示例数据框
df <- data.frame(   
   v1 = c("a", "b", "c", "d", "e"),
   v2 = c("x", "y", "a", "z", "f"),
   v3 = c("x", "y", "a", "z", "s"),
   v4 = c("w", "c", "q", "p", "r")
 )

情况1：找出所有包含目标部分字符串的列的索引 #

比如我们要找所有包含子串"a"的列，不管它在第几行，可以这么做：

# 定义要查找的目标子串
target <- "a"

# 遍历每一列，检查是否有元素包含目标子串，再提取列索引
col_indices <- which(map_lgl(df, ~ any(str_detect(.x, target))))

# 查看结果
col_indices
# 输出：1 2 3

这里的逻辑很简单：map_lgl会挨个检查df的每一列，str_detect负责判断元素里有没有我们要找的子串，any确认该列至少有一个符合条件的元素，最后which把符合条件的列位置揪出来。

情况2：找某一行中包含目标字符串的列索引 #

如果是想定位某一行里目标字符串所在的列（比如第3行里的"a"），那就换个写法：

# 指定要查找的行号
target_row <- 3

# 找出该行中包含目标子串的列索引
row_col_indices <- which(str_detect(df[target_row, ], target))

# 查看结果
row_col_indices
# 输出：2 3

这段代码直接定位到目标行，然后检查该行的每个列元素是否匹配，最后返回对应的列索引。

这样不管是找全表符合条件的列，还是某一行里的目标列，都能轻松搞定啦！

备注：内容来源于stack exchange，提问作者Nigel Stackhouse