<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">El suavizado con "lowess()" te da error:</div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><div class="gmail_default">> for(i in unique(df$id)) {</div><div class="gmail_default">+ lines(lowess(df$x[df$id == i], df$y[df$id == i], col = df$id)) }</div><div class="gmail_default">Error in lowess(df$x[df$id == i], df$y[df$id == i], col = df$id) : </div><div class="gmail_default"> unused argument (col = df$id)</div><div class="gmail_default"><br></div><div class="gmail_default">Y el mensaje de error es bastante explícito. Incluyes el parámetro "col" dentro de lowess que no lo considera.</div><div class="gmail_default"><br></div><div class="gmail_default">Es un simple problema de dónde has colocado un paréntesis de cierre.</div><div class="gmail_default"><br></div><div class="gmail_default">Así sí que funciona (destaco en rojo la posición del paréntesis de cierre):</div><div class="gmail_default"><br></div><div class="gmail_default">#-----------------</div><div class="gmail_default"><div class="gmail_default">for(i in unique(df$id)) {</div><div class="gmail_default"> lines(lowess(df$x[df$id == i], df$y[df$id == i]<b><font color="#ff0000">)</font></b>, col = df$id) }</div><div class="gmail_default"> points(x = df$x, y = df$y, pch=16, col = df$id) </div><div class="gmail_default"># Los datos asociados a cada id con un color de referencia</div><div class="gmail_default">title("Scatter Plot of value vs. time")</div><div class="gmail_default">#-----------------</div><div class="gmail_default"><br></div><div class="gmail_default"><img src="cid:ii_153404eb47fe94a6" alt="Imágenes integradas 1" width="472" height="248"><br></div><div><br></div></div><div class="gmail_default"><br></div><div class="gmail_default">Saludos,</div><div class="gmail_default">Carlos Ortega</div><div class="gmail_default"><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a></div><div class="gmail_default"><br></div><div class="gmail_default"><br></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 3 de marzo de 2016, 21:35, Francisco Javier <span dir="ltr"><<a href="mailto:iterador10@hotmail.com" target="_blank">iterador10@hotmail.com</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Buenas noches a todos,<br>
<br>
<br>
Me dirijo a vosotros porque estoy trabajando con medidas repetidas sobre un grupo de sujetos y quisiera graficar la evolución temporal de cada uno de ellos pero suavizada mediante un spline (o en su defecto algún tipo de línea suavizadora que no necesariamente tenga que pasar por los puntos de cada sujeto). Además, quisiera hacerlo en R básico, esto es, sin recurrir al uso de paquetes adicionales tipo lattice, ggplot2.<br>
<br>
<br>
A modo de ejemplo, tengo el siguiente data frame:<br>
<br>
<br>
df <- data.frame(<br>
<br>
id = factor(rep(c(1,2,3), c(3,4,3))),<br>
x = c( 1, 14, 22, 2, 9, 20, 25, 4, 15, 22),<br>
y = c(35, 28, 52, 79, 64, 70, 95, 45, 102, 105))<br>
<br>
<br>
E intento (sin conseguir resultado):<br>
<br>
<br>
plot(df$x, df$y, xlab = "time", ylab="value", type="n", xlim = c(0,25), ylim=c(20,120))<br>
for(i in unique(df$id)) {<br>
lines(lowess(df$x[df$id == i], df$y[df$id == i], col = df$id)) }<br>
points(x = df$x, y = df$y, pch=16, col = df$id) # Los datos asociados a cada id con un color de referencia<br>
title("Scatter Plot of value vs. time")<br>
<br>
<br>
¡Muchas gracias por cualquier ayuda al respecto!<br>
<br>
<br>
Francisco<br>
<br>
[[alternative HTML version deleted]]<br>
<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" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="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>