Skip to main content
Esqueceu de carregar o pacote `magrittr`, necessário para rodar o código.
Fonte Link

Em stringr você precisa inserir [] dentro das funções para que o caractere seja reconhecido. Ficaria assim para a variável telefone:

library(stringr)

str_replace_all(cadastros$telefone,'[()]',' ') # o último argumento é o espaço a ser inserido: ' '

#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812" 

Para aplicar esta função a todas as variáves (como você tentou), faça:

cadastros%>%library(magrittr)

cadastros %>%
    sapply(function(x){
        str_replace_all(x,'[()]',' ')
    })

    # email                        telefone        
#[1,] "[email protected]"      " 61 99831-9482"
#[2,] "[email protected]"         "32 8976 2913"  
#[3,] "[email protected]"           "62-9661-1234"  
#[4,] "[email protected]" "15-40192.5812" 

Em stringr você precisa inserir [] dentro das funções para que o caractere seja reconhecido. Ficaria assim para a variável telefone:

library(stringr)

str_replace_all(cadastros$telefone,'[()]',' ') # o último argumento é o espaço a ser inserido: ' '

#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812" 

Para aplicar esta função a todas as variáves (como você tentou), faça:

cadastros%>%
    sapply(function(x){
        str_replace_all(x,'[()]',' ')
    })

    # email                        telefone        
#[1,] "[email protected]"      " 61 99831-9482"
#[2,] "[email protected]"         "32 8976 2913"  
#[3,] "[email protected]"           "62-9661-1234"  
#[4,] "[email protected]" "15-40192.5812" 

Em stringr você precisa inserir [] dentro das funções para que o caractere seja reconhecido. Ficaria assim para a variável telefone:

library(stringr)

str_replace_all(cadastros$telefone,'[()]',' ') # o último argumento é o espaço a ser inserido: ' '

#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812" 

Para aplicar esta função a todas as variáves (como você tentou), faça:

library(magrittr)

cadastros %>%
    sapply(function(x){
        str_replace_all(x,'[()]',' ')
    })

    # email                        telefone        
#[1,] "[email protected]"      " 61 99831-9482"
#[2,] "[email protected]"         "32 8976 2913"  
#[3,] "[email protected]"           "62-9661-1234"  
#[4,] "[email protected]" "15-40192.5812" 
adicionou 40 caracteres ao conteúdo
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

Em stringr você precisa inserir [] dentro das funções para que o caractere seja reconhecido. Ficaria assim para a variável telefone:

library(stringr)

str_replace_all(cadastros$telefone,'[()]',' ') # o último argumento é o espaço a ser inserido: ' '

#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812" 

Para aplicar esta função a todas as variáves (como você tentou), faça:

cadastros%>%
    lapplysapply(function(x){
        str_replace_all(x,'[()]',' ')
    })
 
#$email
#[1] "[email protected]"   # email  "[email protected]"        
#[3] "[email protected]"           "juliana.morais@outlook  telefone        
#[1,] "joaodasilva@gmail.com"

#$telefone
#[1]      " 61 99831-9482"
#[2,] "[email protected]"         "32 8976 2913"  
#[3,] "[email protected]"           "62-9661-1234"  
#[4,] "[email protected]" "15-40192.5812" 

Em stringr você precisa inserir [] dentro das funções para que o caractere seja reconhecido. Ficaria assim para a variável telefone:

library(stringr)

str_replace_all(cadastros$telefone,'[()]',' ') # o último argumento é o espaço a ser inserido: ' '

#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812" 

Para aplicar esta função a todas as variáves (como você tentou), faça:

cadastros%>%
    lapply(function(x){
        str_replace_all(x,'[()]',' ')
    })
 
#$email
#[1] "[email protected]"      "[email protected]"        
#[3] "[email protected]"           "juliana.morais@outlook.com"

#$telefone
#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812" 

Em stringr você precisa inserir [] dentro das funções para que o caractere seja reconhecido. Ficaria assim para a variável telefone:

library(stringr)

str_replace_all(cadastros$telefone,'[()]',' ') # o último argumento é o espaço a ser inserido: ' '

#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812" 

Para aplicar esta função a todas as variáves (como você tentou), faça:

cadastros%>%
    sapply(function(x){
        str_replace_all(x,'[()]',' ')
    })

    # email                        telefone        
#[1,] "joaodasilva@gmail.com"      " 61 99831-9482"
#[2,] "[email protected]"         "32 8976 2913"  
#[3,] "[email protected]"           "62-9661-1234"  
#[4,] "[email protected]" "15-40192.5812" 
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

Em stringr você precisa inserir [] dentro das funções para que o caractere seja reconhecido. Ficaria assim para a variável telefone:

library(stringr)

str_replace_all(cadastros$telefone,'[()]',' ') # o último argumento é o espaço a ser inserido: ' '

#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812" 

Para aplicar esta função a todas as variáves (como você tentou), faça:

cadastros%>%
    lapply(function(x){
        str_replace_all(x,'[()]',' ')
    })

#$email
#[1] "[email protected]"      "[email protected]"        
#[3] "[email protected]"           "[email protected]"

#$telefone
#[1] " 61 99831-9482" "32 8976 2913"   "62-9661-1234"   "15-40192.5812"