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()

Obrigado

Henrique