<html><head><meta http-equiv="Content-Type" content="text/html charset=windows-1252"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><div apple-content-edited="true"><div style="color: rgb(0, 0, 0); letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><div style="orphans: auto; text-align: start; text-indent: 0px; widows: auto; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><div style="orphans: auto; text-align: start; text-indent: 0px; widows: auto; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><div style="orphans: 2; text-align: -webkit-auto; text-indent: 0px; widows: 2; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><div style="orphans: 2; text-align: -webkit-auto; text-indent: 0px; widows: 2; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><span class="Apple-style-span" style="border-collapse: separate; orphans: 2; text-indent: 0px; widows: 2; border-spacing: 0px;"><div style="orphans: 2; text-align: start; text-indent: 0px; widows: 2; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;"><div style="orphans: auto; widows: auto;">Muchas gracias Carlos, pero no busco colocar las fechas de los muestreos sino los meses, como la figura que he compuesto y que adjunto para dar una idea. Quizás Isidro Hidalgo tenga razón y lo más fácil sea construir una variable ficticia, pero me niego a creer que no se pueda programar en R.</div>Gracias de nuevo.</div><div style="orphans: 2; text-align: start; text-indent: 0px; widows: 2; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;">Carlos.</div><br class="Apple-interchange-newline"><br></span></div></div></div></div></div>
</div>
<br><div><div>El 08/09/2014, a las 14:31, Carlos Ortega <<a href="mailto:cof@qualityexcellence.es">cof@qualityexcellence.es</a>> escribió:</div><br class="Apple-interchange-newline"><div><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Hola,<br><br>Ya, me lo he imaginado al poco de enviarlo...<br></div><div class="gmail_default" style="font-family:verdana,sans-serif">De esta forma sí que se respeta la separación por fecha en el eje X...<br><br>#----------------------<br><br>library(lubridate)<br>datIn$xlabels <- as.Date(dmy(datIn$fecha), format="%Y-%m-%d")<br>datIn$mes <- month(dmy(datIn$fecha), label=T, abbr=T)<br>datIn$anio <- year(dmy(datIn$fecha))<br>datIn$mesanio <- paste(datIn$mes,"-",datIn$anio,sep="")<br><br><br>plot (<br> datIn$xbar ~ datIn$xlabels<br> ,ylim=c(400,660), xaxt="n", type="b", pch=19,cex=1,<br> ,axes=F<br> )<br>axis.Date(1,at=datIn$xlabels,format="%b-%y", labels=datIn$mesanio, las=2, cex.axis=0.5)<br><br><br>axis(2)<br>box()<br>arrows(<br> x0=datIn$xlabels,y0=datIn$lci<br> ,x1=datIn$xlabels,y1=datIn$lcs<br> ,angle=90,code=3,length=.1<br> )<br><br>#----------------------<br><br><span><Rplot01.png></span><br><br><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 8 de septiembre de 2014, 13:35, 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">Muchísimas gracias Carlos, de verdad que te agradezco la ayuda, pero no es lo que voy buscando. Quiero colocar en el eje de abscisas la secuencia temporal de los meses, es decir, agosto septiembre, octubre, etc… pero no las fechas de las toma de datos, sino que aparezca la marca de un mes, y la siguiente marca sea la del siguiente mes, etc…, y además que las muestras estén separadas de acuerdo con la fecha que les corresponde, en la que me envías las fechas están ahora equidistantes. He hecho una simulación de la gráfica que voy buscando en la imagen adjunta.<div>Muchas gracias</div><div>Carlos<br><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;text-indent:0px;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></div><br></span></div></div></div></div></div>
</div>
<br><div><div>El 08/09/2014, a las 11:43, Carlos Ortega <<a href="mailto:cof@qualityexcellence.es" target="_blank">cof@qualityexcellence.es</a>> escribió:</div><br><div><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Hola,<br><br></div><span class=""><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></span><div class="gmail_default" style="font-family:verdana,sans-serif"><span class=""><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></span><span><Rplot.png></span><br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Saludos,<br>Carlos Ortega<br><a href="http://www.qualityexcellence.es/" target="_blank">www.qualityexcellence.es</a><br></div></div><div><div class="h5"><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="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="letter-spacing:normal;text-transform:none;white-space:normal;word-spacing:0px"><br></div><div style="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><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><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" 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></div><br><div style="word-wrap:break-word"><div></div></div><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></body></html>