data <- c("2", "Curso 1", "Turma A", "Manha", "5",
"2", "Curso 1", "Turma A", "Tarde", "5",
"2", "Curso 1", "Turma B", "", "5",
"2", "Curso 1", "", "", "15",
"2", "Curso 2", "Turma A", "", "7",
"2", "Curso 2", "", "", "7",
"2", "Curso 3", "", "", "10",
"3", "Curso 1", "Turma A", "Manha", "6",
"3", "Curso 1", "Turma A", "Tarde", "6",
"3", "Curso 1", "Turma B", "", "6",
"3", "Curso 1", "", "", "18",
"3", "Curso 2", "Turma A", "", "7",
"3", "Curso 2", "", "", "7",
"3", "Curso 3", "", "", "13",
"4", "Curso 1", "Turma A", "Manha", "5",
"4", "Curso 1", "Turma A", "Tarde", "5",
"4", "Curso 1", "Turma B", "", "5",
"4", "Curso 1", "", "", "15",
"4", "Curso 2", "Turma A", "", "6",
"4", "Curso 2", "", "", "6",
"4", "Curso 3", "", "", "10")
data <- data.frame(matrix(data, ncol = 5, byrow = TRUE))
names(data) <- c("MES", "EST.DET1", "EST.DET2", "EST.DET3", "DIAS")
Na execução abaixo, seleciono as linhas que não estejam vazias na coluna 3 ou que contenha 'Curso 3' na coluna 2.
data[data[,3] != '' | data[,2] == 'Curso 3', ]