<div dir="ltr">Henrique,<div><br></div><div>Se você está pedindo para o SW, via 

<span style="color:rgb(0,0,0);font-family:verdana,helvetica,sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">geom_smooth(method = lm, formula = y ~ exp(-x), se = FALSE)
<span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small;text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">fazer o alisamento de uma curva usando a equação y ~ exp(-x), como você esperaria que o SW "adivinhasse" que você quer calcular um coeficiente para o expoente?</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana,helvetica,sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small;text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br>Por outro lado, se você está se perguntando qual coeficiente poderia ser usado para fazer uma equação fechada considerando as duas curvas, bastaria você pegar os dados do procedimento proposto por Cayan e dividir os coeficientes para obter o fator, não seria isso?</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana,helvetica,sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small;text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana,helvetica,sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small;text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">HTH</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana,helvetica,sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small;text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">--</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana,helvetica,sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small;text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline">Cesar Rabak</span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana,helvetica,sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small;text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></span></div><div><span style="color:rgb(0,0,0);font-family:verdana,helvetica,sans-serif;font-size:16px;background-color:rgb(255,255,255);text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:small;text-decoration-style:initial;text-decoration-color:initial;float:none;display:inline"><br></span></span></div></div><div class="gmail_extra"><br><div class="gmail_quote">2018-06-04 20:29 GMT-03:00 Henrique Boriolo Dias via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:verdana,helvetica,sans-serif;font-size:16px"><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span id="m_826186955842351848yui_3_16_0_1_1528154049214_21523">Obrigado Cayan.</span></div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span><br></span></div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span id="m_826186955842351848yui_3_16_0_1_1528154049214_21505">Todavia, acho que não me expressei direito com relação ao que procuro.</span></div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462"><span><br></span></div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr"><span id="m_826186955842351848yui_3_16_0_1_1528154049214_21554">Saberia me dizer se nessa equação y ~ exp(-x) tem algum número que multiplica o 'x' ?<br></span></div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr"><span id="m_826186955842351848yui_3_16_0_1_1528154049214_25020">Tem como escrever essa equação, por exemplo, </span>y ~ exp(-x<font color="#cd232c" id="m_826186955842351848yui_3_16_0_1_1528154049214_28505">z</font>). O 'z' que gostaria de descobrir/ajustar, se for possível com essa função.</div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr"><br></div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr">Outra dificuldade, é plotar a equação usando o facet_wrap, ou seja, uma equação (y ~ exp(-x<font color="#cd232c" id="m_826186955842351848yui_3_16_0_1_1528154049214_31888">z</font>)) e regressão (a, b, R²) para cada gráfico. Não sei se isso é possível ou se é melhor fazer um loop para cada gráfico.</div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr"><br id="m_826186955842351848yui_3_16_0_1_1528154049214_38767"></div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr">Perdão a falha ao explicar. Nem sei se é possível ou não, mas está ai para discussão.</div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr">Obrigado mais uma vez.</div><span class="HOEnZb"><font color="#888888"><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr"><br></div><div id="m_826186955842351848yui_3_16_0_1_1528154049214_21462" dir="ltr">Henrique</div></font></span><div><div class="h5"> <div class="m_826186955842351848qtdSeparateBR"><br><br></div><div class="m_826186955842351848yahoo_quoted" style="display:block"> <div style="font-family:verdana,helvetica,sans-serif;font-size:16px"> <div style="font-family:HelveticaNeue,Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:16px"> <div dir="ltr"><font size="2" face="Arial"> Em Terça-feira, 5 de Junho de 2018 1:21, Cayan Portela via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></font></div>  <br><br> <div class="m_826186955842351848y_msg_container"><div dir="ltr">Você pode gerar um modelo utilizando a função lm e extrair os coeficientes.<br></div><div dir="ltr"><br></div><div dir="ltr">De acordo com <a href="https://stackoverflow.com/questions/30144785/how-to-extract-intercept-and-slope-from-a-plot-for-large-number-of-variables" target="_blank">https://stackoverflow.com/<wbr>questions/30144785/how-to-<wbr>extract-intercept-and-slope-<wbr>from-a-plot-for-large-number-<wbr>of-variables </a>,<br></div><div dir="ltr">no seu caso ficaria assim:<br></div><div dir="ltr"><br></div><div dir="ltr">db %>% <br></div><div dir="ltr">  group_by(type) %>% <br></div><div dir="ltr">  do({<br></div><div dir="ltr">    mod = lm(y ~ exp(-x), data = .)<br></div><div dir="ltr">    data.frame(Intercept = coef(mod)[1],<br></div><div dir="ltr">               Slope = coef(mod)[2])<br></div><div dir="ltr">  })<br></div><div dir="ltr"><br></div><div dir="ltr">Cayan<br></div><div dir="ltr"><br></div><div dir="ltr">______________________________<wbr>_______<br></div><div dir="ltr">Sent from <a href="http://r-br.2285057.n4.nabble.com/" target="_blank">http://r-br.2285057.n4.nabble.<wbr>com</a><br></div><div dir="ltr"><br></div><div dir="ltr">______________________________<wbr>_________________<br></div><div dir="ltr">R-br mailing list<br></div><div dir="ltr"><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br></div><div dir="ltr"><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br></div><div dir="ltr">Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e fornea cdigo mnimo reproduzvel.</div><br><br></div>  </div> </div>  </div></div></div></div></div><br>______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>