R语言中提取包含自定字符的列

1、提取 包含s的列

dir()
dat <- read.table("a.txt")
dat                                 ## 测试数据

idx <- dat[1,] == "s"
idx
for (i in 2:nrow(dat)) {
  temp <- dat[i,] == "s"
  idx <- idx | temp                ## 提取所有包含s的列
}
idx
result <- dat[,idx]
result                             ## 结果文件