Hola,<div><br></div><div>De esta forma:</div><div><br></div><div><div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="background-color:rgb(238,238,238)">chart<- barchart(web[,2] ~ web[,1], </span></div>
<div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="background-color:rgb(238,238,238)"><span style="color:rgb(34,34,34);white-space:pre-wrap"> </span><font color="#ff0000">panel= function (...){</font></span></div>
<div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>panel.abline(h=mean(web[,2]), lwd = 3, col.line="red")</span></div>
<div style="font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="background-color:rgb(238,238,238)"><span style="color:rgb(34,34,34);white-space:pre-wrap"> </span><font color="#ff0000">panel.barchart(...)</font><font color="#222222">}, </font></span></div>
<div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>ylab=colnames(web)[2], </span></div>
<div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>xlab="Country", </span></div>
<div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>main= "Social Web Involvement", </span></div>
<div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)"><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>)</span></div><div style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;background-color:rgb(255,255,255)">
<span style="background-color:rgb(238,238,238)">print (chart)</span></div></div><div><br></div><div>Saludos,</div><div>Carlos Ortega</div><div><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a><br><br>
<div class="gmail_quote">El 5 de noviembre de 2012 20:15, Beatriz Martínez <span dir="ltr"><<a href="mailto:mtnezb@gmail.com" target="_blank">mtnezb@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hola a todos:<br><div class="gmail_quote"><div><br></div><div>soy nueva en R así que es posible que la pregunta sea simple, pero no encuentro la solución.</div><div><br></div><div>El caso, quiero hacer un gráfico de barras sencillito, pero con una linea horizontal que represente la media. Para ello estoy usando el paquete lattice.</div>
<div><br></div><div>Pues bien, si hago el gráfico sin aplicar la linea, no hay problema:</div><div><br></div><div><div><span style="background-color:rgb(238,238,238)">-----</span></div><div><div><span style="background-color:rgb(238,238,238)">barchart(web[,2] ~ web[,1], </span></div>
<div><span style="background-color:rgb(238,238,238)"> col="#2C575D", </span></div><div><span style="background-color:rgb(238,238,238)"> ylab=colnames(web)[2], </span></div><div><span style="background-color:rgb(238,238,238)"> xlab="Country", </span></div>
<div><span style="background-color:rgb(238,238,238)"> main= "Social Web Involvement")</span></div></div><div><br></div><div><img src="cid:ii_13ad1f197c877a78" alt="Imágenes integradas 1" width="420" height="241"></div>
</div><div><br></div><div>------</div><div><br></div><div>Ahora bien, cuando trato de pintar la linea, las barras se vuelven horizontales (a pesar de que las etiquetas de los ejes las mantiene en su sitio) y no tengo nada claro qué valores están representado. Eso sí, la linea de la media sale en su sitio.</div>
<div><br></div><div><span style="background-color:rgb(238,238,238)">--------</span></div><div><div><span style="background-color:rgb(238,238,238)">chart<- barchart(web[,2] ~ web[,1], </span></div><div><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>panel= function (x,y){</span></div>
<div><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>panel.abline(h=mean(web[,2]), lwd = 3, col.line="red")</span></div><div><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>panel.barchart(x,y, col="#2C575D")}, </span></div>
<div><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>ylab=colnames(web)[2], </span></div><div><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>xlab="Country", </span></div>
<div><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>main= "Social Web Involvement", </span></div><div><span style="background-color:rgb(238,238,238)"><span style="white-space:pre-wrap"> </span>)</span></div>
<div><span style="background-color:rgb(238,238,238)">print (chart)</span></div></div><div><br></div><div><br></div><div><img src="cid:ii_13ad1f6ebcd2fae0" alt="Imágenes integradas 2" width="420" height="240"><br></div><div>
<br></div><div>¿alguna idea de cómo tener el primer gráfico con la linea del segundo?</div><div><br></div><div>Muchísimas gracias de antemano</div><div><br></div><div>Saludos, </div><span class="HOEnZb"><font color="#888888"><span><font color="#888888"><div>
<br></div><div>Beatriz Martínez</div>
<div><br></div>
</font></span></font></span></div><br>
<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"><div><br></div>-- <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><br>
</div>