Трудно обойтись без какого-либо примера кодирования, но это пример того, что вы могли бы сделать:
library(data.table)
dt <- data.table(ID = 1:5, Q1 = c(1,4,2,2,3), Q2 = c(4,4,3,5,3), Q3 = c(5,4,1,5,5),
Q4 = c(5,3,4,3,3), Q5 = c(5,5,2,5,4), Q6 = c(2,1,4,4,5))
dt[, Qx := ifelse(rowSums(dt[, -1] >= 4) >= 4, T, F)]
Что приводит к этому: