Só com R base
é possível fazer isso.
Vou apresentar duas soluções com uso de ifelse
:
data_1 <- sapply(X = Dados[c(2:6)], FUN = function(x) {
ifelse(test = x < 0, 0, x)
})
data_1
A B C D E
[1,] 4 3 0 2 4
[2,] 1 0 1 0 1
[3,] 0 0 2 3 4
[4,] 2 4 5 0 9
Note que neste caso é preciso saber os índices dos vetores dentro do data.frame
. Ou seja, tem de fazer isso: X = Dados[c(2:6)]
.
Mas, suponha que você queira substituir por zeros apenas das variáveis que tenham uma determinada classe, como integer
(vetor de números inteiros). Com rapply
você faz isso:
data_2 <- rapply(object = Dados, classes = c('integer'), how = 'replace', f = function(x) {
ifelse(test = x < 0, 0, x)
})
data_2
Linha A B C D E
1 L1 4 3 0 2 4
2 L2 1 0 1 0 1
3 L3 0 0 2 3 4
4 L4 2 4 5 0 9
Uma solução mais simples, se você sabe que a primeira variável não é númerica, é esta:
Dados[-c(1)][Dados[-c(1)] < 0] <- 0
Dados
Linha A B C D E
1 L1 4 3 0 2 4
2 L2 1 0 1 0 1
3 L3 0 0 2 3 4
4 L4 2 4 5 0 9