<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Hola,</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Por si lo quieres con colores rellenando cada punto:</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">#----------------</div><div class="gmail_default"><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">library(data.table)</font></div><div class="gmail_default"><font face="verdana, sans-serif">library(lattice)</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">dat <- read.table("pba.csv", header=TRUE, dec=",", <a href="http://as.is">as.is</a>=TRUE)</font></div><div class="gmail_default"><font face="verdana, sans-serif">row.names(dat) <- NULL</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat <- as.data.table(dat)</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">dat$mycol <- ifelse(dat$sol   =="ControlAE", "red", dat$sol)</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat$mycol <- ifelse(dat$mycol =="ControlAB", "blue", dat$mycol)</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat$mycol <- ifelse(dat$mycol =="Biodiesel", "tomato", dat$mycol)</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat$mycol <- ifelse(dat$mycol =="Decane", "black", dat$mycol)</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat$mypch <- ifelse(dat$sol   =="ControlAE", 21, dat$sol)</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat$mypch <- ifelse(dat$mypch =="ControlAB", 22, dat$mypch)</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat$mypch <- ifelse(dat$mypch =="Biodiesel", 23, dat$mypch)</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat$mypch <- ifelse(dat$mypch =="Decane", 24, dat$mypch)</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">dat <- as.data.frame(dat)</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat <- dat[dat$con!=0,]</font></div><div class="gmail_default"><font face="verdana, sans-serif">xyplot(mean ~ con </font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,groups = sol</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,data = dat</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,xlab=list("Solvent concentration (%v/v)", cex=1.2)</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,ylab=list("Contact angle (º)", cex=1.2)</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,col = "black"</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,cex = 2</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,ylim=c(70,140)</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,fill_col = dat$mycol</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,el_pch = as.numeric(dat$mypch)</font></div><div class="gmail_default"><font face="verdana, sans-serif">       ,panel = function(x, y, fill_col,el_pch,groups,...,subscripts) {</font></div><div class="gmail_default"><font face="verdana, sans-serif">         fill <- fill_col[subscripts]</font></div><div class="gmail_default"><font face="verdana, sans-serif">         pch <- el_pch[subscripts]</font></div><div class="gmail_default"><font face="verdana, sans-serif">         panel.xyplot(x, y, pch = pch, fill = fill, ...)</font></div><div class="gmail_default"><font face="verdana, sans-serif">         panel.abline(h=c(103.141,101.779), lty=c(3,2))</font></div><div class="gmail_default"><font face="verdana, sans-serif">       }</font></div><div class="gmail_default"><font face="verdana, sans-serif">      )</font></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div></div><div class="gmail_default" style="font-family:verdana,sans-serif">#----------------</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><img src="cid:ii_159be690995bff48" alt="Imágenes integradas 1" width="474" height="269"><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 21 de enero de 2017, 0:24, Carlos Ortega <span dir="ltr"><<a href="mailto:cof@qualityexcellence.es" target="_blank">cof@qualityexcellence.es</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Hola,</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Este es el código que produce el gráfico que envié...</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default"><div class="gmail_default"><font face="verdana, sans-serif">#---------------------------</font></div><div class="gmail_default"><font face="verdana, sans-serif">library(data.table)</font></div><div class="gmail_default"><font face="verdana, sans-serif">library(lattice)</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">dat <- read.table("pba.csv", header=TRUE, dec=",", <a href="http://as.is" target="_blank">as.is</a>=TRUE)</font></div><div class="gmail_default"><font face="verdana, sans-serif">row.names(dat) <- NULL</font></div><div class="gmail_default"><font face="verdana, sans-serif">dat <- as.data.table(dat)</font></div><div class="gmail_default"><font face="verdana, sans-serif"><br></font></div><div class="gmail_default"><font face="verdana, sans-serif">#trellis.device(color=FALSE)</font></div><span class=""><div class="gmail_default"><font face="verdana, sans-serif">dat[con!=0, xyplot(mean ~ con</font></div><div class="gmail_default"><font face="verdana, sans-serif">                   , groups=sol</font></div><div class="gmail_default"><font face="verdana, sans-serif">                   , xlab=list("Solvent concentration (%v/v)", cex=1.2)</font></div><div class="gmail_default"><font face="verdana, sans-serif">                   , ylab=list("Contact angle (º)", cex=1.2)</font></div><div class="gmail_default"><font face="verdana, sans-serif">                   , ylim=c(70,140)</font></div><div class="gmail_default"><font face="verdana, sans-serif">                   , scales=list(cex=1.1)</font></div><div class="gmail_default"><font face="verdana, sans-serif">                   , cex=1.2</font></div><div class="gmail_default"><font face="verdana, sans-serif">                   , panel=function(x,y){</font></div></span><div class="gmail_default"><font face="verdana, sans-serif">                     panel.xyplot(x,y,cex=1.3, pch=c(1,2), col=c('red','blue'))</font></div><div class="gmail_default"><font face="verdana, sans-serif">                     panel.abline(h=c(103.141,101.<wbr>779), lty=c(3,2))</font></div><div class="gmail_default"><font face="verdana, sans-serif">                   }</font></div><div class="gmail_default"><font face="verdana, sans-serif">)]</font></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">#-------------------</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Con trellis.device(color = FALSE) simplemente abres una nueva ventana sin color de fondo.</div><div class="gmail_default" style="font-family:verdana,sans-serif">Para ver el motivo de la superposición de los puntos que te ocurre, tendría que ver tu código.</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Gracias,</div><div class="gmail_default" style="font-family:verdana,sans-serif">Carlos</div></div></div><div class="HOEnZb"><div class="h5"><div class="gmail_extra"><br><div class="gmail_quote">El 20 de enero de 2017, 18:39, eric <span dir="ltr"><<a href="mailto:ericconchamunoz@gmail.com" target="_blank">ericconchamunoz@gmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">mmmm, no puedo encontrar el motivo, pero al usar el codigo que envie me sale el grafico que adjunto, con los simbolos sobrepuestos.<br>
<br>
Alguna idea de por donde mirar ?<br>
<br>
gracias,<br>
<br>
Eric.<span><br>
<br>
<br>
<br>
<br>
<br>
<br>
On 01/20/2017 09:36 AM, Carlos Ortega wrote:<br>
</span><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><span>
Hola,<br>
<br>
A mi me salen diferentes...<br></span><span>
Imágenes integradas 1<br>
Y puedo definir también dos colores...<br>
<br>
Saludos,<br>
Carlos Ortega<br>
</span><a href="http://www.qualityexcellence.es" rel="noreferrer" target="_blank">www.qualityexcellence.es</a> <<a href="http://www.qualityexcellence.es" rel="noreferrer" target="_blank">http://www.qualityexcellence.<wbr>es</a>><span><br>
<br>
<br>
<br>
El 20 de enero de 2017, 5:04, eric <<a href="mailto:ericconchamunoz@gmail.com" target="_blank">ericconchamunoz@gmail.com</a><br></span>
<mailto:<a href="mailto:ericconchamunoz@gmail.com" target="_blank">ericconchamunoz@gmail.<wbr>com</a>>> escribió:<span><br>
<br>
    Estimada comunidad, estoy tratando de hacer un grafico y no resulta<br>
    (adjuntos datos). Se grafican la vble "con" en el eje X y "can" en<br>
    el eje Y. Se agrupa por la vble "sol". Se deben agregar como lineas<br>
    horizontales los valores de "can" asociados a "sol" "ControlAE" y<br>
    "ControlAB", para lo que uso panel.<br>
<br>
    Pero al agregar panel los simbolos que identifican a cada uno de los<br>
    dos grupos de datos se vuelven el mismo.<br>
<br>
    Al usar pch=c() para tratar de usar dos simbolos diferentes NO pasa<br>
    nada ... alguna sugerencia ?<br>
<br>
    adjunto codigo y datos .... gracias,<br>
<br>
    eric.<br>
<br>
<br>
<br>
    dat[con!=0, xyplot(mean ~ con<br>
           , groups=sol<br>
           , xlab=list("Solvent concentration (%v/v)", cex=1.2)<br>
           , ylab=list("Contact angle (º)", cex=1.2)<br>
           , ylim=c(70,140)<br>
           , scales=list(cex=1.1)<br>
           , cex=1.2<br>
           , panel=function(x,y){<br>
           panel.xyplot(x,y,cex=1.3, pch=c(1,2))<br>
           panel.abline(h=c(103.141,101.<wbr>779), lty=c(3,2))<br>
           }<br>
           )]<br>
<br>
<br>
<br>
    ______________________________<wbr>_________________<br>
    R-help-es mailing list<br></span>
    <a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.org</a> <mailto:<a href="mailto:R-help-es@r-project.org" target="_blank">R-help-es@r-project.or<wbr>g</a>><br>
    <a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/l<wbr>istinfo/r-help-es</a><span><br>
    <<a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/<wbr>listinfo/r-help-es</a>><br>
<br>
<br>
<br>
<br>
--<br>
Saludos,<br>
Carlos Ortega<br>
</span><a href="http://www.qualityexcellence.es" rel="noreferrer" target="_blank">www.qualityexcellence.es</a> <<a href="http://www.qualityexcellence.es" rel="noreferrer" target="_blank">http://www.qualityexcellence.<wbr>es</a>><br>
</blockquote><div class="m_-4546346095343640555HOEnZb"><div class="m_-4546346095343640555h5">
<br>
-- <br>
Forest Engineer<br>
Master in Environmental and Natural Resource Economics<br>
Ph.D. student in Sciences of Natural Resources at La Frontera University<br>
Member in AguaDeTemu2030, citizen movement for Temuco with green city standards for living<br>
<br>
Nota: Las tildes se han omitido para asegurar compatibilidad con algunos lectores de correo.<br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="m_-4546346095343640555gmail_signature" data-smartmail="gmail_signature"><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></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><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>