17

Eu preciso saber como remover os acentos de um dado em uma coluna.

# Eu tentei
> library(stringr)
> a <- dados$Municipio[2]
> a
[1] "Arapeí"
> str_replace_all(a, "[í]", "i")
[1] "Arapeí"


# outra tentativa
> iconv(a, to="ASCII//TRANSLIT")
[1] NA

Alguém pode me ajudar?

3
  • 5
    Lucas, os seus dois exemplos funcionaram no meu computador. Você poderia colocar o resultado de Sys.getlocale() da sua máquina? Commented 11/01/2015 às 3:22
  • Inclusive existe uma pergunta no StackOverflow em inglês que utiliza a mesma função.[stackoverflow.com/questions/20495598/…. Commented 20/01/2015 às 1:48
  • Era para o iconv() ter funcionado
    – Rcoster
    Commented 9/10/2015 às 19:44

7 Respostas 7

19

Há um tempo atrás montei essa função pra tirar acentos. Nunca me deixou na mão.

rm_accent <- function(str,pattern="all") {
  # Rotinas e funções úteis V 1.0
  # rm.accent - REMOVE ACENTOS DE PALAVRAS
  # Função que tira todos os acentos e pontuações de um vetor de strings.
  # Parâmetros:
  # str - vetor de strings que terão seus acentos retirados.
  # patterns - vetor de strings com um ou mais elementos indicando quais acentos deverão ser retirados.
  #            Para indicar quais acentos deverão ser retirados, um vetor com os símbolos deverão ser passados.
  #            Exemplo: pattern = c("´", "^") retirará os acentos agudos e circunflexos apenas.
  #            Outras palavras aceitas: "all" (retira todos os acentos, que são "´", "`", "^", "~", "¨", "ç")
  if(!is.character(str))
    str <- as.character(str)

  pattern <- unique(pattern)

  if(any(pattern=="Ç"))
    pattern[pattern=="Ç"] <- "ç"

  symbols <- c(
    acute = "áéíóúÁÉÍÓÚýÝ",
    grave = "àèìòùÀÈÌÒÙ",
    circunflex = "âêîôûÂÊÎÔÛ",
    tilde = "ãõÃÕñÑ",
    umlaut = "äëïöüÄËÏÖÜÿ",
    cedil = "çÇ"
  )

  nudeSymbols <- c(
    acute = "aeiouAEIOUyY",
    grave = "aeiouAEIOU",
    circunflex = "aeiouAEIOU",
    tilde = "aoAOnN",
    umlaut = "aeiouAEIOUy",
    cedil = "cC"
  )

  accentTypes <- c("´","`","^","~","¨","ç")

  if(any(c("all","al","a","todos","t","to","tod","todo")%in%pattern)) # opcao retirar todos
    return(chartr(paste(symbols, collapse=""), paste(nudeSymbols, collapse=""), str))

  for(i in which(accentTypes%in%pattern))
    str <- chartr(symbols[i],nudeSymbols[i], str)

  return(str)
}
9

Utilize essa função:

fa <- function(x) iconv(x, to = "ASCII//TRANSLIT")

fa(c("pelé","época"))

[1] "pele"  "epoca"
5

Função stri_trans_general do pacote stringi

stri_trans_general("Arapeí", "Latin-ASCII")
3

Ja tentou usar a função gsub?

O uso é: gsub(padrao a ser substituido, padrao usado na substituicao, string)

Por exemplo:

coluna = c("aaaí","eeeeí","ooooí")

gsub("í", "i", coluna)

[1] "aaai"  "eeeei" "ooooi"
3

Eu gosto desta forma:

s <- c("ájakla","ééhasj", "hsíklf", "fdhjó")
chartr("áéíó", "aeio", s)
[1] "ajakla" "eehasj" "hsiklf" "fdhjo" 

Dessa forma é só ir adicionando os caracteres acentuados e suas substituições em ordem.

0

ha algum tempo eu desenvolvi esta solução para meu ambiente PHP,

function changeLetters($string, $down = true){

        $letters = array(
            'A'=>array('@','â','ä','à','å','Ä','Å','á','ª','Á','Â','À','ã','Ã'),
            'E'=>array('&','é','ê','ë','è','É','£','Ê','Ë','È'),
            'I'=>array('!','ï','î','ì','¡','Í','Î','Ï','Ì','í'),
            'O'=>array('ô','ö','ò','Ö','ø','Ø','ó','º','¤','ð','Ó','Ô','Ò','õ','Õ'),
            'U'=>array('ü','û','ù','Ü','ú','µ','Ú','Û','Ù'),
            'B'=>array('ß'),
            'C'=>array('Ç','ç','©','¢'),
            'D'=>array('Ð'),
            'F'=>array('ƒ'),
            'L'=>array('¦'),
            'N'=>array('ñ','Ñ'),
            'S'=>array('$','§'),
            'X'=>array('×'),
            'Y'=>array('ÿ','¥','ý','Ý'),
            'AE'=>array('æ','Æ'),
            'P'=>array('þ','Þ'),
            'R'=>array('®'),
            '0'=>array('°'),
            '1'=>array('¹','ı'),
            '2'=>array('²'),
            '3'=>array('³'),
        );

        foreach ($letters as $letter => $change){
            if($down){ $letter = down($letter); }
            $string = str_replace($change, $letter, $string);
        }

        return $string;
    }

Sei que sua pergunta se baseia em linguagem r, mas postei mais como auxilio para as possíveis variante de letras.

-1

Eu encontrei este código que é muito simples e funcionou.

x = chartr("ÁÉÍÓÚ", "AEIOU", x)
1
  • 2
    Mas e quanto aos outros acentos?
    – Woss
    Commented 4/07/2019 às 17:26

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .