<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><span style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0);" class="">Hola David, </span><div class="" style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0);"><br class=""></div><div class="" style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0);">Quizás esto te puede ayudar.</div><div class="" style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0);"><br class=""></div><div class="" style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0);">He comentado la lineas de los otros métodos de ajuste disponibles en la función status_smooth().</div><div class="" style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0);"><br class=""></div><div class="" style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0);"><div class="">library("tidyverse")</div><div class="">pet <- ggplot(data = cars, aes(x = speed, y = dist)) + </div><div class=""> geom_point(stat="identity", color = "blue", alpha=0.9) + </div><div class=""> stat_smooth(method="lm", color = "red")+</div><div class=""><font color="#ff91ff" class=""> #stat_smooth(method="loess", color = "red")+</font></div><div class=""><font color="#ff91ff" class=""> #stat_smooth(method="gam", color = "red")+</font></div><div class=""> theme_bw()</div><div class="">pet</div><div class=""><br class=""></div><div class=""><br class=""></div><div class="">Las salidas con “loess” y “lm"</div><div class=""></div></div></body></html>
<br>
<div><img style="font-size:1.3em">C<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:12.8px;background-color:rgb(255,255,255)"><b>ertificación ISO 9001/2015</b>: Sistema de Datos Biológico-Pesqueros (Arica, Iquique, Coquimbo, Valparaíso, San Antonio, Talcahuano y Calbuco, pesquerías industriales y artesanales)</span></div>