Skip to main content
removeu 3 caracteres do conteúdo
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

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[1][Dados[-c(1)]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

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

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 = '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[-1][Dados[-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
adicionou 253 caracteres ao conteúdo
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

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

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

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
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

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