<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Hola,<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">En vez de utilizar un eje "X" de tipo "Date", prefiero ajustarlo utilizando las fechas como si fuesen "strings".<br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Mira si esto es lo que buscabas...<br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br>#---------------------------<br>datIn <- read.csv("Libro1.csv", header=T, sep=";", dec=",")<br><br><br>library(lubridate)<br>datIn$mes <- month(dmy(datIn$fecha), label=T, abbr=T)<br>datIn$anio <- year(dmy(datIn$fecha))<br>xlabels <- paste(datIn$mes,"-",datIn$anio,sep="")<br>  <br>par(oma=c(4,2,1,1))<br>plot(datIn$xbar, axes=F, type="b", pch=19, ylim=c(400,650), xlab="", ylab="xbar")<br>axis(1,at=1:length(datIn$xbar), labels=xlabels,cex.lab=0.5, las=2)<br>axis(2)<br>box()<br><br>datIn$xorig <- 1:dim(datIn)[1]<br>arrows(<br>           x0=datIn$xorig, y0=datIn$lci<br>          ,x1=datIn$xorig, y1=datIn$lcs,<br>          ,angle=90, code=3, length=0.1<br>        )<br>mtext("Fechas", side=1, line=1, outer=T)<br><br>#---------------------------<br><br><img alt="Imágenes integradas 1" src="cid:ii_14854a4d63c4cea3" height="410" width="496"><br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Saludos,<br>Carlos Ortega<br><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 8 de septiembre de 2014, 10:57, Carlos Fernández-Delgado <span dir="ltr"><<a href="mailto:ba1fedec@uco.es" target="_blank">ba1fedec@uco.es</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word"><div><div style="text-align:start;text-indent:0px;word-wrap:break-word"><div style="text-align:start;text-indent:0px;word-wrap:break-word"><div style="text-align:start;text-indent:0px;word-wrap:break-word"><div style="text-align:-webkit-auto;text-indent:0px;word-wrap:break-word"><div style="text-align:-webkit-auto;text-indent:0px;word-wrap:break-word"><span style="border-collapse:separate;text-indent:0px;border-spacing:0px"><div style="text-align:start;text-indent:0px;word-wrap:break-word"><div style="color:rgb(0,0,0);letter-spacing:normal;text-transform:none;white-space:normal;word-spacing:0px">Muchas gracias Carlos, previo a mi correo, entre las pruebas que hice estaba una parecida a la que apuntas de la siguiente manera:</div><div style="color:rgb(0,0,0);letter-spacing:normal;text-transform:none;white-space:normal;word-spacing:0px"><br></div><div style="color:rgb(0,0,0);letter-spacing:normal;text-transform:none;white-space:normal;word-spacing:0px">attach (Libro1)</div><div><div>plot (xbar~as.Date(fechas,"%d/%m/%y"), ylim=c(400,660), xaxt="n", type="b", pch=19,cex=1)</div><div>      xlabels<-strptime(fecha,format="%d/%m/%Y")</div><div>      axis.Date (1,at=xlabels,format="%b-%y")</div><div>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)</div></div><br></div>Pero esta me saca las etiquetas que yo tengo (ver grafica adjunta), sin embargo lo que voy buscando es colocar las marcas de los meses enteros (con 30 o 31 días según corresponda) en donde se ha realizado el estudio a lo largo del eje x. </span></div><div style="text-align:-webkit-auto;text-indent:0px;word-wrap:break-word"><span style="border-collapse:separate;text-indent:0px;border-spacing:0px">Muchas gracias por tu ayuda.</span></div><div style="text-align:-webkit-auto;text-indent:0px;word-wrap:break-word"><span style="border-collapse:separate;text-indent:0px;border-spacing:0px">Carlos<br><br></span></div></div></div></div></div>
</div>
<br><div><div>El 08/09/2014, a las 00:05, Carlos Ortega <<a href="mailto:cof@qualityexcellence.es" target="_blank">cof@qualityexcellence.es</a>> escribió:</div><div><div class="h5"><br><div><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Hola,<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Una forma de hacerlo es:<br></div><div class="gmail_default" style="font-family:verdana,sans-serif">1. incluyes un parámetro en "plot(..., axes=F)" y así indicas que no quieres pintar automáticamente los ejes.<br></div><div class="gmail_default" style="font-family:verdana,sans-serif">2. Y ahora construyes el eje "x" con la función "axis()".<br></div><div class="gmail_default" style="font-family:verdana,sans-serif">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").<br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br>Para ver un ejemplo, mira el ejemplo que aparece en la ayuda de la función "axis()".<br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Saludos,<br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Carlos Ortega<br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es/" target="_blank">www.qualityexcellence.es</a><br></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">El 7 de septiembre de 2014, 20:46, Carlos Fernández-Delgado <span dir="ltr"><<a href="mailto:ba1fedec@uco.es" target="_blank">ba1fedec@uco.es</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div style="word-wrap:break-word">Estimada Comunidad, solicito vuestra ayuda en un tema quizás un poco tonto, pero no logro dar con la tecla.<div>Estoy intentando hacer una gráfica de la evolución temporal de una variable (xbar) a lo largo del tiempo.</div><div>La secuencia que he hecho es la siguiente:</div><div><div>attach(Libro1)</div><div>plot (xbar~as.Date(fechas,"%d/%m/%y"), ylim=c(400,650), type="b", pch=19,cex=1)</div><div>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)</div><div><br></div><div>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.</div><div><br></div><div>¿Podéis ayudarme?.</div><div>Muchas gracias por adelantado y un cordial saludo</div><span><font color="#888888"><div><br></div><div>Carlos</div><div><br></div><div><br></div><div>
<div style="letter-spacing:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;word-wrap:break-word"><div style="text-align:start;text-indent:0px;word-wrap:break-word"><div style="text-align:start;text-indent:0px;word-wrap:break-word"><div style="text-align:-webkit-auto;text-indent:0px;word-wrap:break-word"><div style="text-align:-webkit-auto;text-indent:0px;word-wrap:break-word"><span style="border-collapse:separate;border-spacing:0px"><div style="text-align:start;text-indent:0px;word-wrap:break-word"><div style="font-family:Times;font-size:12px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-transform:none;white-space:normal;word-spacing:0px"><br></div><br></div><br><br></span></div></div></div></div></div>
</div>
</font></span></div></div><br><div style="word-wrap:break-word"><div></div></div><br><div style="word-wrap:break-word"><div></div></div><br>_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><span style="font-family:verdana,sans-serif">Saludos,</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es/" target="_blank">www.qualityexcellence.es</a></span>
</div>
</div></div></div></div></div><br><div style="word-wrap:break-word"></div><br><div style="word-wrap:break-word"></div><br>_______________________________________________<br>
R-help-es mailing list<br>
<a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><span style="font-family:verdana,sans-serif">Saludos,</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span>
</div>