Você pode extrair os coeficientes utilizando a função lm. De acordo com https://stackoverflow.com/questions/30144785/how-to-extract-intercept-and-sl... ,no seu caso ficaria: db %>% group_by(type) %>% do({ mod = lm(y ~ exp(-x), data = .) data.frame(Intercept = coef(mod)[1], Slope = coef(mod)[2]) }) ________________________________ De: 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> Enviado: segunda-feira, 4 de junho de 2018 15:00 Para: r-br@listas.c3sl.ufpr.br Assunto: Digest R-br, volume 90, assunto 3 Enviar submissões para a lista de discussão R-br para r-br@listas.c3sl.ufpr.br Para se cadastrar ou descadastrar via WWW, visite o endereço https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Flistas.inf... ou, via email, envie uma mensagem com a palavra 'help' no assunto ou corpo da mensagem para r-br-request@listas.c3sl.ufpr.br Você poderá entrar em contato com a pessoa que gerencia a lista pelo endereço r-br-owner@listas.c3sl.ufpr.br Quando responder, por favor edite sua linha Assunto assim ela será mais específica que "Re: Contents of R-br digest..." Tópicos de Hoje: 1. ggplot2_apresentar equação no gráfico (Henrique Boriolo Dias) ---------------------------------------------------------------------- Message: 1 Date: Mon, 4 Jun 2018 08:50:07 +0000 (UTC) From: Henrique Boriolo Dias <henrique.bdias@yahoo.com.br> To: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> Subject: [R-br] ggplot2_apresentar equação no gráfico Message-ID: <1597288900.8454811.1528102207591@mail.yahoo.com> Content-Type: text/plain; charset="utf-8" Olá pessoal, 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? - Dados em anexo.- Script: db <- read.csv('data.csv', sep = ';', dec = '.', header = T) 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() ObrigadoHenrique -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <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> -------------- Próxima Parte ---------- Um anexo não-texto foi limpo... Nome: data.csv Tipo: application/vnd.ms-excel Tamanho: 5000 bytes Descrição: não disponível URL: <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> ------------------------------ Subject: Legenda do Digest _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://nam04.safelinks.protection.outlook.com/?url=https%3A%2F%2Flistas.inf... ------------------------------ Fim da Digest R-br, volume 90, assunto 3 ****************************************