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]]