Prezados, consegui o que eu queria, graças a vocês. Estava com dificuldade porque o que eu tinha depois de fazer o t(fa) não era um data.frame. Depois que transformei em data.frame foi só juntar o antigo e criado por mim e deu certo. Muito obrigada a todos. Fátima Segue o passo a passo: idoso200801=read.csv("idoso200801.csv",header=T) teste=idoso200801 nome=teste$AH_PACIENT library(stringr) separado=strsplit(as.character(nome),split=" ") head(separado) fa=sapply(separado, function(i){ n=length(i) c(i[1],paste(i[2:(n-1)],collapse=" "), i[n]) }) head(fa) nomenovo=t(fa) is.data.frame(nomenovo) as.data.frame(nomenovo) dim(nomenovo) colnames(nomenovo)=c("nome1","nome2","nome3") head(nomenovo) testenovo=cbind(teste,nomenovo) head(testenovo)