<font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Pessoal, desculpem, mas não consigo rodar um script que o Walmes me passou.</font></font></font><div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">No exemplo, fica tudo bem, mas na real dá zebra.</font></font></font></div>
<div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Acho que os objetos estão sendo considerados diferentemente. No exemplo tudo estava com factor. Passei tudo para factor. Nos exemplos os dois bancos eram data.frames. Mas quando faço a função em um a saída vem diferente da do outro.</font></font></font></div>
<div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Por favor, alguém poderia me ajudar.</font></font></font></div><div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Exemplo que apresentei</font></font></font></div>
<div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif"><br></font></font></font></div><div><div><font face="arial, helvetica, sans-serif">nome=c("Teresa dos Santos","Paulo da Silva","Denis Henrique de Paula","Pedro dos Santos","Pedro Maia", "Maria do Carmo")</font></div>
<div><font face="arial, helvetica, sans-serif">idade=c("80","89","78","78","78","85")</font></div><div><font face="arial, helvetica, sans-serif">dataint=c("26","20","25","25","25","20")</font></div>
<div><font face="arial, helvetica, sans-serif">dados1=data.frame(nome,idade,dataint)</font></div><div><font face="arial, helvetica, sans-serif">dados1</font></div><div><font face="arial, helvetica, sans-serif">str(dados1)</font></div>
<div><font face="arial, helvetica, sans-serif">nome1=dados1$nome</font></div><div><font face="arial, helvetica, sans-serif"># remover da,das,do,dos,de</font></div><div><font face="arial, helvetica, sans-serif">nome1=gsub(" d(a|e|o)s? ", " ", nome1)</font></div>
<div><font face="arial, helvetica, sans-serif">separado1=strsplit(as.character(nome1), split=" ")</font></div><div><font face="arial, helvetica, sans-serif">head(separado1)</font></div><div><font face="arial, helvetica, sans-serif">fa1=sapply(separado1,</font></div>
<div><font face="arial, helvetica, sans-serif"> function(i){</font></div><div><font face="arial, helvetica, sans-serif"> n=length(i)</font></div><div><font face="arial, helvetica, sans-serif"> if(n>2) return(c(i[1], paste(i[2:(n-1)],collapse=" "), i[n]))</font></div>
<div><font face="arial, helvetica, sans-serif"> if(n==2) return(c(i[1], NA, i[n]))</font></div><div><font face="arial, helvetica, sans-serif"> })</font></div><div><font face="arial, helvetica, sans-serif">nomenovo1=t(fa1)</font></div>
<div><font face="arial, helvetica, sans-serif">nomenovo1=as.data.frame(nomenovo1)</font></div><div><font face="arial, helvetica, sans-serif">dim(nomenovo1)</font></div><div><font face="arial, helvetica, sans-serif">colnames(nomenovo1)=c("nome1","nome2","nome3")</font></div>
<div><font face="arial, helvetica, sans-serif">dados2=cbind(dados1,nomenovo1)</font></div><div><font face="arial, helvetica, sans-serif">head(dados2)</font></div><div style="color:rgb(153,51,153);font-size:large;font-family:'comic sans ms',sans-serif">
<br></div><div style="color:rgb(153,51,153);font-size:large;font-family:'comic sans ms',sans-serif">Quando faço head para o fa1 no meu exemplo, retorna assim, que pelo pouco que sei de R, parece uma matriz</div><div style="color:rgb(153,51,153);font-size:large;font-family:'comic sans ms',sans-serif">
<br></div><div><div><font face="arial, helvetica, sans-serif">> head(fa1)</font></div><div><font face="arial, helvetica, sans-serif"> [,1] [,2] [,3] [,4] [,5] [,6] </font></div><div><font face="arial, helvetica, sans-serif">[1,] "Teresa" "Paulo" "Denis" "Pedro" "Pedro" "Maria"</font></div>
<div><font face="arial, helvetica, sans-serif">[2,] NA NA "Henrique" NA NA NA </font></div><div><font face="arial, helvetica, sans-serif">[3,] "Santos" "Silva" "Paula" "Santos" "Maia" "Carmo"</font></div>
<div><br></div><div><font color="#993399" face="comic sans ms, sans-serif" size="4">Já quando peço o head do fa do meu bancão, retorna assim e zebra tudo a partir daí.</font></div><div><br></div></div><div style="color:rgb(153,51,153);font-size:large">
<div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">> head(fa)</font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[[1]]</font></div>
<div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[1] "HERALDO" "TAVARES" "SILVA" </font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small">
<font face="arial, helvetica, sans-serif"><br></font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[[2]]</font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small">
<font face="arial, helvetica, sans-serif">[1] "JUPITER" NA "SILVA" </font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif"><br></font></div>
<div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[[3]]</font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[1] "JACI" NA "SANTOS"</font></div>
<div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif"><br></font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[[4]]</font></div>
<div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[1] "MARCOS" "SILVA" "FILHO" </font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small">
<font face="arial, helvetica, sans-serif"><br></font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[[5]]</font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small">
<font face="arial, helvetica, sans-serif">[1] "PAULO" "SILVA" "PORTO"</font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif"><br>
</font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[[6]]</font></div><div style="font-family:arial;color:rgb(0,0,0);font-size:small"><font face="arial, helvetica, sans-serif">[1] "INACIO" "AVELINO" "BELO" </font></div>
<div style="font-family:'comic sans ms',sans-serif"><font face="arial, helvetica, sans-serif"><br></font></div><div><font face="comic sans ms, sans-serif">Alguém tem ideia do que seja?</font></div><div><font face="comic sans ms, sans-serif">Obrigada</font></div>
<div><font face="comic sans ms, sans-serif">Fátima</font></div></div></div>