<div dir="ltr"><br><br>library(tidyverse)<br>library(stringi)<br><br>a <- "Nova_Nazare_(MT)"<br>b <- "Ilhéus_(BA)"<br>c <- data.frame(cidades=c(a,b))<br><br>c %>% mutate(estado = stri_sub(.$cidade,-3,-2),<br> cidades = stri_sub(.$cidade,1,-6),<br> cidades = tolower(cidades))<br><br><br><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><p class="MsoNormal"><b><span style="font-family:Verdana,sans-serif;color:rgb(102,102,102)">Cid Edson Mendonça Póvoas<br>
</span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Cel: +55 (73) 99151-9565</span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Engenheiro </span></b><font color="#666666" face="Verdana, sans-serif"><span style="font-size:13.3333px"><b><span></span>Agrônomo</b></span></font></p><p class="MsoNormal"><font color="#666666" face="Verdana, sans-serif"><span style="font-size:13.3333px"><b>Analista de dados </b></span></font></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Técnico em Segurança do Trabalho </span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">LinkedIn: </span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(0,176,240)"><a href="http://br.linkedin.com/in/cidedson/" target="_blank"><span style="color:rgb(0,176,240)">http://br.linkedin.com/in/cidedson/</span></a></span></b><span></span></p>
<p class="MsoNormal"><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(102,102,102)">Lattes: </span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif;color:rgb(0,176,240)"><a href="http://lattes.cnpq.br/2303498368142537" target="_blank"><span style="color:rgb(0,176,240)">http://lattes.cnpq.br/2303498368142537</span></a></span></b><b><span style="font-size:10pt;font-family:Verdana,sans-serif"><span></span></span></b></p>
<p class="MsoNormal"><br></p></div></div></div></div></div></div></div></div></div></div></div></div><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Em qua., 18 de nov. de 2020 às 10:11, Bia Rebelatto por (R-br) <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr">Olá pessoal,<div><br></div><div>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:</div><div><br></div><div>De </div><div>Nova_Nazare_(MT) </div><div>para </div><div>nova_nazare</div><div><br></div><div>Este é o script que estou utilizando:</div><div><br></div><div>#Calling the package group ----<br>library(tidyverse)<br><br>#Load data ----<br>setwd('...')<br>alldata = list.files()<br><br>#Change especial character ----<br>chg = function(x){<br> iconv(x, to = "ASCII//TRANSLIT")<br>}<br><br>#Put NA info ----<br>##We will replace all in this loop<br>##In the and, we will exporting all<br>for (i in alldata) {<br> df = read.csv(i, sep = ";")<br><br> df[df == "-"] <- c(NA)<br> df[df == "..."] <- c(NA)<br> <br> df$municipalities = chg(df$municipalities)<br> df$municipalities = gsub("'", "", df$municipalities)<br> df$municipalities = gsub(" ", "_", df$municipalities)<br><br>Desde já agradeço!</div><div><br></div><div>Bianca</div></div>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div>