Hola,

No, si pones una secuencia de variables ("filename") con diferentes
valores, al final la variable tomará el último valor.
Por eso, para cada fichero tienes que almacenar el resultado en un
data.frame intermedio y luego juntar todos estos resultados parciales en tu
data.frame final.

Una forma de hacerlo sería así:

#--------------------------------------------
setwd("C:/users/marta/desktop/DB")
 library(chron)
  library(xlsx)

 filename<-"univerest_50.csv"
DBxy.a<-read.csv(filename, sep="",sep=",",header=TRUE)

filename<-"monicap_50.csv"
DBxy.b<-read.csv(filename, sep="",sep=",",header=TRUE)

filename<-"univer1_50.csv"
DBxy.c<-read.csv(filename, sep="",sep=",",header=TRUE)

  filename<-"univer2_50.csv"
DBxy.d<-read.csv(filename, sep="",sep=",",header=TRUE)

#Junto todos los resultados parciales
DBxy <- rbind.data.frame(DBxy.a, DBxy.b, DBxy.c, DBxy.d)
#--------------------------------------------


Saludos,
Carlos Ortega
www.qualityexcellence.es


El 29 de mayo de 2014, 19:40, Marta valdes lopez <martavaldes85@gmail.com>
escribió:

> Si asi funciono¡ pero mi pregunta ahora es como hago para que me lea los 4
> ficheros, porque lo que quiero es integrar los 4 excels en uno que seria el
> DBxy, y por eso utilice el xlsx, porque si pongo diferentes nombres a
> filename me los pondria en diferentes archivos no?
>
> Muchas gracias¡
>
>
> El 29 de mayo de 2014, 19:25, <miguel.angel.rodriguez.muinos@sergas.es>
> escribió:
>
> > Revisando tu mensaje con más detenimiento (y no sólo en la coma a la que
> > me refería en el correo anterior) veo que el código que adjuntas de
> ejemplo
> > es algo confuso....
> >
> > Al usar setwd() al principio ya no necesitas luego el paste() dentro del
> > read.csv() ... así se te complica la cosa (incluso llego a adivinar que
> > falta un slash al final), llega con que le especifiques el nombre del
> > fichero porque estás ya en ese directorio de trabajo).
> > Por otro lado, asignas 4 valores distintos a la variable 'filename' por
> lo
> > que se quedará con el último valor (univer2_50.csv).
> > Resumiendo: tu código podría quedar así con idéntico resultado:
> >
> > setwd("C:/users/marta/desktop/DB")
> > filename<-"univer2_50.csv"
> > DBxy<-read.csv(filename, sep=",", header=TRUE)
> >
> > Un Saludo,
> > Miguel.
> >
> >
> >
> >
> > ________________________________________
> > De: r-help-es-bounces@r-project.org [r-help-es-bounces@r-project.org] en
> > nombre de Marta valdes lopez [martavaldes85@gmail.com]
> > Enviado: jueves, 29 de mayo de 2014 18:49
> > Para: r-help-es@r-project.org
> > Asunto: [R-es] ayuda con "unexpected symbol"
> >
> > Hola,
> >
> > Tengo la version R 3.1, estoy intentado usar este script pero me dice que
> > el simbolo " no tiene que estar ahi, ya intente borrando comillas o
> > diferentes formas y no lo consigo, si alguien sabe agradezco ayuda.
> >
> > setwd("C:/users/marta/desktop/DB")
> >  library(chron)
> >   library(xlsx)
> >  filename<-"univerest_50.csv"
> >   filename<-"monicap_50.csv"
> >   filename<-"univer1_50.csv"
> >   filename<-"univer2_50.csv"
> > DBxy<-read.csv(paste("C:/users/marta/desktop/DB",filename, sep="")
> > sep=",",header=TRUE)
> >
> > Yen esta linea es cuando me dice que unexpected symbol "
> >
> > Gracias
> >
> >         [[alternative HTML version deleted]]
> >
> > _______________________________________________
> > R-help-es mailing list
> > R-help-es@r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
> >
> > ________________________________
> >
> > Nota: A información contida nesta mensaxe e os seus posibles documentos
> > adxuntos é privada e confidencial e está dirixida únicamente ó seu
> > destinatario/a. Se vostede non é o/a destinatario/a orixinal desta
> mensaxe,
> > por favor elimínea. A distribución ou copia desta mensaxe non está
> > autorizada.
> >
> > Nota: La información contenida en este mensaje y sus posibles documentos
> > adjuntos es privada y confidencial y está dirigida únicamente a su
> > destinatario/a. Si usted no es el/la destinatario/a original de este
> > mensaje, por favor elimínelo. La distribución o copia de este mensaje no
> > está autorizada.
> >
> > See more languages: http://www.sergas.es/aviso_confidencialidad.htm
> >
>
>         [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]

