Espero ahora haber interpretado mejor lo que pretendes: library(zoo) datIn <- read.csv2("D:/L01359/Mis documentos/Downloads/Libro1.csv") datIn <- zoo(datIn[,-1], order.by=as.Date(datIn$fecha, format="%d/%m/%y")) ticks <- seq(as.Date("2013-07-01"), length=11, by="1 month") - 1 # genero una secuencia de fines de més plot (datIn$xbar, ylim=c(400,660), type="b", pch=19,cex=1, xaxt = "n" ) # con xaxt = n elimino los labels originales del eje x axis(1, at=ticks, labels = format(ticks, "%b-%y"), cex.axis=0.7) # doy los nuevos valores de los ticks con su formato y un tamaño que permita en la mayoría de los casos ver todos los meses box() arrows( x0=index(datIn),y0=datIn$lci ,x1=index(datIn),y1=datIn$lcs ,angle=90,code=3,length=.1 )
Saludos, Daniel Merino El 8 de septiembre de 2014, 17:29, daniel <daniel...@gmail.com> escribió: > Disculpas por ingresar tarde en este debate. Si te entiendo bien mi > solución sería usar el paquete zoo: > > library(zoo) > datIn <- read.csv2("Libro1.csv") > datIn <- zoo(datIn[,-1], order.by=as.Date(datIn$fecha, format="%d/%m/%y")) > plot (datIn$xbar ,ylim=c(400,660), type="b", pch=19,cex=1) > axis(2) > box() > arrows( x0=index(datIn),y0=datIn$lci > ,x1=index(datIn),y1=datIn$lcs > ,angle=90,code=3,length=.1 ) > > Suerte, > > Daniel Merino > > > > > > El 8 de septiembre de 2014, 16:12, Carlos Fernández-Delgado < > ba1fe...@uco.es> escribió: > > 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á >> interesado también envío la base de datos con la variable ficticia. Muchas >> gracias y disculpas por las molestias. >> Un cordial saludo. >> Carlos >> >> >> El 08/09/2014, a las 00:05, Carlos Ortega <c...@qualityexcellence.es> >> escribió: >> >> Hola, >> >> Una forma de hacerlo es: >> 1. incluyes un parámetro en "plot(..., axes=F)" y así indicas que no >> quieres pintar automáticamente los ejes. >> 2. Y ahora construyes el eje "x" con la función "axis()". >> 3. Dentro de axis(), dirás cada cuánto quieres pintar una marca >> (parámetro "at") y qué quieres incluir en la marca (parámetro "label"). >> >> Para ver un ejemplo, mira el ejemplo que aparece en la ayuda de la >> función "axis()". >> >> Saludos, >> Carlos Ortega >> www.qualityexcellence.es >> >> >> El 7 de septiembre de 2014, 20:46, Carlos Fernández-Delgado < >> ba1fe...@uco.es> escribió: >> >>> 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 >>> serie de meses que me los coloca por defecto (ver gráfica adjunta) y lo que >>> yo quiero es poner marcas mensuales desde agosto de 2013 hasta mayo 2014, >>> incluido el cambio de año (ya sea dic’13 o ene’14), pero por mucho que lo >>> intento no me sale. >>> >>> ¿Podéis ayudarme?. >>> Muchas gracias por adelantado y un cordial saludo >>> >>> Carlos >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> _______________________________________________ >>> 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 >> >> >> >> _______________________________________________ >> 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]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es