Вот несколько возможностей.
База R
i <- as.logical(with(dataset, ave(AC, Class, FUN = function(x) all(x == 0))))
dataset[i, ]
# Class AC
#4 generator 0
#7 generator 0
#9 generator 0
Просто Class
.
j <- with(dataset, tapply(AC, Class, FUN = function(x) all(x == 0)))
names(j)[j]
#[1] "generator"
И dplyr
решение.
library(dplyr)
dataset %>%
group_by(Class) %>%
filter(all(AC == 0))
## A tibble: 3 x 2
## Groups: Class [1]
# Class AC
# <fct> <dbl>
#1 generator 0
#2 generator 0
#3 generator 0
Данные.
dataset <- read.table(text = "
Class AC
eval 0.6
period 0.39
eval 0.0
generator 0.0
period 0.58
period 0.0
generator 0.0
eval 0.97
generator 0.0
", header = TRUE)