001、
a <- c(0, 0, 0, 0)
b <- c(9, -8, -15, 54)
c <- c(8, 2, 8, 9)
d <- c(0, 0, 0, 0)
dat <- data.frame(a, b, c, d) ## 测试数据框
dat
result <- vector()
for (i in 1:ncol(dat)) {
if (all(dat[,i] == 0)) { ## 判断数据框的哪一列全部为0
result <- c(result, i)
}
}
result
002、应用于行
a <- c(5, 0, 7, 0)
b <- c(9, 9, 9, 9)
c <- c(9, 9, 9, 9)
d <- c(7, 0, 9, 9)
dat <- rbind(a, b, c, d) ## 测试数据框
dat
result <- vector()
for (i in 1:nrow(dat)) {
if(all(dat[i,] == 9)) ## 判断那些行全部为9
{
result <- c(result, i)
}
}
result
标签：于行,语言,框列,指定,002,001 From： https://www.cnblogs.com/liujiaxin2018/p/16667246.html