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