Hola Buenos dias.
Continuando con la duda de graficos multiples que ya habia resuelto gracias a los compañeros de este foro, me surge una nueva dificultad.
Logre generar 38 graficas y a esas 38 graficas generarle una linea de tendencia a partir de una regresion lineal con el siguiente codigo (Gracias David):
Regressões<-list()
Coeficientes <- list()
for (i in 2:39) {
Regressões[[i-1]]<-lm(logQmax[1:24,i]~logQmax[1:24,1])
Coeficientes[[i-1]] <- Regressões[[i-1]]$coefficients
Nomes<-paste("Evento",i-1,".png",sep="")
png(file=Nomes)
plot(Eventos[1:24,1],Eventos[1:24,i],log="xy", xlab="Area (km²)", ylab="Vazões Maximas Q(A) (m³/s)", col=4,
main=paste("EVENTO ",i-1,"-",datas[i-1],sep=" "))
abline(Regressões[[i-1]])
dev.off()
}
Ahore, debo generar la leyenda para cada uno de esos graficos, esa leyenda contiene los coeficientes de la regresion (pendiente e intercepto) y el R². De forma manual puedo hacerlo y lo siguiente es un ejemplo
legend("bottomright",legend=c("R²=0,86",expression(theta=="0,81"),expression(alpha=="-0,82")),bty="n")
Ahora como podria hacerlo para meterlo dentro del for o que lo haga automaticamente para los 38 graficos? muchas gracias por su ayuda