Displaying 4 results from an estimated 4 matches for "libro1".
Did you mean:
libro
2014 Sep 08
3
problema con los cambios de marcas temporales en el eje X
Hola de nuevo, acabo de encontrar la solución. He creado una variable ficticia con los días 1 de cada mes en la secuencia temporal que quería y después he actuado de la siguiente manera
attach(Libro1)
plot (xbar~as.Date(fecha,"%d/%m/%y"), type="b", pch=19,cex=2,xaxt="n")
xlabels<-strptime(ofeje, format = "%d/%m/%y")
axis.Date(1, at=xlabels[xlabels$mday==1], format="%b-%y")
El resultado se plasma en la grafica adjunta, por si alguien está in...
2014 Sep 07
3
problema con los cambios de marcas temporales en el eje X
Estimada Comunidad, solicito vuestra ayuda en un tema quizás un poco tonto, pero no logro dar con la tecla.
Estoy intentando hacer una gráfica de la evolución temporal de una variable (xbar) a lo largo del tiempo.
La secuencia que he hecho es la siguiente:
attach(Libro1)
plot (xbar~as.Date(fechas,"%d/%m/%y"), ylim=c(400,650), type="b", pch=19,cex=1)
arrows(x0=as.Date(fechas,"%d/%m/%y"),y0=lci,x1=as.Date(fechas,"%d/%m/%y"),y1=lcs,angle=90,code=3,length=.1)
El problema es que la gráfica emitida por R me saca en abscisas una s...
2014 Sep 08
2
problema con los cambios de marcas temporales en el eje X
Muchas gracias Carlos, previo a mi correo, entre las pruebas que hice estaba una parecida a la que apuntas de la siguiente manera:
attach (Libro1)
plot (xbar~as.Date(fechas,"%d/%m/%y"), ylim=c(400,660), xaxt="n", type="b", pch=19,cex=1)
xlabels<-strptime(fecha,format="%d/%m/%Y")
axis.Date (1,at=xlabels,format="%b-%y")
arrows(x0=as.Date(fechas,"%d/%m/%y"),y0=lci, x1=as...
2014 Sep 08
3
problema con los cambios de marcas temporales en el eje X
...los Ortega <cof en qualityexcellence.es> escribió:
Hola,
En vez de utilizar un eje "X" de tipo "Date", prefiero ajustarlo utilizando las fechas como si fuesen "strings".
Mira si esto es lo que buscabas...
#---------------------------
datIn <- read.csv("Libro1.csv", header=T, sep=";", dec=",")
library(lubridate)
datIn$mes <- month(dmy(datIn$fecha), label=T, abbr=T)
datIn$anio <- year(dmy(datIn$fecha))
xlabels <- paste(datIn$mes,"-",datIn$anio,sep="")
par(oma=c(4,2,1,1))
plot(datIn$xbar, axes=F, t...