library(tidyverse)
library(stringi)

a <- "Nova_Nazare_(MT)"
b <- "Ilhéus_(BA)"
c <- data.frame(cidades=c(a,b))

c %>% mutate(estado = stri_sub(.$cidade,-3,-2),
             cidades = stri_sub(.$cidade,1,-6),
             cidades = tolower(cidades))


Cid Edson Mendonça Póvoas
Cel: +55 (73) 99151-9565

Engenheiro Agrônomo

Analista de dados 

Técnico em Segurança do Trabalho 

LinkedIn: http://br.linkedin.com/in/cidedson/

Lattes: http://lattes.cnpq.br/2303498368142537




Em qua., 18 de nov. de 2020 às 10:11, Bia Rebelatto por (R-br) <r-br@listas.c3sl.ufpr.br> escreveu:
Olá pessoal,

Eu gostaria de retirar a UF que vem junto com os municípios dos dados do IBGE, coloca-la em uma nova coluna para os estados, e deixar todos os caracteres em minúsculo. Exemplo:

De 
Nova_Nazare_(MT)  
para 
nova_nazare

Este é o script que estou utilizando:

#Calling the package group ----
library(tidyverse)

#Load data ----
setwd('...')
alldata = list.files()

#Change especial character ----
chg = function(x){
  iconv(x, to = "ASCII//TRANSLIT")
}

#Put NA info ----
##We will replace all in this loop
##In the and, we will exporting all
for (i in alldata) {
  df = read.csv(i, sep = ";")

  df[df == "-"] <- c(NA)
  df[df == "..."] <- c(NA)
   
  df$municipalities = chg(df$municipalities)
  df$municipalities = gsub("'", "", df$municipalities)
  df$municipalities = gsub(" ", "_", df$municipalities)

Desde já agradeço!

Bianca
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.