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 <martavaldes85@gmail.com>
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
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>



-- 
Daniel

	[[alternative HTML version deleted]]

