<div dir="ltr"><div>Caros,</div><div>Preciso incluir as equações do modelo ajustado e o R2 no gráfico construído usando a função "xyplot" do pacote "lattice". Usei para o código mínimo reproduzível os dados do próprio pacote mas não deu certo.</div><div>Agradeço quem puder auxiliar.</div><div>Maurício<br></div><div><br></div><div>library(lattice)<br>str(iris)<br>table(iris$Species)<br>iris_setosa = subset(iris, Species =="setosa")<br>mod1 = lm(Sepal.Length ~ Petal.Length, data=iris_setosa)<br>iris_versicolor = subset(iris, Species =="versicolor")<br>mod2 = lm(Sepal.Length ~ Petal.Length, data=iris_versicolor)<br>iris_virginica = subset(iris, Species =="virginica")<br>mod3 = lm(Sepal.Length ~ Petal.Length, data=iris_virginica)<br><br>tp_mod1 = sprintf("%s = %.2f + %.2f%s", "Y",<br>                  coef(mod1)[1], coef(mod1)[2], "X")<br>r2_mod1 = cor(iris_setosa$Sepal.Length, fitted(mod1))^2<br><br>tp_mod2 = sprintf("%s = %.1f + %.2f %s", "Y",<br>                  coef(mod2)[1], coef(mod2)[2], "X")<br>r2_mod2 = cor(iris_versicolor$Sepal.Length, fitted(mod2))^2<br><br>tp_mod3 = sprintf("%s = %.1f + %.2f %s", "Y",<br>                  coef(mod3)[1], coef(mod3)[2], "X")<br>r2_mod3 = cor(iris_virginica$Sepal.Length, fitted(mod3))^2<br><br>tp_mod1;r2_mod1<br>tp_mod2;r2_mod2<br>tp_mod3;r2_mod3</div><div>##Necessito em cada "tp_mod" incluir o r2 logo abaixo da respectiva equação###<br></div><div><br></div><div>mypanel<-function(x,y,...)</div><div>{<br>  panel.xyplot(x, y, ...)<br>  panel.abline(mod1)<br>  panel.abline(mod2)<br>  panel.abline(mod3)<br>  panel.text(4,7,labels=tp_mod1)<br>  panel.text(3,8,labels=tp_mod2)<br>  panel.text(2,7,labels=tp_mod3)<br>}<br></div><div>#O gráfico gerado:<br></div><div>xyplot(Sepal.Length ~ Petal.Length | Species,panel = mypanel,<br>       data = iris,<br>       strip = strip.custom(par.strip.text = list(font = 3)))</div></div>