<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="IncrediMail 1.0">
<STYLE>v\:* {
BEHAVIOR: url (#default#vml)
}
</STYLE>
</HEAD>
<BODY style="SCROLLBAR-ARROW-COLOR: #4a6184; SCROLLBAR-FACE-COLOR: #c3d3fd; MARGIN: 5px 10px 0px; SCROLLBAR-DARKSHADOW-COLOR: #bebebe; FONT-FAMILY: Arial; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #261fba; FONT-SIZE: 12pt; SCROLLBAR-3DLIGHT-COLOR: #7b9ed6" background="" scroll=yes bgColor=#ffffff>
<TABLE id=INCREDIMAINTABLE border=0 cellSpacing=0 cellPadding=2 width="100%">
<TBODY>
<TR>
<TD style="POSITION: relative; DIRECTION: ltr; FONT-SIZE: 12pt" id=INCREDITEXTREGION width="100%">
<DIV style="PADDING-LEFT: 2px" id=INCREDI_TEXT_AREA>
<DIV>
<DIV>Caros Augusto e Rodrigo,</DIV>
<DIV> </DIV>
<DIV>Muito obrigado pela dica de usar o reshape. Funcionou perfeitamente.</DIV>
<DIV> </DIV>
<DIV>[]s,</DIV>
<DIV>Fabrízzio</DIV>
<DIV> </DIV>
<DIV> </DIV></DIV></DIV>
<DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV style="FONT-SIZE: 11pt" dir=ltr id=IncrediOriginalMessage><I>-------Original Message-------</I></DIV>
<DIV> </DIV>
<DIV id=receivestrings>
<DIV style="FONT-SIZE: 11pt" dir=ltr><I><B>From:</B></I> <A href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</A></DIV>
<DIV style="FONT-SIZE: 11pt" dir=ltr><I><B>Date:</B></I> 10/26/12 17:18:01</DIV>
<DIV style="FONT-SIZE: 11pt" dir=ltr><I><B>To:</B></I> <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV style="FONT-SIZE: 11pt" dir=ltr><I><B>Subject:</B></I> Digest R-br, volume 20, assunto 40</DIV></DIV>
<DIV> </DIV>
<DIV>Enviar submissões para a lista de discussão R-br para</DIV>
<DIV> <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV> </DIV>
<DIV>Para se cadastrar ou descadastrar via WWW, visite o endereço</DIV>
<DIV> <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</DIV>
<DIV>corpo da mensagem para</DIV>
<DIV> <A href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</A></DIV>
<DIV> </DIV>
<DIV>Você poderá entrar em contato com a pessoa que gerencia a lista pelo</DIV>
<DIV>endereço</DIV>
<DIV> <A href="mailto:r-br-owner@listas.c3sl.ufpr.br">r-br-owner@listas.c3sl.ufpr.br</A></DIV>
<DIV> </DIV>
<DIV>Quando responder, por favor edite sua linha Assunto assim ela será</DIV>
<DIV>mais específica que "Re: Contents of R-br digest..."</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Tópicos de Hoje:</DIV>
<DIV> </DIV>
<DIV> 1. Re: Transformação de dados no dataframe (Rodrigo Coster)</DIV>
<DIV> 2. Separa primeiro e último nome (Fátima Lima Paula)</DIV>
<DIV> 3. Re: Separa primeiro e último nome (Walmes Zeviani)</DIV>
<DIV> 4. Re: Separa primeiro e último nome (Alisson Lucrecio)</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>----------------------------------------------------------------------</DIV>
<DIV> </DIV>
<DIV>Message: 1</DIV>
<DIV>Date: Fri, 26 Oct 2012 16:16:18 -0200</DIV>
<DIV>From: Rodrigo Coster <<A href="mailto:rcoster@gmail.com">rcoster@gmail.com</A>></DIV>
<DIV>To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>Subject: Re: [R-br] Transformação de dados no dataframe</DIV>
<DIV>Message-ID:</DIV>
<DIV> <<A href="mailto:CAKU4wotutucRnLJMOaocbUL_L=RGY+tYKgMGiyAERLZE03QHYw@mail.gmail.com">CAKU4wotutucRnLJMOaocbUL_L=RGY+tYKgMGiyAERLZE03QHYw@mail.gmail.com</A>></DIV>
<DIV>Content-Type: text/plain; charset="windows-1252"</DIV>
<DIV> </DIV>
<DIV>Tenta com o reshape()</DIV>
<DIV> </DIV>
<DIV>> dados</DIV>
<DIV> V1 V2 V3</DIV>
<DIV>1 Característica A Indivíduo 1 0</DIV>
<DIV>2 Característica B Indivíduo 1 1</DIV>
<DIV>3 Característica C Indivíduo 1 2</DIV>
<DIV>4 Característica A Indivíduo 2 2</DIV>
<DIV>5 Característica B Indivíduo 2 0</DIV>
<DIV>6 Característica C Indivíduo 2 1</DIV>
<DIV>> reshape(dados, idvar='V2', timevar='V1',direction='wide')</DIV>
<DIV> V2 V3.Característica A V3.Característica B V3.Característica C</DIV>
<DIV>1 Indivíduo 1 0 1 2</DIV>
<DIV>4 Indivíduo 2 2 0 1</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>[]'s</DIV>
<DIV> </DIV>
<DIV>2012/10/26 <A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A> <<A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A>></DIV>
<DIV> </DIV>
<DIV>> Caro Augusto,</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Na realidade, cada característica na tabela abaixo é um marcador genético</DIV>
<DIV>> e estou analisando a variação desse marcador dentro da amostra de</DIV>
<DIV>> indivíduos. Os números na terceira coluna da tabela abaixo são os alelos (</DIV>
<DIV>> 0 = AA, 1 = BB e 2 = AB). Os dados que tenham ESTão no formato abaixo:</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Característica A******</DIV>
<DIV>></DIV>
<DIV>> Indivíduo 1****</DIV>
<DIV>></DIV>
<DIV>> 0****</DIV>
<DIV>></DIV>
<DIV>> Característica B****</DIV>
<DIV>></DIV>
<DIV>> Indivíduo 1****</DIV>
<DIV>></DIV>
<DIV>> 1****</DIV>
<DIV>></DIV>
<DIV>> Característica C****</DIV>
<DIV>></DIV>
<DIV>> Indivíduo 1****</DIV>
<DIV>></DIV>
<DIV>> 2****</DIV>
<DIV>></DIV>
<DIV>> Característica A****</DIV>
<DIV>></DIV>
<DIV>> Indivíduo 2****</DIV>
<DIV>></DIV>
<DIV>> 2****</DIV>
<DIV>></DIV>
<DIV>> Característica B****</DIV>
<DIV>></DIV>
<DIV>> Indivíduo 2****</DIV>
<DIV>></DIV>
<DIV>> 0****</DIV>
<DIV>></DIV>
<DIV>> Característica C****</DIV>
<DIV>></DIV>
<DIV>> Indivíduo 2****</DIV>
<DIV>></DIV>
<DIV>> 1****</DIV>
<DIV>></DIV>
<DIV>> Eu preciso mudar o posicionamento da tabela acima para o formato da tabela</DIV>
<DIV>> abaixo: (para aplicar o modelo de regressão)</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> ** **</DIV>
<DIV>></DIV>
<DIV>> Característica A****</DIV>
<DIV>></DIV>
<DIV>> Característica B****</DIV>
<DIV>></DIV>
<DIV>> Característica C****</DIV>
<DIV>></DIV>
<DIV>> Indivíduo 1****</DIV>
<DIV>></DIV>
<DIV>> 0****</DIV>
<DIV>></DIV>
<DIV>> 1****</DIV>
<DIV>></DIV>
<DIV>> 2****</DIV>
<DIV>></DIV>
<DIV>> Indivíduo 2****</DIV>
<DIV>></DIV>
<DIV>> 2****</DIV>
<DIV>></DIV>
<DIV>> 0****</DIV>
<DIV>></DIV>
<DIV>> 1****</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Desta forma, a segunda tabela é de certa forma uma "transposição" da</DIV>
<DIV>> primeira, mas não uma contagem do número de vezes que aparece o 0, 1 ou 2.</DIV>
<DIV>></DIV>
<DIV>> Preciso colocar as características nas colunas do dataframe, pois irei</DIV>
<DIV>> aplicar uma regressão linear logística, sendo as características A, B e C</DIV>
<DIV>> as variáveis explanatórias. Tenho os dados da variável dicotomica y em</DIV>
<DIV>> outro arquivo como um vetor coluna.</DIV>
<DIV>></DIV>
<DIV>> Muito obrigado.</DIV>
<DIV>></DIV>
<DIV>> Abraços,</DIV>
<DIV>> Fabrízzio</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> *-------Original Message-------*</DIV>
<DIV>></DIV>
<DIV>> *From:* <A href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</A></DIV>
<DIV>> *Date:* 10/26/12 14:43:29</DIV>
<DIV>> *To:* <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> *Subject:* Digest R-br, volume 20, assunto 38</DIV>
<DIV>></DIV>
<DIV>> Enviar submissões para a lista de discussão R-br para</DIV>
<DIV>> <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>></DIV>
<DIV>> Para se cadastrar ou descadastrar via WWW, visite o endereço</DIV>
<DIV>> <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</DIV>
<DIV>> corpo da mensagem para</DIV>
<DIV>> <A href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</A></DIV>
<DIV>></DIV>
<DIV>> Você poderá entrar em contato com a pessoa que gerencia a lista pelo</DIV>
<DIV>> endereço</DIV>
<DIV>> <A href="mailto:r-br-owner@listas.c3sl.ufpr.br">r-br-owner@listas.c3sl.ufpr.br</A></DIV>
<DIV>></DIV>
<DIV>> Quando responder, por favor edite sua linha Assunto assim ela será</DIV>
<DIV>> mais específica que "Re: Contents of R-br digest..."</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Tópicos de Hoje:</DIV>
<DIV>></DIV>
<DIV>> 1. Re: Coeficiente de Correlação Cofenética (T Branquinho)</DIV>
<DIV>> 2. Re: Transformação de dados no dataframe</DIV>
<DIV>> (<A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A>)</DIV>
<DIV>> 3. Re: Transformação de dados no dataframe (Augusto Ribas)</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> ----------------------------------------------------------------------</DIV>
<DIV>></DIV>
<DIV>> Message: 1</DIV>
<DIV>> Date: Fri, 26 Oct 2012 13:36:07 -0200</DIV>
<DIV>> From: T Branquinho <<A href="mailto:tbranquinho1@hotmail.com">tbranquinho1@hotmail.com</A>></DIV>
<DIV>> To: R <<A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A>></DIV>
<DIV>> Subject: Re: [R-br] Coeficiente de Correlação Cofenética</DIV>
<DIV>> Message-ID: <<A href="mailto:BAY167-W1202591253BD2194857FEC6917E0@phx.gbl">BAY167-W1202591253BD2194857FEC6917E0@phx.gbl</A>></DIV>
<DIV>> Content-Type: text/plain; charset="utf-8"</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Esse material pode lhe ajudarestá no pacote stat que já vem no R ao</DIV>
<DIV>> instalá-lo.</DIV>
<DIV>> <A href="http://stat.ethz.ch/R-manual/R-devel/library/stats/html/cophenetic.html">http://stat.ethz.ch/R-manual/R-devel/library/stats/html/cophenetic.html</A></DIV>
<DIV>></DIV>
<DIV>> Date: Fri, 26 Oct 2012 10:34:25 -0200</DIV>
<DIV>> From: <A href="mailto:caetano.vidigal@gmail.com">caetano.vidigal@gmail.com</A></DIV>
<DIV>> To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> Subject: [R-br] Coeficiente de Correlação Cofenética</DIV>
<DIV>></DIV>
<DIV>> Bom dia,</DIV>
<DIV>> alguém sabe se existe algum pacote no R que calcula o coeficiente de</DIV>
<DIV>> correlação cofenética ao se fazer um agrupamento?Obrigado</DIV>
<DIV>> --</DIV>
<DIV>> Bruno C. Vidigal</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> _______________________________________________</DIV>
<DIV>> R-br mailing list</DIV>
<DIV>> <A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</A>) e forne?a</DIV>
<DIV>> c?digo m?nimo reproduz?vel.</DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo em HTML foi limpo...</DIV>
<DIV>> URL: <</DIV>
<DIV>> <A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/ecdb53b6/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/ecdb53b6/attachment-0001.html</A></DIV>
<DIV>> ></DIV>
<DIV>></DIV>
<DIV>> ------------------------------</DIV>
<DIV>></DIV>
<DIV>> Message: 2</DIV>
<DIV>> Date: Fri, 26 Oct 2012 13:38:39 -0200 (Horário brasileiro de verão)</DIV>
<DIV>> From: "<A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A>" <<A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A>></DIV>
<DIV>> To: <<A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A>></DIV>
<DIV>> Subject: Re: [R-br] Transformação de dados no dataframe</DIV>
<DIV>> Message-ID: <<A href="mailto:508AAE7F.000009.01192@FABRIZZIO-PC">508AAE7F.000009.01192@FABRIZZIO-PC</A>></DIV>
<DIV>> Content-Type: text/plain; charset="iso-8859-1"</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Caro Augusto,</DIV>
<DIV>></DIV>
<DIV>> O comando table do R faz uma contagem em fatores, assim, esse comando não</DIV>
<DIV>> solucionou o meu problema, pois o que preciso fazer é reposicionar os dados</DIV>
<DIV>> na tabela abaixo:</DIV>
<DIV>></DIV>
<DIV>> Característica AIndivíduo 10</DIV>
<DIV>> Característica BIndivíduo 11</DIV>
<DIV>> Característica CIndivíduo 12</DIV>
<DIV>> Característica AIndivíduo 22</DIV>
<DIV>> Característica BIndivíduo 20</DIV>
<DIV>> Característica CIndivíduo 21</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Tentei usar o comando reshape com o seguinte código:</DIV>
<DIV>></DIV>
<DIV>> Wide <- reshape(dados, v.names = "col3", idvar = "col2", timevar = "col 1")</DIV>
<DIV>></DIV>
<DIV>> Mas esse comando está travando o R.</DIV>
<DIV>></DIV>
<DIV>> A tabela final que preciso é:</DIV>
<DIV>></DIV>
<DIV>> Característica ACaracterística BCaracterística C</DIV>
<DIV>> Indivíduo 1012</DIV>
<DIV>> Indivíduo 2201</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Li o help do comando table, mas não consegui adaptá-lo para resolver esse</DIV>
<DIV>> problema.</DIV>
<DIV>></DIV>
<DIV>> Será que terei que implementar uma função para realizar essa tarefa?</DIV>
<DIV>></DIV>
<DIV>> Abraços e muito obrigado pela ajuda e pela paciencia.</DIV>
<DIV>></DIV>
<DIV>> Fabrízzio Condé de Oliveira</DIV>
<DIV>></DIV>
<DIV>> -------Original Message-------</DIV>
<DIV>></DIV>
<DIV>> From: <A href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</A></DIV>
<DIV>> Date: 10/24/12 12:00:14</DIV>
<DIV>> To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> Subject: Digest R-br, volume 20, assunto 30</DIV>
<DIV>></DIV>
<DIV>> Enviar submissões para a lista de discussão R-br para</DIV>
<DIV>> <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>></DIV>
<DIV>> Para se cadastrar ou descadastrar via WWW, visite o endereço</DIV>
<DIV>> <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</DIV>
<DIV>> corpo da mensagem para</DIV>
<DIV>> <A href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</A></DIV>
<DIV>></DIV>
<DIV>> Você poderá entrar em contato com a pessoa que gerencia a lista pelo</DIV>
<DIV>> endereço</DIV>
<DIV>> <A href="mailto:r-br-owner@listas.c3sl.ufpr.br">r-br-owner@listas.c3sl.ufpr.br</A></DIV>
<DIV>></DIV>
<DIV>> Quando responder, por favor edite sua linha Assunto assim ela será</DIV>
<DIV>> mais específica que "Re: Contents of R-br digest..."</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Tópicos de Hoje:</DIV>
<DIV>></DIV>
<DIV>> 1. Re: Transformação de dados no dataframe (Augusto Ribas)</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> ----------------------------------------------------------------------</DIV>
<DIV>></DIV>
<DIV>> Message: 1</DIV>
<DIV>> Date: Wed, 24 Oct 2012 09:50:12 -0300</DIV>
<DIV>> From: Augusto Ribas <<A href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</A>></DIV>
<DIV>> To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> Subject: Re: [R-br] Transformação de dados no dataframe</DIV>
<DIV>> Message-ID:</DIV>
<DIV>> <<A href="mailto:CACMkfRyM6o+=mvtJ7GuQXn2xMiNYgGdo1Za0m0erZ6aw6Xc09g@mail.gmail.com">CACMkfRyM6o+=mvtJ7GuQXn2xMiNYgGdo1Za0m0erZ6aw6Xc09g@mail.gmail.com</A>></DIV>
<DIV>> Content-Type: text/plain; charset="windows-1252"</DIV>
<DIV>></DIV>
<DIV>> Vamos supor um exemplo de dados:</DIV>
<DIV>></DIV>
<DIV>> #dados de exemplo</DIV>
<DIV>> dados<-data.frame(col1=round(runif(20,1,4)),col2=sample(c("A","B"),20</DIV>
<DIV>> replace=T),col3=sample(c("A","B"),20,replace=T))</DIV>
<DIV>> dados</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> #primeiro com o comando paste, vamos juntar a coluna 2 com a 3, criando os</DIV>
<DIV>> AA AB e BB</DIV>
<DIV>> dados$col4<-factor(paste(dados$col2,dados$col3,sep=""))</DIV>
<DIV>></DIV>
<DIV>> #Depois como os walmes nos ensinou aqui na lista, a gente usa o match()</DIV>
<DIV>> #para recodificar nos valores que queremos, no caso como vc falou</DIV>
<DIV>></DIV>
<DIV>> levels(dados$col4)</DIV>
<DIV>> recod<-c(0,1,1,2)</DIV>
<DIV>> dados$col5<-recod[match(dados$col4,levels(dados$col4))]</DIV>
<DIV>> dados</DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> #agora que vc te todos os ingredientes, é so usar o comando table() para</DIV>
<DIV>> fazer essa tabela</DIV>
<DIV>> #eu fiz um exemplo de tabela com a coluna 5 e a coluna 5, mas pelo que vi</DIV>
<DIV>> vc quer a coluna</DIV>
<DIV>> #5 e os nomes das linhas, rownames(sua planilha), entao use os nomes da</DIV>
<DIV>> linha na tabela</DIV>
<DIV>> table(dados$col5,dados$col4)</DIV>
<DIV>></DIV>
<DIV>> Espero que ajude.</DIV>
<DIV>> Abraços</DIV>
<DIV>></DIV>
<DIV>> Em 24 de outubro de 2012 09:16, <A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A> <</DIV>
<DIV>> <A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A>> escreveu:</DIV>
<DIV>></DIV>
<DIV>> > Bom dia,</DIV>
<DIV>> ></DIV>
<DIV>> > Existe algum script que faça o seguinte:</DIV>
<DIV>> ></DIV>
<DIV>> > 1) Cria uma quinta coluna na matriz abaixo baseada na terceira e na</DIV>
<DIV>> quarta</DIV>
<DIV>> > coluna DA seguinte forma: AA = 0, BB = 1 e AB = 2.</DIV>
<DIV>> ></DIV>
<DIV>> > AA1 1 A B AA2 1 A A AA3 1 B B AA4 1 B B AA1 2 A A AA2 2 A B AA3 2 A B</DIV>
<DIV>> > AA4 2 A A AA1 3 B B AA2 3 B B AA3 3 A A AA4 3 A A AA1 4 B B AA2 4 A B AA3</DIV>
<DIV>> > 4 A A AA4 4 A B</DIV>
<DIV>> ></DIV>
<DIV>> > Assim, a matriz se transformaria em:</DIV>
<DIV>> ></DIV>
<DIV>> > AA1 1 A B 2 AA2 1 A A 0 AA3 1 B B 1 AA4 1 B B 1 AA1 2 A A 0 AA2 2 A B</DIV>
<DIV>> 2</DIV>
<DIV>> > AA3 2 A B 2 AA4 2 A A 0 AA1 3 B B 1 AA2 3 B B 1 AA3 3 A A 0 AA4 3 A A 0</DIV>
<DIV>> > AA1 4 B B 1 AA2 4 A B 2 AA3 4 A A 1 AA4 4 A B 2</DIV>
<DIV>> ></DIV>
<DIV>> > 2) Após esse passo, tenho que eliminar as colunas 3 e 4 DA matriz acima</DIV>
<DIV>> > (talvez em um novo dataframe) e redimensioná-la para o seguinte formato:</DIV>
<DIV>> ></DIV>
<DIV>> > AA1 AA2 AA3 AA4 1 2 0 1 1 2 0 2 2 0 3 1 1 0 0 4 1 2 1 2</DIV>
<DIV>> ></DIV>
<DIV>> > Ao final, preciso que cada coluna DA matriz acima seja encarada pelo R</DIV>
<DIV>> > como uma variável (AA1, AA2, AA3, AA4), pois irei aplicar o pacote de</DIV>
<DIV>> > regressão logística penalizada stepPlr e considerar essas variáveis</DIV>
<DIV>> > preditoras.</DIV>
<DIV>> ></DIV>
<DIV>> > Muito obrigado.</DIV>
<DIV>> > Fabrízzio</DIV>
<DIV>> > [image: FREE Christmas Animations for your email ? by IncrediMail!</DIV>
<DIV>> > Click Here!]<<A href="http://www.incredimail.com/?id=620188&did=10500&ppd=2747">http://www.incredimail.com/?id=620188&did=10500&ppd=2747</A></DIV>
<DIV>> 201111071523,9,[TypeID],[IM_UPN2]&rui=139771782&sd=20121024></DIV>
<DIV>> ></DIV>
<DIV>> > _______________________________________________</DIV>
<DIV>> > R-br mailing list</DIV>
<DIV>> > <A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> > <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> > Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</A>) e forneça</DIV>
<DIV>> > código mínimo reproduzível.</DIV>
<DIV>> ></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> --</DIV>
<DIV>> Grato</DIV>
<DIV>> Augusto C. A. Ribas</DIV>
<DIV>></DIV>
<DIV>> Site Pessoal: <A href="http://augustoribas.heliohost.org">http://augustoribas.heliohost.org</A></DIV>
<DIV>> Lattes: <A href="http://lattes.cnpq.br/7355685961127056">http://lattes.cnpq.br/7355685961127056</A></DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo em HTML foi limpo...</DIV>
<DIV>> URL: <<A href="http://listas.inf.ufpr">http://listas.inf.ufpr</A></DIV>
<DIV>> br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.html></DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo não-texto foi limpo...</DIV>
<DIV>> Nome: xmas_girl_en.gif</DIV>
<DIV>> Tipo: image/gif</DIV>
<DIV>> Tamanho: 61041 bytes</DIV>
<DIV>> Descrição: não disponível</DIV>
<DIV>> URL: <<A href="http://listas.inf.ufpr">http://listas.inf.ufpr</A></DIV>
<DIV>> br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.gif></DIV>
<DIV>></DIV>
<DIV>> ------------------------------</DIV>
<DIV>></DIV>
<DIV>> _______________________________________________</DIV>
<DIV>> R-br mailing list</DIV>
<DIV>> <A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Fim da Digest R-br, volume 20, assunto 30</DIV>
<DIV>> *****************************************</DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo em HTML foi limpo...</DIV>
<DIV>> URL: <</DIV>
<DIV>> <A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/e3a78863/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/e3a78863/attachment-0001.html</A></DIV>
<DIV>> ></DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo não-texto foi limpo...</DIV>
<DIV>> Nome: xmas_girl_en.gif</DIV>
<DIV>> Tipo: image/gif</DIV>
<DIV>> Tamanho: 61041 bytes</DIV>
<DIV>> Descrição: não disponível</DIV>
<DIV>> URL: <</DIV>
<DIV>> <A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/e3a78863/attachment-0001.gif">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/e3a78863/attachment-0001.gif</A></DIV>
<DIV>> ></DIV>
<DIV>></DIV>
<DIV>> ------------------------------</DIV>
<DIV>></DIV>
<DIV>> Message: 3</DIV>
<DIV>> Date: Fri, 26 Oct 2012 13:43:13 -0300</DIV>
<DIV>> From: Augusto Ribas <<A href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</A>></DIV>
<DIV>> To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> Subject: Re: [R-br] Transformação de dados no dataframe</DIV>
<DIV>> Message-ID:</DIV>
<DIV>> <<A href="mailto:CACMkfRxYhrSakx+OjZeB-_Drp44H=MpuYsnKRa-OaF8C5ZaDyA@mail.gmail.com">CACMkfRxYhrSakx+OjZeB-_Drp44H=MpuYsnKRa-OaF8C5ZaDyA@mail.gmail.com</A>></DIV>
<DIV>> Content-Type: text/plain; charset="windows-1252"</DIV>
<DIV>></DIV>
<DIV>> Eu não entendi perfeitamente o que é o que, desculpe.</DIV>
<DIV>> Vc não consegue fazer um exemplo de dados semelhante ao que eu fiz, e</DIV>
<DIV>> colocar o nome das colunas o que é Caracteristica e o que é Individuo?</DIV>
<DIV>></DIV>
<DIV>> Em 26 de outubro de 2012 12:38, <A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A> <</DIV>
<DIV>> <A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A>> escreveu:</DIV>
<DIV>></DIV>
<DIV>> ></DIV>
<DIV>> > Caro Augusto,</DIV>
<DIV>> ></DIV>
<DIV>> > O comando *table* do R faz uma contagem em fatores, assim, esse comando</DIV>
<DIV>> > não solucionou o meu problema, pois o que preciso fazer é reposicionar os</DIV>
<DIV>> > dados na tabela abaixo:</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Característica A******</DIV>
<DIV>> ></DIV>
<DIV>> > Indivíduo 1****</DIV>
<DIV>> ></DIV>
<DIV>> > 0****</DIV>
<DIV>> ></DIV>
<DIV>> > Característica B****</DIV>
<DIV>> ></DIV>
<DIV>> > Indivíduo 1****</DIV>
<DIV>> ></DIV>
<DIV>> > 1****</DIV>
<DIV>> ></DIV>
<DIV>> > Característica C****</DIV>
<DIV>> ></DIV>
<DIV>> > Indivíduo 1****</DIV>
<DIV>> ></DIV>
<DIV>> > 2****</DIV>
<DIV>> ></DIV>
<DIV>> > Característica A****</DIV>
<DIV>> ></DIV>
<DIV>> > Indivíduo 2****</DIV>
<DIV>> ></DIV>
<DIV>> > 2****</DIV>
<DIV>> ></DIV>
<DIV>> > Característica B****</DIV>
<DIV>> ></DIV>
<DIV>> > Indivíduo 2****</DIV>
<DIV>> ></DIV>
<DIV>> > 0****</DIV>
<DIV>> ></DIV>
<DIV>> > Característica C****</DIV>
<DIV>> ></DIV>
<DIV>> > Indivíduo 2****</DIV>
<DIV>> ></DIV>
<DIV>> > 1****</DIV>
<DIV>> ></DIV>
<DIV>> > Tentei usar o comando *reshape* com o seguinte código:</DIV>
<DIV>> ></DIV>
<DIV>> > Wide <- reshape(dados, v.names = "col3", idvar = "col2", timevar = "col</DIV>
<DIV>> 1")</DIV>
<DIV>> ></DIV>
<DIV>> > Mas esse comando está travando o R.</DIV>
<DIV>> ></DIV>
<DIV>> > A tabela final que preciso é:</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ** **</DIV>
<DIV>> ></DIV>
<DIV>> > Característica A****</DIV>
<DIV>> ></DIV>
<DIV>> > Característica B****</DIV>
<DIV>> ></DIV>
<DIV>> > Característica C****</DIV>
<DIV>> ></DIV>
<DIV>> > Indivíduo 1****</DIV>
<DIV>> ></DIV>
<DIV>> > 0****</DIV>
<DIV>> ></DIV>
<DIV>> > 1****</DIV>
<DIV>> ></DIV>
<DIV>> > 2****</DIV>
<DIV>> ></DIV>
<DIV>> > Indivíduo 2****</DIV>
<DIV>> ></DIV>
<DIV>> > 2****</DIV>
<DIV>> ></DIV>
<DIV>> > 0****</DIV>
<DIV>> ></DIV>
<DIV>> > 1****</DIV>
<DIV>> ></DIV>
<DIV>> > Li o help do comando table, mas não consegui adaptá-lo para resolver esse</DIV>
<DIV>> > problema.</DIV>
<DIV>> ></DIV>
<DIV>> > Será que terei que implementar uma função para realizar essa tarefa?</DIV>
<DIV>> ></DIV>
<DIV>> > Abraços e muito obrigado pela ajuda e pela paciencia.</DIV>
<DIV>> ></DIV>
<DIV>> > Fabrízzio Condé de Oliveira</DIV>
<DIV>> ></DIV>
<DIV>> > *-------Original Message-------*</DIV>
<DIV>> ></DIV>
<DIV>> > *From:* <A href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</A></DIV>
<DIV>> > *Date:* 10/24/12 12:00:14</DIV>
<DIV>> > *To:* <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> > *Subject:* Digest R-br, volume 20, assunto 30</DIV>
<DIV>> ></DIV>
<DIV>> > Enviar submissões para a lista de discussão R-br para</DIV>
<DIV>> > <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> ></DIV>
<DIV>> > Para se cadastrar ou descadastrar via WWW, visite o endereço</DIV>
<DIV>> > <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> > ou, via email, envie uma mensagem com a palavra 'help' no assunto ou</DIV>
<DIV>> > corpo da mensagem para</DIV>
<DIV>> > <A href="mailto:r-br-request@listas.c3sl.ufpr.br">r-br-request@listas.c3sl.ufpr.br</A></DIV>
<DIV>> ></DIV>
<DIV>> > Você poderá entrar em contato com a pessoa que gerencia a lista pelo</DIV>
<DIV>> > endereço</DIV>
<DIV>> > <A href="mailto:r-br-owner@listas.c3sl.ufpr.br">r-br-owner@listas.c3sl.ufpr.br</A></DIV>
<DIV>> ></DIV>
<DIV>> > Quando responder, por favor edite sua linha Assunto assim ela será</DIV>
<DIV>> > mais específica que "Re: Contents of R-br digest..."</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Tópicos de Hoje:</DIV>
<DIV>> ></DIV>
<DIV>> > 1. Re: Transformação de dados no dataframe (Augusto Ribas)</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > ----------------------------------------------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > Message: 1</DIV>
<DIV>> > Date: Wed, 24 Oct 2012 09:50:12 -0300</DIV>
<DIV>> > From: Augusto Ribas <<A href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</A>></DIV>
<DIV>> > To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> > Subject: Re: [R-br] Transformação de dados no dataframe</DIV>
<DIV>> > Message-ID:</DIV>
<DIV>> > <<A href="mailto:CACMkfRyM6o+=mvtJ7GuQXn2xMiNYgGdo1Za0m0erZ6aw6Xc09g@mail.gmail.com">CACMkfRyM6o+=mvtJ7GuQXn2xMiNYgGdo1Za0m0erZ6aw6Xc09g@mail.gmail.com</A>></DIV>
<DIV>> > Content-Type: text/plain; charset="windows-1252"</DIV>
<DIV>> ></DIV>
<DIV>> > Vamos supor um exemplo de dados:</DIV>
<DIV>> ></DIV>
<DIV>> > #dados de exemplo</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> dados<-data.frame(col1=round(runif(20,1,4)),col2=sample(c("A","B"),20,replace=T),col3=sample(c("A","B"),20,replace=T))</DIV>
<DIV>> > dados</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > #primeiro com o comando paste, vamos juntar a coluna 2 com a 3, criando</DIV>
<DIV>> os</DIV>
<DIV>> > AA AB e BB</DIV>
<DIV>> > dados$col4<-factor(paste(dados$col2,dados$col3,sep=""))</DIV>
<DIV>> ></DIV>
<DIV>> > #Depois como os walmes nos ensinou aqui na lista, a gente usa o match()</DIV>
<DIV>> > #para recodificar nos valores que queremos, no caso como vc falou</DIV>
<DIV>> ></DIV>
<DIV>> > levels(dados$col4)</DIV>
<DIV>> > recod<-c(0,1,1,2)</DIV>
<DIV>> > dados$col5<-recod[match(dados$col4,levels(dados$col4))]</DIV>
<DIV>> > dados</DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > #agora que vc te todos os ingredientes, é so usar o comando table() para</DIV>
<DIV>> > fazer essa tabela</DIV>
<DIV>> > #eu fiz um exemplo de tabela com a coluna 5 e a coluna 5, mas pelo que vi</DIV>
<DIV>> > vc quer a coluna</DIV>
<DIV>> > #5 e os nomes das linhas, rownames(sua planilha), entao use os nomes da</DIV>
<DIV>> > linha na tabela</DIV>
<DIV>> > table(dados$col5,dados$col4)</DIV>
<DIV>> ></DIV>
<DIV>> > Espero que ajude.</DIV>
<DIV>> > Abraços</DIV>
<DIV>> ></DIV>
<DIV>> > Em 24 de outubro de 2012 09:16, <A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A> <</DIV>
<DIV>> > <A href="mailto:fabrizzioconde@gmail.com">fabrizzioconde@gmail.com</A>> escreveu:</DIV>
<DIV>> ></DIV>
<DIV>> > > Bom dia,</DIV>
<DIV>> > ></DIV>
<DIV>> > > Existe algum script que faça o seguinte:</DIV>
<DIV>> > ></DIV>
<DIV>> > > 1) Cria uma quinta coluna na matriz abaixo baseada na terceira e na</DIV>
<DIV>> > quarta</DIV>
<DIV>> > > coluna DA seguinte forma: AA = 0, BB = 1 e AB = 2.</DIV>
<DIV>> > ></DIV>
<DIV>> > > AA1 1 A B AA2 1 A A AA3 1 B B AA4 1 B B AA1 2 A A AA2 2 A B AA3 2 A</DIV>
<DIV>> B</DIV>
<DIV>> > > AA4 2 A A AA1 3 B B AA2 3 B B AA3 3 A A AA4 3 A A AA1 4 B B AA2 4 A B</DIV>
<DIV>> AA3</DIV>
<DIV>> > > 4 A A AA4 4 A B</DIV>
<DIV>> > ></DIV>
<DIV>> > > Assim, a matriz se transformaria em:</DIV>
<DIV>> > ></DIV>
<DIV>> > > AA1 1 A B 2 AA2 1 A A 0 AA3 1 B B 1 AA4 1 B B 1 AA1 2 A A 0 AA2 2 A</DIV>
<DIV>> B</DIV>
<DIV>> > 2</DIV>
<DIV>> > > AA3 2 A B 2 AA4 2 A A 0 AA1 3 B B 1 AA2 3 B B 1 AA3 3 A A 0 AA4 3 A A 0</DIV>
<DIV>> > > AA1 4 B B 1 AA2 4 A B 2 AA3 4 A A 1 AA4 4 A B 2</DIV>
<DIV>> > ></DIV>
<DIV>> > > 2) Após esse passo, tenho que eliminar as colunas 3 e 4 DA matriz acima</DIV>
<DIV>> > > (talvez em um novo dataframe) e redimensioná-la para o seguinte</DIV>
<DIV>> formato:</DIV>
<DIV>> > ></DIV>
<DIV>> > > AA1 AA2 AA3 AA4 1 2 0 1 1 2 0 2 2 0 3 1 1 0 0 4 1 2 1 2</DIV>
<DIV>> > ></DIV>
<DIV>> > > Ao final, preciso que cada coluna DA matriz acima seja encarada pelo R</DIV>
<DIV>> > > como uma variável (AA1, AA2, AA3, AA4), pois irei aplicar o pacote de</DIV>
<DIV>> > > regressão logística penalizada stepPlr e considerar essas variáveis</DIV>
<DIV>> > > preditoras.</DIV>
<DIV>> > ></DIV>
<DIV>> > > Muito obrigado.</DIV>
<DIV>> > > Fabrízzio</DIV>
<DIV>> > > [image: FREE Christmas Animations for your email ? by IncrediMail!</DIV>
<DIV>> > > Click Here!]<</DIV>
<DIV>> > <A href="http://www.incredimail.com/?id=620188&did=10500&ppd=2747,201111071523,9">http://www.incredimail.com/?id=620188&did=10500&ppd=2747,201111071523,9</A></DIV>
<DIV>> > ,[TypeID],[IM_UPN2]&rui=139771782&sd=20121024></DIV>
<DIV>> > ></DIV>
<DIV>> > > _______________________________________________</DIV>
<DIV>> > > R-br mailing list</DIV>
<DIV>> > > <A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> > > <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> > > Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</A>) e forneça</DIV>
<DIV>> > > código mínimo reproduzível.</DIV>
<DIV>> > ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > --</DIV>
<DIV>> > Grato</DIV>
<DIV>> > Augusto C. A. Ribas</DIV>
<DIV>> ></DIV>
<DIV>> > Site Pessoal: <A href="http://augustoribas.heliohost.org">http://augustoribas.heliohost.org</A></DIV>
<DIV>> > Lattes: <A href="http://lattes.cnpq.br/7355685961127056">http://lattes.cnpq.br/7355685961127056</A></DIV>
<DIV>> > -------------- Próxima Parte ----------</DIV>
<DIV>> > Um anexo em HTML foi limpo...</DIV>
<DIV>> > URL: <</DIV>
<DIV>> ></DIV>
<DIV>> <A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.html</A></DIV>
<DIV>> > ></DIV>
<DIV>> > -------------- Próxima Parte ----------</DIV>
<DIV>> > Um anexo não-texto foi limpo...</DIV>
<DIV>> > Nome: xmas_girl_en.gif</DIV>
<DIV>> > Tipo: image/gif</DIV>
<DIV>> > Tamanho: 61041 bytes</DIV>
<DIV>> > Descrição: não disponível</DIV>
<DIV>> > URL: <</DIV>
<DIV>> ></DIV>
<DIV>> <A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.gif">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121024/96f8c562/attachment-0001.gif</A></DIV>
<DIV>> > ></DIV>
<DIV>> ></DIV>
<DIV>> > ------------------------------</DIV>
<DIV>> ></DIV>
<DIV>> > _______________________________________________</DIV>
<DIV>> > R-br mailing list</DIV>
<DIV>> > <A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> > <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> ></DIV>
<DIV>> ></DIV>
<DIV>> > Fim da Digest R-br, volume 20, assunto 30</DIV>
<DIV>> > *****************************************</DIV>
<DIV>> > [image: FREE Christmas Animations for your email ? by IncrediMail!</DIV>
<DIV>> > Click Here!]<</DIV>
<DIV>> <A href="http://www.incredimail.com/?id=620188&did=10500&ppd=2747,201111071523,9">http://www.incredimail.com/?id=620188&did=10500&ppd=2747,201111071523,9</A></DIV>
<DIV>> ,[TypeID],[IM_UPN2]&rui=139771782&sd=20121026></DIV>
<DIV>> ></DIV>
<DIV>> > _______________________________________________</DIV>
<DIV>> > R-br mailing list</DIV>
<DIV>> > <A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> > <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> > Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</A>) e forneça</DIV>
<DIV>> > código mínimo reproduzível.</DIV>
<DIV>> ></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> --</DIV>
<DIV>> Grato</DIV>
<DIV>> Augusto C. A. Ribas</DIV>
<DIV>></DIV>
<DIV>> Site Pessoal: <A href="http://recologia.blogspot.com.br/">http://recologia.blogspot.com.br/</A><</DIV>
<DIV>> <A href="http://augustoribas.heliohost.org">http://augustoribas.heliohost.org</A>></DIV>
<DIV>> Lattes: <A href="http://lattes.cnpq.br/7355685961127056">http://lattes.cnpq.br/7355685961127056</A></DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo em HTML foi limpo...</DIV>
<DIV>> URL: <</DIV>
<DIV>> <A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/7ff2d7cb/attachment.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/7ff2d7cb/attachment.html</A></DIV>
<DIV>> ></DIV>
<DIV>> -------------- Próxima Parte ----------</DIV>
<DIV>> Um anexo não-texto foi limpo...</DIV>
<DIV>> Nome: xmas_girl_en.gif</DIV>
<DIV>> Tipo: image/gif</DIV>
<DIV>> Tamanho: 61041 bytes</DIV>
<DIV>> Descrição: não disponível</DIV>
<DIV>> URL: <</DIV>
<DIV>> <A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/7ff2d7cb/attachment.gif">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/7ff2d7cb/attachment.gif</A></DIV>
<DIV>> ></DIV>
<DIV>></DIV>
<DIV>> ------------------------------</DIV>
<DIV>></DIV>
<DIV>> _______________________________________________</DIV>
<DIV>> R-br mailing list</DIV>
<DIV>> <A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>></DIV>
<DIV>></DIV>
<DIV>> Fim da Digest R-br, volume 20, assunto 38</DIV>
<DIV>> *****************************************</DIV>
<DIV>> [image: FREE Christmas Animations for your email ? by IncrediMail!</DIV>
<DIV>> Click Here!]<<A href="http://www.incredimail.com/?id=620189&did=10500&ppd=2748,201111071527,9">http://www.incredimail.com/?id=620189&did=10500&ppd=2748,201111071527,9</A>,[TypeID],[IM_UPN2]&rui=139771782&sd=20121026></DIV>
<DIV>></DIV>
<DIV>> _______________________________________________</DIV>
<DIV>> R-br mailing list</DIV>
<DIV>> <A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>> <A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>> Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</A>) e forneça</DIV>
<DIV>> código mínimo reproduzível.</DIV>
<DIV>></DIV>
<DIV>-------------- Próxima Parte ----------</DIV>
<DIV>Um anexo em HTML foi limpo...</DIV>
<DIV>URL: <<A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/41350124/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/41350124/attachment-0001.html</A>></DIV>
<DIV>-------------- Próxima Parte ----------</DIV>
<DIV>Um anexo não-texto foi limpo...</DIV>
<DIV>Nome: xmas_tree_en.gif</DIV>
<DIV>Tipo: image/gif</DIV>
<DIV>Tamanho: 48428 bytes</DIV>
<DIV>Descrição: não disponível</DIV>
<DIV>URL: <<A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/41350124/attachment-0001.gif">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/41350124/attachment-0001.gif</A>></DIV>
<DIV> </DIV>
<DIV>------------------------------</DIV>
<DIV> </DIV>
<DIV>Message: 2</DIV>
<DIV>Date: Fri, 26 Oct 2012 16:28:09 -0200</DIV>
<DIV>From: Fátima Lima Paula <<A href="mailto:fatima.lima.paula@gmail.com">fatima.lima.paula@gmail.com</A>></DIV>
<DIV>To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>Subject: [R-br] Separa primeiro e último nome</DIV>
<DIV>Message-ID:</DIV>
<DIV> <<A href="mailto:CAJzNC0vRiJ-E-+npGr+bYwsoDKOijg5jeEbzxQUAhqRinw0h7w@mail.gmail.com">CAJzNC0vRiJ-E-+npGr+bYwsoDKOijg5jeEbzxQUAhqRinw0h7w@mail.gmail.com</A>></DIV>
<DIV>Content-Type: text/plain; charset="iso-8859-1"</DIV>
<DIV> </DIV>
<DIV>Prezados, tenho uma coluna com nomes completos.</DIV>
<DIV>Existe uma forma de separar o nome em 3 colunas: uma com primeiro nome, uma</DIV>
<DIV>com nome do meio e uma com último nome?</DIV>
<DIV>Obrigada</DIV>
<DIV>Fátima</DIV>
<DIV>-------------- Próxima Parte ----------</DIV>
<DIV>Um anexo em HTML foi limpo...</DIV>
<DIV>URL: <<A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/b6aa797b/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/b6aa797b/attachment-0001.html</A>></DIV>
<DIV> </DIV>
<DIV>------------------------------</DIV>
<DIV> </DIV>
<DIV>Message: 3</DIV>
<DIV>Date: Fri, 26 Oct 2012 17:15:01 -0200</DIV>
<DIV>From: Walmes Zeviani <<A href="mailto:walmeszeviani@gmail.com">walmeszeviani@gmail.com</A>></DIV>
<DIV>To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>Subject: Re: [R-br] Separa primeiro e último nome</DIV>
<DIV>Message-ID:</DIV>
<DIV> <<A href="mailto:CAFU=EkYppn=gqoKQ6yhkrSzVeXywXTSFkWCzvyQnhSNUswwR_w@mail.gmail.com">CAFU=EkYppn=gqoKQ6yhkrSzVeXywXTSFkWCzvyQnhSNUswwR_w@mail.gmail.com</A>></DIV>
<DIV>Content-Type: text/plain; charset="iso-8859-1"</DIV>
<DIV> </DIV>
<DIV>Tem sim, tudo depende do padrão apresentado. Todos os nomes são compostos</DIV>
<DIV>por 3 partes? Bem, á pra usar a função strsplit() e quebrar no espaço em</DIV>
<DIV>branco, o resultado é uma lista. Um probleminha surge com nomes que tem</DIV>
<DIV>"da", "do", "das", "dos", "de" (da Silva, dos Santos, de Oliveira, do</DIV>
<DIV>Nascimento, das Flores), mas pode ser revolvido. Veja</DIV>
<DIV> </DIV>
<DIV>nomes <- c("Antonio Teixeira Batista",</DIV>
<DIV> "Suellen Cristina Albuquerque",</DIV>
<DIV> "Paulo Matias dos Santos")</DIV>
<DIV> </DIV>
<DIV># separa pelo espaço</DIV>
<DIV>x1 <- strsplit(nomes, split=" ")</DIV>
<DIV>x1</DIV>
<DIV> </DIV>
<DIV># junta o meio</DIV>
<DIV>sapply(x1,</DIV>
<DIV> function(i){</DIV>
<DIV> n <- length(i)</DIV>
<DIV> c(i[1], paste(i[2:(n-1)], collapse=" "), i[n])</DIV>
<DIV> })</DIV>
<DIV> </DIV>
<DIV>À disposição.</DIV>
<DIV>Walmes.</DIV>
<DIV> </DIV>
<DIV>==========================================================================</DIV>
<DIV>Walmes Marques Zeviani</DIV>
<DIV>LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</DIV>
<DIV>Departamento de Estatística - Universidade Federal do Paraná</DIV>
<DIV>fone: (+55) 41 3361 3573</DIV>
<DIV>VoIP: (3361 3600) 1053 1173</DIV>
<DIV>e-mail: <A href="mailto:walmes@ufpr.br">walmes@ufpr.br</A></DIV>
<DIV>skype: walmeszeviani</DIV>
<DIV>twitter: @walmeszeviani</DIV>
<DIV>homepage: <A href="http://www.leg.ufpr.br/~walmes">http://www.leg.ufpr.br/~walmes</A></DIV>
<DIV>linux user number: 531218</DIV>
<DIV>==========================================================================</DIV>
<DIV>-------------- Próxima Parte ----------</DIV>
<DIV>Um anexo em HTML foi limpo...</DIV>
<DIV>URL: <<A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/da795aec/attachment-0001.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/da795aec/attachment-0001.html</A>></DIV>
<DIV> </DIV>
<DIV>------------------------------</DIV>
<DIV> </DIV>
<DIV>Message: 4</DIV>
<DIV>Date: Fri, 26 Oct 2012 12:17:44 -0700 (PDT)</DIV>
<DIV>From: Alisson Lucrecio <<A href="mailto:alissonluc@yahoo.com.br">alissonluc@yahoo.com.br</A>></DIV>
<DIV>To: "<A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A>" <<A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A>></DIV>
<DIV>Subject: Re: [R-br] Separa primeiro e último nome</DIV>
<DIV>Message-ID:</DIV>
<DIV> <<A href="mailto:1351279064.24241.YahooMailNeo@web160705.mail.bf1.yahoo.com">1351279064.24241.YahooMailNeo@web160705.mail.bf1.yahoo.com</A>></DIV>
<DIV>Content-Type: text/plain; charset="iso-8859-1"</DIV>
<DIV> </DIV>
<DIV>Olá, vc nao colocou muito bem como quer fazer essa divisão, mas no caso se os nomes forem separados por uma "/" use esse script, mas se for outro separador é só fazer uma adaptação.</DIV>
<DIV>Saudações</DIV>
<DIV> </DIV>
<DIV>Alisson Lucrécio da Costa</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>library(stringr)</DIV>
<DIV>df</DIV>
<DIV>names3 <- str_split(df$names3, pattern="/")</DIV>
<DIV> names3 <- do.call(rbind, names3)</DIV>
<DIV> names3 <- data.frame(names3)</DIV>
<DIV> names(names3)[which(names(names3) == "X1")] <- "names1"</DIV>
<DIV> names(names3)[which(names(names3) == "X2")] <- "names2"</DIV>
<DIV> names(names3)[which(names(names3) == "X3")] <- "names3"</DIV>
<DIV> </DIV>
<DIV> names3$id <- with(names, paste(names1, names2, names3, sep="."))</DIV>
<DIV> df2 <- cbind(names3, df[,-1])</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>________________________________</DIV>
<DIV> From: Fátima Lima Paula <<A href="mailto:fatima.lima.paula@gmail.com">fatima.lima.paula@gmail.com</A>></DIV>
<DIV>To: <A href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A></DIV>
<DIV>Sent: Friday, October 26, 2012 4:28 PM</DIV>
<DIV>Subject: [R-br] Separa primeiro e último nome</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Prezados, tenho uma coluna com nomes completos.</DIV>
<DIV>Existe uma forma de separar o nome em 3 colunas: uma com primeiro nome, uma com nome do meio e uma com último nome?</DIV>
<DIV>Obrigada</DIV>
<DIV>Fátima</DIV>
<DIV>_______________________________________________</DIV>
<DIV>R-br mailing list</DIV>
<DIV><A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV><A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV>Leia o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</A>) e forneça código mínimo reproduzível.</DIV>
<DIV>-------------- Próxima Parte ----------</DIV>
<DIV>Um anexo em HTML foi limpo...</DIV>
<DIV>URL: <<A href="http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/4334d389/attachment.html">http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121026/4334d389/attachment.html</A>></DIV>
<DIV> </DIV>
<DIV>------------------------------</DIV>
<DIV> </DIV>
<DIV>_______________________________________________</DIV>
<DIV>R-br mailing list</DIV>
<DIV><A href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</A></DIV>
<DIV><A href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV>Fim da Digest R-br, volume 20, assunto 40</DIV>
<DIV>*****************************************</DIV></DIV></TD></TR>
<TR>
<TD id=INCREDIFOOTER width="100%">
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD width="100%"></TD>
<TD id=INCREDISOUND vAlign=bottom align=middle></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><SPAN id=IncrediStamp><A href="http://www.incredimail.com/?id=620189&did=10500&ppd=2748,201111071527,9,[TypeID],[IM_UPN2]&rui=139771782&sd=20121028"><SPAN name="imgCache" border="0"><IMG border=0 alt="FREE Christmas Animations for your email – by IncrediMail! Click Here!" src="cid:50FB232C-E404-45CE-A643-B6DAF6F0882D"></SPAN></A></SPAN></BODY></HTML>