data = data.frame(rbind(c(0,0,1,1), c(1,1,0,0), c(1,1,0,0), c(1,1,1,0), c(1,1,1,1)))
colnames(data) = c("a","b", "c", "d")

data[data$a == 1 && data$b == 1 && data$c == 1, ] #attempt 1
data[data$a == data$b == 1, ] #attempt 2