<html><head></head><body><div style="color:#000; background-color:#fff; font-family:verdana, helvetica, sans-serif;font-size:16px"><div id="yui_3_16_0_1_1528101743957_7095">Olá pessoal,</div><div id="yui_3_16_0_1_1528101743957_7095"><br></div><div id="yui_3_16_0_1_1528101743957_7095" dir="ltr">Sabem se é possível plotar a equação especifica (e talvez o R2) gerada pelo <i id="yui_3_16_0_1_1528101743957_18806">geom_smooth</i> quando se usa a opção <i>facet_wrap</i>?</div><div id="yui_3_16_0_1_1528101743957_7095" dir="ltr">Estou interessado no valor que multiplica o 'x' da equação.</div><div id="yui_3_16_0_1_1528101743957_7095" dir="ltr">Alguém poderia me dar uma luz de qual o critério é usado para o ajuste dessa equação no <i id="yui_3_16_0_1_1528101743957_18816">geom_smooth</i>?</div><div id="yui_3_16_0_1_1528101743957_7095" dir="ltr"><br></div><div id="yui_3_16_0_1_1528101743957_7095" dir="ltr">- Dados em anexo.</div><div id="yui_3_16_0_1_1528101743957_7095" dir="ltr">- Script:<br></div><div id="yui_3_16_0_1_1528101743957_7095" dir="ltr">db <- read.csv('data.csv', sep = ';', dec = '.', header = T)<br></div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13822">tiff(filename=paste0("graph.tiff"), width = 2000, height = 1000, res=300)</div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13823">ggplot(db, aes(y=y, x=x)) +</div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13824"> geom_point(aes(shape=type))+</div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13825"> facet_wrap(~type) +</div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13826"> geom_smooth(method = lm, formula = y ~ exp(-x), se = FALSE)</div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13827">dev.off()</div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13827"><br></div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13827">Obrigado</div><div dir="ltr" id="yui_3_16_0_1_1528101743957_13827">Henrique</div></div></body></html>