Используя следующие данные,
data <- data.frame(row.names = c("Nigel", "John", "Martha"),
MATH = c("A", "C", "A"),
LANG = c("B", "C", "A"),
GYMN = c("C", "A", "A"),
LIT = c("A", "B", "A"),
SOC = c("C", "C", "A"))
Мы можем применить наш тест к каждой строке данных (есть более эффективные способы, но это очень поучительно),
rst <- apply(data, 1, function(x) which(x == "B" | x == "C"))
$Nigel
LANG GYMN SOC
2 3 5
$John
MATH LANG LIT SOC
1 2 4 5
$Martha
named integer(0)
Возвращает список с соответствующими предметами, используйте, например, rst$Nigel
, чтобы получить соответствующую информацию о студентах