Marta, Según leo lo que escribiste primero lees unos archivos indicando que lean el nombre de las columnas. Luego eliminas los NA y seleccionas los datos por algunos State (Fishing y Night) por separado y los escribes en un archivo con append = TRUE que significa que lo agregas a un archivo existente que supongo tiene el nombre de las columnas. Si quieres crear el archivo y no solo agregarlo a continuación de uno existente mantén append = FALSE que es el default. También claramente le indicas a write.table que ignore el nombre de las columnas con col.names = FALSE que hace absoluto sentido con el append = TRUE.
Como no proporcionas un ejemplo reproducible es todo lo que te puedo decir de como interpreto lo que escibiste en el script, con el cual obtienes lo que pides. Espero te sirva, Daniel Merino El 12 de junio de 2014, 11:56, Marta valdes lopez <[email protected]> escribió: > Hola, > > Utilize un script en el obtuve una tabla con resultados y a partir de esas > tablas utilize el siguiente script para que me hiciera una seleccion de lo > que me interesaba, lo que me passa es que en las tablas obtenidas no me > aparecen los encabezados de cada columna, supongo que sea por ser una > seleccion de unos datos, hay alguna manera de que en la seleccion me > aparezcan los encabezados de cada columna? > > filename<-"results_monicap_50.csv" > DBx.a<-read.csv(filename,sep=",",header=TRUE) > filename<-"results_univer1_50.csv" > DBx.b<-read.csv(filename,sep=",",header=TRUE) > filename<-"results_univer2_50.csv" > DBx.c<-read.csv(filename,sep=",",header=TRUE) > filename<-"results_univerest_50.csv" > DBx.d<-read.csv(filename,sep=",",header=TRUE) > DBx<-rbind.data.frame(DBx.a,DBx.b,DBx.c,DBx.d) > > > DBx<-read.csv(filename,sep=",",header=TRUE) > #Selecting Fishing > DBfishing<- na.omit(DBx[(DBx$State=="Fishing"),]) > write.table(DBfishing, file = > ("C:/Users/Marta/Desktop/Fishing.csv"), append = T, quote = F, sep = ",", > dec = ".", > row.names = F, col.names = F) > #Selecting nigth > DBnight<- na.omit(DBx[(DBx$State=="Night"),]) > write.table(DBnight, file = > paste("C:/Users/Marta/Desktop/Night.csv"), append = T, quote = F, sep = > ",", dec = ".", > row.names = F, col.names = F) > > Si alguien me puede dar una idea lo agradeceria, muchas gracias. > Un saludo > > [[alternative HTML version deleted]] > > _______________________________________________ > R-help-es mailing list > [email protected] > https://stat.ethz.ch/mailman/listinfo/r-help-es > -- Daniel [[alternative HTML version deleted]]
_______________________________________________ R-help-es mailing list [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
