Skip to main content
adicionou 109 caracteres ao conteúdo
Fonte Link
Daniel Ikenaga
  • 929
  • 2
  • 10
  • 18
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', ]
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")


 
data[data[,3] != '' | data[,2] == 'Curso 3', ]
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', ]
removeu 17 caracteres do conteúdo
Fonte Link
Daniel Ikenaga
  • 929
  • 2
  • 10
  • 18
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")



data[data[,3] != '' | data[,4] != '' | data[,2] == 'Curso 3', ]
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")



data[data[,3] != '' | data[,4] != '' | data[,2] == 'Curso 3', ]
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")



data[data[,3] != '' | data[,2] == 'Curso 3', ]
Fonte Link
Daniel Ikenaga
  • 929
  • 2
  • 10
  • 18

A forma mais simples é utilizar um vetor lógico para selecionar suas linhas:

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")



data[data[,3] != '' | data[,4] != '' | data[,2] == 'Curso 3', ]

Resultado:

   MES EST.DET1 EST.DET2 EST.DET3 DIAS
1    2  Curso 1  Turma A    Manha    5
2    2  Curso 1  Turma A    Tarde    5
3    2  Curso 1  Turma B             5
5    2  Curso 2  Turma A             7
7    2  Curso 3                     10
8    3  Curso 1  Turma A    Manha    6
9    3  Curso 1  Turma A    Tarde    6
10   3  Curso 1  Turma B             6
12   3  Curso 2  Turma A             7
14   3  Curso 3                     13
15   4  Curso 1  Turma A    Manha    5
16   4  Curso 1  Turma A    Tarde    5
17   4  Curso 1  Turma B             5
19   4  Curso 2  Turma A             6
21   4  Curso 3                     10