<font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Descobri que não consigo separar os nomes no bancão poque têm vários nomes que não têm sobrenome nenhum.</font></font></font><div><span style="font-family:'comic sans ms',sans-serif;font-size:large;color:rgb(153,51,153)">Só que são muitos.</span></div>

<div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Existe uma forma de excluir essas linhas?</font></font></font></div><div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Aí vai o exemplo com a Maria. Não roda.</font></font></font></div>
<div><font color="#993399"><font size="4"><font face="comic sans ms,sans-serif">Quando peço um summary no "separado", retorna que Maria tem length=1. Seria retirar todos que têm length=1.</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 style="background-color:rgb(255,255,255)"><div><font color="#222222" face="arial, helvetica, sans-serif">nome=c("Teresa dos Santos","Paulo da Silva","Denis Henrique de Paula","Pedro dos Santos","Pedro Maia", "Maria")</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">idade=c("80","89","78","78","78","85")</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">dataint=c("26","20","25","25","25","20")</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">dados1=data.frame(nome,idade,dataint)</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">dados1</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">str(dados1)</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">nome1=dados1$nome</font></div><div><font color="#222222" face="arial, helvetica, sans-serif"># remover da,das,do,dos,de</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">nome1=gsub(" d(a|e|o)s? ", " ", nome1)</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">separado1=strsplit(as.character(nome1), split=" ")</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">head(separado1)</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">fa1=sapply(separado1,</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">          function(i){</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">            n=length(i)</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">            if(n>2) return(c(i[1], paste(i[2:(n-1)],collapse=" "), i[n]))</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">            if(n==2) return(c(i[1], NA, i[n]))</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">          })</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">nomenovo1=t(fa1)</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">nomenovo1=as.data.frame(nomenovo1)</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">dim(nomenovo1)</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">colnames(nomenovo1)=c("nome1","nome2","nome3")</font></div>
<div><font color="#222222" face="arial, helvetica, sans-serif">dados2=cbind(dados1,nomenovo1)</font></div><div><font color="#222222" face="arial, helvetica, sans-serif">head(dados2)</font></div><div><font color="#663366" face="comic sans ms, sans-serif" size="4">Por favor, alguém pode ajudar?</font></div>
</div></div>