<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>
</head>
<body dir="ltr">
<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Helvetica,sans-serif;" dir="ltr">
<p style="margin-top:0;margin-bottom:0">Você pode extrair os coeficientes utilizando a função lm.</p>
<p style="margin-top:0;margin-bottom:0"><br>
</p>
<p style="margin-top:0;margin-bottom:0">De acordo com <a href="https://stackoverflow.com/questions/30144785/how-to-extract-intercept-and-slope-from-a-plot-for-large-number-of-variables" class="OWAAutoLink" id="LPlnk138870" previewremoved="true">https://stackoverflow.com/questions/30144785/how-to-extract-intercept-and-slope-from-a-plot-for-large-number-of-variables</a> ,no
seu caso ficaria:</p>
<p style="margin-top:0;margin-bottom:0"><br>
</p>
<p style="margin-top:0;margin-bottom:0"></p>
<div><br>
</div>
<div>db %>% </div>
<div> group_by(type) %>% </div>
<div> do({</div>
<div> mod = lm(y ~ exp(-x), data = .)</div>
<div> data.frame(Intercept = coef(mod)[1],</div>
<div> Slope = coef(mod)[2])</div>
<div> })</div>
<p></p>
<br>
<br>
<div style="color: rgb(0, 0, 0);">
<hr style="display:inline-block;width:98%" tabindex="-1">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>De:</b> R-br <r-br-bounces@listas.c3sl.ufpr.br> em nome de r-br-request@listas.c3sl.ufpr.br <r-br-request@listas.c3sl.ufpr.br><br>
<b>Enviado:</b> segunda-feira, 4 de junho de 2018 15:00<br>
<b>Para:</b> r-br@listas.c3sl.ufpr.br<br>
<b>Assunto:</b> Digest R-br, volume 90, assunto 3</font>
<div> </div>
</div>
<div class="BodyFragment"><font size="2"><span style="font-size:11pt;">
<div class="PlainText">Enviar submissões para a lista de discussão R-br para <br>
r-br@listas.c3sl.ufpr.br<br>
<br>
Para se cadastrar ou descadastrar via WWW, visite o endereço<br>
<a href="https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Flistas.inf.ufpr.br%2Fcgi-bin%2Fmailman%2Flistinfo%2Fr-br&data=02%7C01%7C%7C259fa7814e0c4ab0137108d5ca2bdd0c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636637212118722188&sdata=%2BepOCMFhqYc7l846%2FcQIqZWsDLYjB1IHgWcPZTY6EuQ%3D&reserved=0" id="LPlnk643395" class="OWAAutoLink" previewremoved="true">
https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Flistas.inf.ufpr.br%2Fcgi-bin%2Fmailman%2Flistinfo%2Fr-br&data=02%7C01%7C%7C259fa7814e0c4ab0137108d5ca2bdd0c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636637212118722188&sdata=%2BepOCMFhqYc7l846%2FcQIqZWsDLYjB1IHgWcPZTY6EuQ%3D&reserved=0</a><br>
ou, via email, envie uma mensagem com a palavra 'help' no assunto ou<br>
corpo da mensagem para <br>
r-br-request@listas.c3sl.ufpr.br<br>
<br>
Você poderá entrar em contato com a pessoa que gerencia a lista pelo<br>
endereço<br>
r-br-owner@listas.c3sl.ufpr.br<br>
<br>
Quando responder, por favor edite sua linha Assunto assim ela será<br>
mais específica que "Re: Contents of R-br digest..."<br>
<br>
<br>
Tópicos de Hoje:<br>
<br>
1. ggplot2_apresentar equação no gráfico (Henrique Boriolo Dias)<br>
<br>
<br>
----------------------------------------------------------------------<br>
<br>
Message: 1<br>
Date: Mon, 4 Jun 2018 08:50:07 +0000 (UTC)<br>
From: Henrique Boriolo Dias <henrique.bdias@yahoo.com.br><br>
To: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br><br>
Subject: [R-br] ggplot2_apresentar equação no gráfico<br>
Message-ID: <1597288900.8454811.1528102207591@mail.yahoo.com><br>
Content-Type: text/plain; charset="utf-8"<br>
<br>
Olá pessoal,<br>
Sabem se é possível plotar a equação especifica (e talvez o R2) gerada pelo geom_smooth quando se usa a opção facet_wrap?Estou interessado no valor que multiplica o 'x' da equação.Alguém poderia me dar uma luz de qual o critério é usado para o ajuste dessa
equação no geom_smooth?<br>
- Dados em anexo.- Script:<br>
db <- read.csv('data.csv', sep = ';', dec = '.', header = T)<br>
tiff(filename=paste0("graph.tiff"), width = 2000, height = 1000, res=300)ggplot(db, aes(y=y, x=x)) + geom_point(aes(shape=type))+ facet_wrap(~type) + geom_smooth(method = lm, formula = y ~ exp(-x), se = FALSE)dev.off()<br>
ObrigadoHenrique<br>
-------------- Próxima Parte ----------<br>
Um anexo em HTML foi limpo...<br>
URL: <<a href="https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Flistas.inf.ufpr.br%2Fpipermail%2Fr-br%2Fattachments%2F20180604%2F2ee5dd9b%2Fattachment-0001.html&data=02%7C01%7C%7C259fa7814e0c4ab0137108d5ca2bdd0c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636637212118722188&sdata=mECvWSnVqNbPkQADVBzPvdocxQ0MQyOzqqPFT%2BQCWWY%3D&reserved=0" id="LPlnk617160" class="OWAAutoLink" previewremoved="true">https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Flistas.inf.ufpr.br%2Fpipermail%2Fr-br%2Fattachments%2F20180604%2F2ee5dd9b%2Fattachment-0001.html&data=02%7C01%7C%7C259fa7814e0c4ab0137108d5ca2bdd0c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636637212118722188&sdata=mECvWSnVqNbPkQADVBzPvdocxQ0MQyOzqqPFT%2BQCWWY%3D&reserved=0</a>><br>
-------------- Próxima Parte ----------<br>
Um anexo não-texto foi limpo...<br>
Nome: data.csv<br>
Tipo: application/vnd.ms-excel<br>
Tamanho: 5000 bytes<br>
Descrição: não disponível<br>
URL: <<a href="https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Flistas.inf.ufpr.br%2Fpipermail%2Fr-br%2Fattachments%2F20180604%2F2ee5dd9b%2Fattachment-0001.xlb&data=02%7C01%7C%7C259fa7814e0c4ab0137108d5ca2bdd0c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636637212118722188&sdata=%2FSJfJ98yDoHU96TyIepkMXStMQCkvhFv13%2Fu15MzdAs%3D&reserved=0" id="LPlnk644551" class="OWAAutoLink" previewremoved="true">https://nam04.safelinks.protection.outlook.com/?url=http%3A%2F%2Flistas.inf.ufpr.br%2Fpipermail%2Fr-br%2Fattachments%2F20180604%2F2ee5dd9b%2Fattachment-0001.xlb&data=02%7C01%7C%7C259fa7814e0c4ab0137108d5ca2bdd0c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636637212118722188&sdata=%2FSJfJ98yDoHU96TyIepkMXStMQCkvhFv13%2Fu15MzdAs%3D&reserved=0</a>><br>
<br>
------------------------------<br>
<br>
Subject: Legenda do Digest<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
R-br@listas.c3sl.ufpr.br<br>
<a href="https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Flistas.inf.ufpr.br%2Fcgi-bin%2Fmailman%2Flistinfo%2Fr-br&data=02%7C01%7C%7C259fa7814e0c4ab0137108d5ca2bdd0c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636637212118722188&sdata=%2BepOCMFhqYc7l846%2FcQIqZWsDLYjB1IHgWcPZTY6EuQ%3D&reserved=0" id="LPlnk230487" class="OWAAutoLink" previewremoved="true">https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Flistas.inf.ufpr.br%2Fcgi-bin%2Fmailman%2Flistinfo%2Fr-br&data=02%7C01%7C%7C259fa7814e0c4ab0137108d5ca2bdd0c%7C84df9e7fe9f640afb435aaaaaaaaaaaa%7C1%7C0%7C636637212118722188&sdata=%2BepOCMFhqYc7l846%2FcQIqZWsDLYjB1IHgWcPZTY6EuQ%3D&reserved=0</a><br>
<br>
<br>
------------------------------<br>
<br>
Fim da Digest R-br, volume 90, assunto 3<br>
****************************************<br>
</div>
</span></font></div>
</div>
</div>
</body>
</html>