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 ## 结果文件