<div>um pequena correção para evitar repetição da coluna cidades,</div><br><div><font style="font-size:14.5px"><font style="font-family:Nylas-Pro, Helvetica, "Lucidia Grande", sans-serif">a <- "Nova_Nazare_(MT)"</font></font></div><div><font style="font-size:14.5px"><font style="font-family:Nylas-Pro, Helvetica, "Lucidia Grande", sans-serif">b <- "Ilhéus_(BA)"</font></font></div><div><font style="font-size:14.5px"><font style="font-family:Nylas-Pro, Helvetica, "Lucidia Grande", sans-serif">c <- </font></font><font style="font-size:14.5px"><font style="font-family:Nylas-Pro, Helvetica, "Lucidia Grande", sans-serif"><span style="color:rgb(16, 129, 247)"><a href="https://link.getmailspring.com/link/14D0449D-01C8-4D8E-BCCE-BDDBC27E1797@getmailspring.com/0?redirect=data.frame&recipient=ci1ickBsaXN0YXMuYzNzbC51ZnByLmJy" title="data.frame">data.frame</a></span></font></font><font style="font-size:14.5px"><font style="font-family:Nylas-Pro, Helvetica, "Lucidia Grande", sans-serif">(cidades=c(a,b))</font></font></div><br><div><font style="font-size:14.5px"><font style="font-family:Nylas-Pro, Helvetica, "Lucidia Grande", sans-serif">#install.packages("plyr")</font></font></div><div><font style="font-size:14.5px"><font style="font-family:Nylas-Pro, Helvetica, "Lucidia Grande", sans-serif">library(plyr)</font></font></div><br><div><font style="font-size:14.5px"><font style="font-family:Nylas-Pro, Helvetica, "Lucidia Grande", sans-serif">adply(c,1,function(x) data.frame(cidades=tolower(substr(x,1,nchar(x)-5)),estado=substr(x,nchar(x)-2,nchar(x)-1)))</font></font></div><br><br><div class="gmail_quote_attribution">On Nov 18 2020, at 5:24 pm, Fernando Souza <nandodesouza@gmail.com> wrote:</div><blockquote><div>Usando o código reproduzível do Cid, é possível fazer utilizando a função adply do pacote {plyr}</div><div>a <- "Nova_Nazare_(MT)"</div><div>b <- "Ilhéus_(BA)"</div><div>c <- data.frame(cidades=c(a,b))</div><br><div>#install.packages("plyr")</div><div>library(plyr)</div><br><div>adply(c,1,function(x) data.frame(cidade=tolower(substr(x,1,nchar(x)-5)),estado=substr(x,nchar(x)-2,nchar(x)-1)))</div><br><br><div>att</div><br><div class="gmail_quote_attribution">On Nov 18 2020, at 11:10 am, Bia Rebelatto por (R-br) <r-br@listas.c3sl.ufpr.br> wrote:</div><blockquote><div><div>Olá pessoal,</div><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><div>#Calling the package group ----</div><div>library(tidyverse)</div><br><div>#Load data ----</div><div>setwd('...')</div><div>alldata = list.files()</div><br><div>#Change especial character ----</div><div>chg = function(x){</div><div>  iconv(x, to = "ASCII//TRANSLIT")</div><div>}</div><br><div>#Put NA info ----</div><div>##We will replace all in this loop</div><div>##In the and, we will exporting all</div><div>for (i in alldata) {</div><div>  df = read.csv(i, sep = ";")</div><br><div>  df[df == "-"] <- c(NA)</div><div>  df[df == "..."] <- c(NA)</div><div>   </div><div>  df$municipalities = chg(df$municipalities)</div><div>  df$municipalities = gsub("'", "", df$municipalities)</div><div>  df$municipalities = gsub(" ", "_", df$municipalities)</div><br><div>Desde já agradeço!</div></div><div><br></div><div>Bianca</div></div><div>_______________________________________________</div><div>R-br mailing list</div><div>R-br@listas.c3sl.ufpr.br</div><div>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</div><div>Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.</div></blockquote></blockquote>