Tenho um vetor com todos os possíveis valores que aparecem num conjunto de colunas de um data frame. O numero de componentes no vetor é diferente do numero de observações do data frame.
Meu objetivo é identificar as observações inválidas no data frame. A solução abaixo funcionou, mas não estou satisfeito pois gostaria de não usar o for
para loop.
DF
é um data frame com 4 colunas nomeadas de da1
a da4
e 9 linhas de observações. DF
foi importada de uma planilha excel, bem como "check" que é uma tabela excel com uma única coluna.
str(DF)
DF1 <- DF
DF1 <- as.data.frame(DF) # transformo DF em data frame
str(DF1)
result
é um vetor lógico de comprimento igual ao número de linhas de observações de DF1
.
result1
é um data frame lógico obtido de DF
.
result <- logical(length=9)
result1 <- as.data.frame(result)
O loop abaixo verifica se cada coluna de DF1
possui ou não algum elemento de "check". result1
é o data frame lógico resultante.
for (col in 1:4) {
diag <- DF1[, col]
result1[,col] <- is.element(diag,check)
}
result1
result1 <- sapply(DF1, function(x) x %in% check)
.