Skip to main content
2 de 2
conteúdo editado
neves
  • 5,9mil
  • 13
  • 22
  • 56

Uma forma simples de criar abreviações é com uso da função abbreviate do pacote base. Como as palavras podem ter acentuações, usa-se em conjunto a função iconv (também do pacote base) para resolver este problema.

Exemplo reproduzível:

df_1 <- data.frame(
  estados = c("São Paulo", "Minas Gerais", "Santa Catarina", "Maranhão"), 
  regiao = c("Sudeste", "Sudeste", "Sul", "Nordeste")
)

Supondo que queira abreviar para duas (2) letras. Fica assim:

abbreviate(names.arg = iconv(x = df_1$estados), 2)

Ou crie uma nova coluna, mantendo o banco de dados:

library(dplyr)
library(stringr)

df_1 %>% 
  mutate(acronimos = str_to_upper(abbreviate(iconv(estados), 2)))

#             estados   regiao acronimos
#    1      São Paulo  Sudeste        SP
#    2   Minas Gerais  Sudeste        MG
#    3 Santa Catarina      Sul        SC
#    4       Maranhão Nordeste        MR

O warning:

Warning message: In abbreviate(iconv(estados), 2) : abbreviate used with non-ASCII chars

Indica apenas um aviso sobre problema de Encoding. Mas nada de relevante para o seu caso. Se quiser entender mais sobre isso, leia aqui.

neves
  • 5,9mil
  • 13
  • 22
  • 56