R——批量查找表格所有行中＞5的列，并返回第一列

Q：如图，有一张表。

image.png

求：每一行中，在1-15列中，第一个的＞5所在的列。

解决办法：

①Excel，条件格式→突出显示单元格规则→大于5
②R语言

{
  rm(list=ls())
  getwd()
  setwd("C:/Users/14215/Desktop")
}

library(readxl)
dataset <- read_excel("示例文件.xlsx", sheet = 1)
View(dataset)
dat <- dataset

n<-dim(dat)[1]
ss<-data.frame()
for(i in 1:n){
  ss[i,1]<-6*min(which(dat[i,6:31]>=5))
}
ss

核心代码：

n<-dim(dat)[1]
ss<-data.frame()
for(i in 1:n){
  ss[i,1]<-6*min(which(dat[i,6:31]>=5))
}
ss

结果展示：

image.png