[R-br] Excluir parte dos caracteres e colocar caracteres em minúsculos

[Cid Póvoas]

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/
<http://br.linkedin.com/in/cidedson/>*

*Lattes: **http://lattes.cnpq.br/2303498368142537
<http://lattes.cnpq.br/2303498368142537>*




Em qua., 18 de nov. de 2020 às 10:11, Bia Rebelatto por (R-br) <
r-br em 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 em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20201118/e505f474/attachment.html>