Enviado desde mi iPhone El 21/01/2013, a las 13:17, "FERRER MARTINEZ, DIEGO" <FERRERDIEGO@bancsabadell.com> escribió:> Buenas, > > Como podría graficar fechas en el eje de abcisas y datos en el de ordenadas. Son series financieras > > Gracias > > 21/01/2013 > 8.628,300 > 18/01/2013 > 8.662,300 > 17/01/2013 > 8.568,400 > 16/01/2013 > 8.588,900 > 15/01/2013 > 8.549,600 > 14/01/2013 > 8.699,200 > 11/01/2013 > 8.638,000 > 10/01/2013 > 8.607,300 > 09/01/2013 > 8.491,800 > 08/01/2013 > 8.388,200 > 07/01/2013 > 8.434,300 > 04/01/2013 > 8.411,700 > 03/01/2013 > 8.375,000 > 02/01/2013 > 8.337,900 > 31/12/2012 > 8.111,900 > 28/12/2012 > 8.276,600 > 27/12/2012 > 8.236,500 > 24/12/2012 > 8.261,600 > 21/12/2012 > 8.223,500 > 20/12/2012 > 8.226,700 > 19/12/2012 > 8.192,300 > 18/12/2012 > 8.068,600 > 17/12/2012 > 8.017,800 > 14/12/2012 > 8.025,900 > 13/12/2012 > 8.005,900 > 12/12/2012 > 7.935,100 > 11/12/2012 > 7.813,600 > 10/12/2012 > 7.796,100 > 07/12/2012 > 7.915,700 > 06/12/2012 > 7.905,800 > 05/12/2012 > 7.948,500 > 04/12/2012 > 7.871,900 > 03/12/2012 > 7.963,400 > 30/11/2012 > 7.967,900 > 29/11/2012 > 7.887,400 > 28/11/2012 > 7.839,400 > 27/11/2012 > 7.936,600 > 26/11/2012 > 7.882,800 > 23/11/2012 > 7.887,200 > 22/11/2012 > 7.828,500 > 21/11/2012 > 7.751,800 > 20/11/2012 > 7.722,400 > 19/11/2012 > 7.661,800 > 16/11/2012 > 7.694,000 > 15/11/2012 > 7.615,400 > 14/11/2012 > 7.695,600 > 13/11/2012 > 7.521,900 > 12/11/2012 > 7.632,100[[alternative HTML version deleted]]
Hola, ¿qué tal? Usa el paquete zoo (por ejemplo). Tienes ejemplos en el blog de Gregorio Serrano: http://www.grserrano.es/wp/2012/04/gebr-5-regresion-con-series-temporales-i/ Un saludo, Carlos J. Gil Bellosta http://www.datanalytics.com El día 21 de enero de 2013 15:50, Diego <diego.ferrer en telefonica.net> escribió:> > > Enviado desde mi iPhone > > El 21/01/2013, a las 13:17, "FERRER MARTINEZ, DIEGO" <FERRERDIEGO en bancsabadell.com> escribió: > >> Buenas, >> >> Como podría graficar fechas en el eje de abcisas y datos en el de ordenadas. Son series financieras >> >> Gracias >> >> 21/01/2013 >> 8.628,300 >> 18/01/2013 >> 8.662,300 >> 17/01/2013 >> 8.568,400 >> 16/01/2013 >> 8.588,900 >> 15/01/2013 >> 8.549,600 >> 14/01/2013 >> 8.699,200 >> 11/01/2013 >> 8.638,000 >> 10/01/2013 >> 8.607,300 >> 09/01/2013 >> 8.491,800 >> 08/01/2013 >> 8.388,200 >> 07/01/2013 >> 8.434,300 >> 04/01/2013 >> 8.411,700 >> 03/01/2013 >> 8.375,000 >> 02/01/2013 >> 8.337,900 >> 31/12/2012 >> 8.111,900 >> 28/12/2012 >> 8.276,600 >> 27/12/2012 >> 8.236,500 >> 24/12/2012 >> 8.261,600 >> 21/12/2012 >> 8.223,500 >> 20/12/2012 >> 8.226,700 >> 19/12/2012 >> 8.192,300 >> 18/12/2012 >> 8.068,600 >> 17/12/2012 >> 8.017,800 >> 14/12/2012 >> 8.025,900 >> 13/12/2012 >> 8.005,900 >> 12/12/2012 >> 7.935,100 >> 11/12/2012 >> 7.813,600 >> 10/12/2012 >> 7.796,100 >> 07/12/2012 >> 7.915,700 >> 06/12/2012 >> 7.905,800 >> 05/12/2012 >> 7.948,500 >> 04/12/2012 >> 7.871,900 >> 03/12/2012 >> 7.963,400 >> 30/11/2012 >> 7.967,900 >> 29/11/2012 >> 7.887,400 >> 28/11/2012 >> 7.839,400 >> 27/11/2012 >> 7.936,600 >> 26/11/2012 >> 7.882,800 >> 23/11/2012 >> 7.887,200 >> 22/11/2012 >> 7.828,500 >> 21/11/2012 >> 7.751,800 >> 20/11/2012 >> 7.722,400 >> 19/11/2012 >> 7.661,800 >> 16/11/2012 >> 7.694,000 >> 15/11/2012 >> 7.615,400 >> 14/11/2012 >> 7.695,600 >> 13/11/2012 >> 7.521,900 >> 12/11/2012 >> 7.632,100 > > [[alternative HTML version deleted]] > > > _______________________________________________ > R-help-es mailing list > R-help-es en r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es >
Diego, En el futuro incluye un ejemplo reproducible, sin un ejemplo reproducible las posibilidades de obtener una respuesta son menores. Los ejemplos que incluyo directa o indirectamente dependen del zoo, el paquete que te indicó Carlos. Mira si algo de esto te sirve: ### library(xts) # carga el paquete zoo del que detende library(xtsExtra) # paquete para graficar library(PerformanceAnalytics) # no solo grafica hace mucho mas. library(quantmod) # complemento de los anteriores getSymbols(''DIA'') # obtengo los datos de yahoo head(DIA) # esta es una muestra de los datos plot(DIA) # la función plot reconoce la clase zoo, xts plot(DIA[,6]) # la función plot reconoce la clase zoo, xts plot(DIA[,6], yax.loc = "flip", lwd = c(3, rep(1,6), 2), main = "ES Chart", blocks = list(start.time = c("2001-03-01", "2007-12-01"), end.time c("2001-11-01", "2009-06-01"), col = "lightblue1"), cex.lab = 0.8) charts.PerformanceSummary(diff(log(DIA[,6]))) candleChart(tail(DIA, 65),multi.col=TRUE,theme="white") sessionInfo() ### R version 2.15.2 (2012-10-26) Platform: x86_64-redhat-linux-gnu (64-bit) locale: [1] LC_CTYPE=es_ES.UTF-8 LC_NUMERIC=C LC_TIME=es_ES.UTF-8 [4] LC_COLLATE=es_ES.UTF-8 LC_MONETARY=es_ES.UTF-8 LC_MESSAGES=es_ES.UTF-8 [7] LC_PAPER=C LC_NAME=C LC_ADDRESS=C [10] LC_TELEPHONE=C LC_MEASUREMENT=es_ES.UTF-8 LC_IDENTIFICATION=C attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] quantmod_0.3-17 TTR_0.21-1 Defaults_1.1-1 [4] PerformanceAnalytics_1.0.4.4 xtsExtra_0.0-1 xts_0.9-1 [7] zoo_1.7-9 loaded via a namespace (and not attached): [1] grid_2.15.2 lattice_0.20-10 tools_2.15.2 Daniel Merino El 21 de enero de 2013 11:56, Carlos J. Gil Bellosta <cgb@datanalytics.com>escribió:> Hola, ¿qué tal? > > Usa el paquete zoo (por ejemplo). Tienes ejemplos en el blog de > Gregorio Serrano: > > > http://www.grserrano.es/wp/2012/04/gebr-5-regresion-con-series-temporales-i/ > > Un saludo, > > Carlos J. Gil Bellosta > http://www.datanalytics.com > > El día 21 de enero de 2013 15:50, Diego <diego.ferrer@telefonica.net> > escribió: > > > > > > Enviado desde mi iPhone > > > > El 21/01/2013, a las 13:17, "FERRER MARTINEZ, DIEGO" < > FERRERDIEGO@bancsabadell.com> escribió: > > > >> Buenas, > >> > >> Como podría graficar fechas en el eje de abcisas y datos en el de > ordenadas. Son series financieras > >> > >> Gracias > >> > >> 21/01/2013 > >> 8.628,300 > >> 18/01/2013 > >> 8.662,300 > >> 17/01/2013 > >> 8.568,400 > >> 16/01/2013 > >> 8.588,900 > >> 15/01/2013 > >> 8.549,600 > >> 14/01/2013 > >> 8.699,200 > >> 11/01/2013 > >> 8.638,000 > >> 10/01/2013 > >> 8.607,300 > >> 09/01/2013 > >> 8.491,800 > >> 08/01/2013 > >> 8.388,200 > >> 07/01/2013 > >> 8.434,300 > >> 04/01/2013 > >> 8.411,700 > >> 03/01/2013 > >> 8.375,000 > >> 02/01/2013 > >> 8.337,900 > >> 31/12/2012 > >> 8.111,900 > >> 28/12/2012 > >> 8.276,600 > >> 27/12/2012 > >> 8.236,500 > >> 24/12/2012 > >> 8.261,600 > >> 21/12/2012 > >> 8.223,500 > >> 20/12/2012 > >> 8.226,700 > >> 19/12/2012 > >> 8.192,300 > >> 18/12/2012 > >> 8.068,600 > >> 17/12/2012 > >> 8.017,800 > >> 14/12/2012 > >> 8.025,900 > >> 13/12/2012 > >> 8.005,900 > >> 12/12/2012 > >> 7.935,100 > >> 11/12/2012 > >> 7.813,600 > >> 10/12/2012 > >> 7.796,100 > >> 07/12/2012 > >> 7.915,700 > >> 06/12/2012 > >> 7.905,800 > >> 05/12/2012 > >> 7.948,500 > >> 04/12/2012 > >> 7.871,900 > >> 03/12/2012 > >> 7.963,400 > >> 30/11/2012 > >> 7.967,900 > >> 29/11/2012 > >> 7.887,400 > >> 28/11/2012 > >> 7.839,400 > >> 27/11/2012 > >> 7.936,600 > >> 26/11/2012 > >> 7.882,800 > >> 23/11/2012 > >> 7.887,200 > >> 22/11/2012 > >> 7.828,500 > >> 21/11/2012 > >> 7.751,800 > >> 20/11/2012 > >> 7.722,400 > >> 19/11/2012 > >> 7.661,800 > >> 16/11/2012 > >> 7.694,000 > >> 15/11/2012 > >> 7.615,400 > >> 14/11/2012 > >> 7.695,600 > >> 13/11/2012 > >> 7.521,900 > >> 12/11/2012 > >> 7.632,100 > > > > [[alternative HTML version deleted]] > > > > > > _______________________________________________ > > R-help-es mailing list > > R-help-es@r-project.org > > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > _______________________________________________ > 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]]
Diego, espero esto responda tu consulta. Por favor en el futuro siempre mantén el intercambio de mensajes dentro de la lista ya que otros pueden tener las mismas dudas. Asimismo, la diferencia de usos horarios demore respuestas que otros que te puedan contestar no lo hagan por no saber que no solucionaste tu problema. ### # Leo los datos teniendo en cuenta que es archivo de texto con separación por tab y con fechas, las que normalmente serán leídas como factores cosa que no quiero, adicionalmente el decimal se indica con coma y no tienen nombre las columnas. x <- read.table("Duda_R_graficar.txt", header=FALSE, sep="\t", dec = ",", stringsAsFactors = FALSE) str(x) # lo leí bien y tengo un data.frame con caracteres y números head(x) library(xts) # voy a usar la liberías zoo xts x <- xts( x[,2], order.by = as.Date(x[,1], format = "%d/%m/%Y")) # le digo a la base de datos que e str(x) colnames(x) <- c("Valor") tail(x) # los datos originales estaban en orden decreciente summary(x) plot(x) # luego de aquí puedes seguir con el ejemplo que te di ayer. sessionInfo() ### R version 2.15.2 (2012-10-26) Platform: i386-w64-mingw32/i386 (32-bit) locale: [1] LC_COLLATE=Spanish_Argentina.1252 LC_CTYPE=Spanish_Argentina.1252 LC_MONETARY=Spanish_Argentina.1252 LC_NUMERIC=C [5] LC_TIME=Spanish_Argentina.1252 attached base packages: [1] stats graphics grDevices utils datasets methods base other attached packages: [1] xts_0.9-1 zoo_1.7-9 loaded via a namespace (and not attached): [1] grid_2.15.2 lattice_0.20-13 tools_2.15.2 Daniel Merino El 21 de enero de 2013 14:59, daniel <daniel319@gmail.com> escribió:> Diego, > > En el futuro incluye un ejemplo reproducible, sin un ejemplo reproducible > las posibilidades de obtener una respuesta son menores. Los ejemplos que > incluyo directa o indirectamente dependen del zoo, el paquete que te indicó > Carlos. > > Mira si algo de esto te sirve: > > ### > > library(xts) # carga el paquete zoo del que detende > library(xtsExtra) # paquete para graficar > library(PerformanceAnalytics) # no solo grafica hace mucho mas. > library(quantmod) # complemento de los anteriores > getSymbols(''DIA'') # obtengo los datos de yahoo > head(DIA) # esta es una muestra de los datos > plot(DIA) # la función plot reconoce la clase zoo, xts > plot(DIA[,6]) # la función plot reconoce la clase zoo, xts > plot(DIA[,6], yax.loc = "flip", lwd = c(3, rep(1,6), 2), main = "ES > Chart", blocks = list(start.time = c("2001-03-01", "2007-12-01"), end.time > = c("2001-11-01", "2009-06-01"), col = "lightblue1"), cex.lab = 0.8) > charts.PerformanceSummary(diff(log(DIA[,6]))) > candleChart(tail(DIA, 65),multi.col=TRUE,theme="white") > sessionInfo() > > ### > > R version 2.15.2 (2012-10-26) > Platform: x86_64-redhat-linux-gnu (64-bit) > > locale: > [1] LC_CTYPE=es_ES.UTF-8 LC_NUMERIC=C > LC_TIME=es_ES.UTF-8 > [4] LC_COLLATE=es_ES.UTF-8 LC_MONETARY=es_ES.UTF-8 > LC_MESSAGES=es_ES.UTF-8 > [7] LC_PAPER=C LC_NAME=C LC_ADDRESS=C > > [10] LC_TELEPHONE=C LC_MEASUREMENT=es_ES.UTF-8 > LC_IDENTIFICATION=C > > attached base packages: > [1] stats graphics grDevices utils datasets methods base > > other attached packages: > [1] quantmod_0.3-17 TTR_0.21-1 > Defaults_1.1-1 > [4] PerformanceAnalytics_1.0.4.4 xtsExtra_0.0-1 xts_0.9-1 > > [7] zoo_1.7-9 > > loaded via a namespace (and not attached): > [1] grid_2.15.2 lattice_0.20-10 tools_2.15.2 > > Daniel Merino > > > El 21 de enero de 2013 11:56, Carlos J. Gil Bellosta <cgb@datanalytics.com > > escribió: > > Hola, ¿qué tal? >> >> Usa el paquete zoo (por ejemplo). Tienes ejemplos en el blog de >> Gregorio Serrano: >> >> >> http://www.grserrano.es/wp/2012/04/gebr-5-regresion-con-series-temporales-i/ >> >> Un saludo, >> >> Carlos J. Gil Bellosta >> http://www.datanalytics.com >> >> El día 21 de enero de 2013 15:50, Diego <diego.ferrer@telefonica.net> >> escribió: >> > >> > >> > Enviado desde mi iPhone >> > >> > El 21/01/2013, a las 13:17, "FERRER MARTINEZ, DIEGO" < >> FERRERDIEGO@bancsabadell.com> escribió: >> > >> >> Buenas, >> >> >> >> Como podría graficar fechas en el eje de abcisas y datos en el de >> ordenadas. Son series financieras >> >> >> >> Gracias >> >> >> >> 21/01/2013 >> >> 8.628,300 >> >> 18/01/2013 >> >> 8.662,300 >> >> 17/01/2013 >> >> 8.568,400 >> >> 16/01/2013 >> >> 8.588,900 >> >> 15/01/2013 >> >> 8.549,600 >> >> 14/01/2013 >> >> 8.699,200 >> >> 11/01/2013 >> >> 8.638,000 >> >> 10/01/2013 >> >> 8.607,300 >> >> 09/01/2013 >> >> 8.491,800 >> >> 08/01/2013 >> >> 8.388,200 >> >> 07/01/2013 >> >> 8.434,300 >> >> 04/01/2013 >> >> 8.411,700 >> >> 03/01/2013 >> >> 8.375,000 >> >> 02/01/2013 >> >> 8.337,900 >> >> 31/12/2012 >> >> 8.111,900 >> >> 28/12/2012 >> >> 8.276,600 >> >> 27/12/2012 >> >> 8.236,500 >> >> 24/12/2012 >> >> 8.261,600 >> >> 21/12/2012 >> >> 8.223,500 >> >> 20/12/2012 >> >> 8.226,700 >> >> 19/12/2012 >> >> 8.192,300 >> >> 18/12/2012 >> >> 8.068,600 >> >> 17/12/2012 >> >> 8.017,800 >> >> 14/12/2012 >> >> 8.025,900 >> >> 13/12/2012 >> >> 8.005,900 >> >> 12/12/2012 >> >> 7.935,100 >> >> 11/12/2012 >> >> 7.813,600 >> >> 10/12/2012 >> >> 7.796,100 >> >> 07/12/2012 >> >> 7.915,700 >> >> 06/12/2012 >> >> 7.905,800 >> >> 05/12/2012 >> >> 7.948,500 >> >> 04/12/2012 >> >> 7.871,900 >> >> 03/12/2012 >> >> 7.963,400 >> >> 30/11/2012 >> >> 7.967,900 >> >> 29/11/2012 >> >> 7.887,400 >> >> 28/11/2012 >> >> 7.839,400 >> >> 27/11/2012 >> >> 7.936,600 >> >> 26/11/2012 >> >> 7.882,800 >> >> 23/11/2012 >> >> 7.887,200 >> >> 22/11/2012 >> >> 7.828,500 >> >> 21/11/2012 >> >> 7.751,800 >> >> 20/11/2012 >> >> 7.722,400 >> >> 19/11/2012 >> >> 7.661,800 >> >> 16/11/2012 >> >> 7.694,000 >> >> 15/11/2012 >> >> 7.615,400 >> >> 14/11/2012 >> >> 7.695,600 >> >> 13/11/2012 >> >> 7.521,900 >> >> 12/11/2012 >> >> 7.632,100 >> > >> > [[alternative HTML version deleted]] >> > >> > >> > _______________________________________________ >> > R-help-es mailing list >> > R-help-es@r-project.org >> > https://stat.ethz.ch/mailman/listinfo/r-help-es >> > >> >> _______________________________________________ >> R-help-es mailing list >> R-help-es@r-project.org >> https://stat.ethz.ch/mailman/listinfo/r-help-es >> > > > > -- > Daniel >-- Daniel [[alternative HTML version deleted]]