1
library(tidyverse)

Suponha o seguinte dataset:

funcionarios <- data.frame(
  stringsAsFactors = FALSE,
              nome = c("Claudio Roberto",
                       "Regina Marinho","Weronica Souza","Rogerio Lemos","Claudio Araujo"),
             setor = c("RH", "Recepção", "Almoxarifado", "RH", "RH"))
funcionarios
             nome        setor
1 Claudio Roberto           RH
2  Regina Marinho     Recepção
3  Weronica Souza Almoxarifado
4   Rogerio Lemos           RH
5  Claudio Araujo           RH

Os nomes "Cláudio", "Werônica" e "Rogério" não estão devidamente acentuados.

Além disso, o sobrenome "Araújo" (de Cláudio) também carece de acento.

Tentei resolver com str_replace():

Primeiro para Cláudio:

> funcionarios %>% 
+   mutate(nome_acentuado = str_replace(nome,
+                                       pattern = "Claudio",
+                                       replacement = "Cláudio"))

Observe que os dois Cláudio foram devidamente acentuados.

             nome        setor  nome_acentuado
1 Claudio Roberto           RH Cláudio Roberto
2  Regina Marinho     Recepção  Regina Marinho
3  Weronica Souza Almoxarifado  Weronica Souza
4   Rogerio Lemos           RH   Rogerio Lemos
5  Claudio Araujo           RH  Cláudio Araujo

Ocorre que ao tentar replicar essa lógica para os demais nomes, apenas a última alteração é considerada.

Por exemplo, ao tentar com Cláudio e Werônica:

> funcionarios %>% 
+   mutate(nome_acentuado = str_replace(nome,
+                                       pattern = "Claudio",
+                                       replacement = "Cláudio"),
+          nome_acentuado = str_replace(nome,
+                                       pattern = "Weronica",
+                                       replacement = "Werônica"))

Observe que os Cláudios perderam os acentos e apenas Werônica está acentuado:

             nome        setor  nome_acentuado
1 Claudio Roberto           RH Claudio Roberto
2  Regina Marinho     Recepção  Regina Marinho
3  Weronica Souza Almoxarifado  Werônica Souza
4   Rogerio Lemos           RH   Rogerio Lemos
5  Claudio Araujo           RH  Claudio Araujo

A mesma coisa, quando tento acentuar Rogério:

> funcionarios %>% 
+   mutate(nome_acentuado = str_replace(nome,
+                                       pattern = "Claudio",
+                                       replacement = "Cláudio"),
+          nome_acentuado = str_replace(nome,
+                                       pattern = "Weronica",
+                                       replacement = "Werônica"),
+          nome_acentuado = str_replace(nome,
+                                       pattern = "Rogerio",
+                                       replacement = "Rogério"))

Rogério agora está acentuado e os Cláudios e Werônica não estão mais.

             nome        setor  nome_acentuado
1 Claudio Roberto           RH Claudio Roberto
2  Regina Marinho     Recepção  Regina Marinho
3  Weronica Souza Almoxarifado  Weronica Souza
4   Rogerio Lemos           RH   Rogério Lemos
5  Claudio Araujo           RH  Claudio Araujo

E o que dizer então de Cláudio Araújo? Como acentuar ambas as palavras que estão na mesma string?

2 Respostas 2

3

Uma opção é usar a função stringr::str_replace_all().

Como aparece na documentação da função, pode criar um vector com o padrão para realizar a substituição

library(dplyr)
library(stringr)

pattern = c("Claudio" = "Cláudio",
            "Weronica" = "Werônica",
            "Rogerio" = "Rogério")

Depois utilizar esse vector na função para criar uma nova coluna:

df %>%
    mutate(nom2 = str_replace_all(nome, pattern))

Output

    nome        setor            nom2
1 Claudio Roberto           RH Cláudio Roberto
2  Regina Marinho     Recepção  Regina Marinho
3  Weronica Souza Almoxarifado  Werônica Souza
4   Rogerio Lemos           RH   Rogério Lemos
5  Claudio Araujo           RH  Cláudio Araujo

Dados:

> dput(df)
structure(list(nome = c("Claudio Roberto", "Regina Marinho", 
"Weronica Souza", "Rogerio Lemos", "Claudio Araujo"), setor = c("RH", 
"Recepção", "Almoxarifado", "RH", "RH")), class = "data.frame", row.names = c(NA, 
-5L))
10
  • 2
    Não entendi porque o voto negativo na minha resposta. Há algum tipo de problema no código? Agradeço comentaŕios.
    – Jose
    18/02/2022 às 20:02
  • Creio que seja pq faltou uma explicação detalhada do código, destacando onde estava o problema, o que mudou no código, o que foi usado e porque, etc.... Você colocou apenas o texto Uma opção e códigos, sem detalhes e isso pode ser julgado como baixa qualidade e por isso o -1. Tente editar sua resposta e colocar mais detalhes na sua explicação. Tente explicar como se a pessoa que fosse ler fosse sua mãe/pai/marido/esposa/etc... que não tem menor conhecimento de programação! :-) 18/02/2022 às 20:14
  • Obrigado pelo comentário! Vou considerar essas informações.
    – Jose
    18/02/2022 às 20:21
  • esse nao parece ser motivo para voto negativo. Percebo que no SO em portugues tem muito mais voto negativo do que SO em ingles. Esse eh um exemplo de uma otima solucao que deveria ter votos positivos. 18/02/2022 às 20:28
  • @RuamPimentel onde você viu esses dados? 18/02/2022 às 20:41
0

Ah, percebi o equívoco: A coluna que eu deveria ter passado para registrar os novos acentos era a coluna nova que foi gerada: nome_acentuado.

Dessa forma o código deveria ter sido:

funcionarios %>% 
  mutate(nome_acentuado = str_replace(nome,
                                      pattern = "Claudio",
                                      replacement = "Cláudio"),
         nome_acentuado = str_replace(nome_acentuado,
                                      pattern = "Weronica",
                                      replacement = "Werônica"),
         nome_acentuado = str_replace(nome_acentuado,
                                      pattern = "Rogerio",
                                      replacement = "Rogério"),
         nome_acentuado = str_replace(nome_acentuado,
                                      pattern = "Araujo",
                                      replacement = "Araújo"))

Agora sim.

Ficou resolvido inclusive o sobrenome "Araújo":

             nome        setor  nome_acentuado
1 Claudio Roberto           RH Cláudio Roberto
2  Regina Marinho     Recepção  Regina Marinho
3  Weronica Souza Almoxarifado  Werônica Souza
4   Rogerio Lemos           RH   Rogério Lemos
5  Claudio Araujo           RH  Cláudio Araújo

Mas, aproveitando o ensejo: há uma forma mais limpa que ficar reescrevendo str_replace()?

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 .