An embedded and charset-unspecified text was scrubbed... Name: no disponible URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120118/cd87e21f/attachment.pl>
[R-es] graficos con fechas
3 messages · Fernando Arce, Carlos Ortega, Oscar Perpiñan
An embedded and charset-unspecified text was scrubbed... Name: no disponible URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20120118/425f2b54/attachment.pl>
Otra forma más, que para gustos hay colores. Aprovecho el código para
generar d.d y después dibujo con zoo y lattice:
library(zoo)
library(lattice)
x1<-c(rep(as.Date('2011-10-10'),3),rep(as.Date('2011-01-15'),8),
rep(as.Date('2011-01-17'),10))
d.d<- as.data.frame(table(x1))
z <- zoo(d.d$Freq, d.d$x1)
xyplot(z, type = 'h')
-------------------
Oscar Perpiñán Lamigueiro
Dpto. IngenierÃa Eléctrica
EUITI-UPM
http://procomun.wordpress.com
-----------------------------------------
Muchas gracias Carlos Ortega y Carlos J. Gil Bellosta.
Miraré el paquete xts pero al final he tirado más hacia la solucion
de Carlos Ortega porque ya tenÃa codigo parecido en todas las
graficas.
Por si alguien le sucede algo parecido y esta tan perdido como yo),
para tener formato de barras verticales y todo un periodo anual,
primero le he añadido un xlim para que me muestre todo el año. Como
además querÃa formato de barras (por eso me encabezonaba con la
funcion table sin pensar en darla posteriormente formato de
data.frame) le he pintado de blanco los putos y despues he añadido
las barras con 'segments'.
x1<-c(rep(as.Date('2011-10-10'),3),rep(as.Date('2011-01-15'),8),
rep(as.Date('2011-01-17'),10))
d.d<-as.data.frame(table(x1))
d.d$x1<-as.Date(d.d$x1)
xli=c('2011-01-01','2011-12-31')
xli<-as.Date(xli)
plot(d.d$x1, d.d$Freq,xlim=xli,col='white')
segments(d.d$x1,rep(0,length(unique(d.d$x1))),d.d$x1,d.d[,2],col='blue')
Gracias, de nuevo, y próspero 2012!!
Fernando
----- Mensaje original -----
De: Carlos Ortega
Enviado: 18-01-12 20:43
Para: fernand_arce en yahoo.es
Asunto: Re: [R-es] graficos con fechas
Hola,
Además de la solución de utilizar un paquete especÃfico, de esta
manera simplemente usando la función como ya has hecho:
x1<-c(rep(as.Date('2011-10-10'),3),rep(as.Date('2011-01-15'),8),
rep(as.Date('2011-01-17'),10))
d.d<-as.data.frame(table(x1))
d.d$x1<-as.Date(d.d$x1)
plot(d.d$x1, d.d$Freq)
De esta forma, d.d$x1 sà que se considera como fecha y a la hora de
hacer el gráfico sà que separa los datos de enero de los de octubre.
Saludos,
Carlos Ortega
http://www.qualityexcellence.es
El 18 de enero de 2012 19:36, < fernand_arce en yahoo.es > escribió:
Buenas tardes:
A la hora de hacer unos graficos en el eje de las X tengo fechas en
formato ad.Date ('aaa-mm-dd', por ejemplo 2011-25-07) y el problema
es que no me las considera como tales, sino como factores, y no tiene
en cuenta la diferencia entre fechas a la hora de separar las barras
entre si (por ejemplo, la distancia entre el 6 de julio y el 8 de
julio es la misma que la distancia entre el 8 de julio y el 25 de
agosto, por lo que el patrón temporal queda totalmente enmascarado),
ni tampoco me acepta un xlim que incluya todos los dÃas del año
(intento que el eje X abarque desde el 1 de enero hasta el 31 de
diciembre) para que muestre los valores en los dias que tengan datos)
he estado mirando un rato por ahà y ninguna de las soluciones se
adapta o funciona (mis datos tienen formato de fecha para el eje X y
en el eje y se proyecta la frecuencia de las fechas
ejemplo:
#mis datos
x1<-c(rep(as.Date('2011-10-10'),3),rep(as.Date('2011-01-15'),8),rep(as.Date('2011-01-17'),10))
#grafico tal cual, no tiene en cuenta la distancia temporal entre las
diferentes fechas
plot(table(x1))
Hay alguna manera de que tenga en cuenta dicha diferencia temporal y
de modificar satisfactoriamente el xlim ?
Gracias por adelantado y Feliz año a todos:
Fernando
[[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 [[alternative HTML version deleted]]