Resultados pesquisa COBENGE

Resultados para meu amigo shington!

library(ggplot2)
dados <- rio::import(file = "C:/Users/DE/Desktop/Washington AEDB/Pasta1.xlsx", which = 1L)
lm_eqn <- function(dados){
  m <- lm(portugues ~ ga, dados);
  eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2, 
                   list(a = format(coef(m)[1], digits = 2), 
                        b = format(coef(m)[2], digits = 2), 
                        r2 = format(summary(m)$r.squared, digits = 3)))
  as.character(as.expression(eq));                 
}
p <- ggplot(data = dados, aes(x = ga, y = portugues)) + geom_smooth(method = "lm", se=FALSE, color="red", formula = y ~ x) + geom_point()
p1 <- p + geom_text(x = 2.5, y = 8, label = lm_eqn(dados), parse = TRUE)
p2 <- p1 + theme_bw() + labs(title ="", x = "Geometria Analítica e Álgebra", y = "Português") 
p2

dados <- rio::import(file = "C:/Users/DE/Desktop/Washington AEDB/Pasta1.xlsx", which = 1L)
lm_eqn <- function(dados){
  m <- lm(portugues ~ calculo, dados);
  eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2, 
                   list(a = format(coef(m)[1], digits = 2), 
                        b = format(coef(m)[2], digits = 2), 
                        r2 = format(summary(m)$r.squared, digits = 3)))
  as.character(as.expression(eq));                 
}
p <- ggplot(data = dados, aes(x = calculo, y = portugues)) + geom_smooth(method = "lm", se=FALSE, color="red", formula = y ~ x) + geom_point()
p1 <- p + geom_text(x = 2.5, y = 8, label = lm_eqn(dados), parse = TRUE)
p2 <- p1 + theme_bw() + labs(title ="", x = "Cálculo", y = "Português") 
p2

dados <- rio::import(file = "C:/Users/DE/Desktop/Washington AEDB/Pasta1.xlsx", which = 1L)
lm_eqn <- function(dados){
  m <- lm(portugues ~ fisica, dados);
  eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2, 
                   list(a = format(coef(m)[1], digits = 2), 
                        b = format(coef(m)[2], digits = 2), 
                        r2 = format(summary(m)$r.squared, digits = 3)))
  as.character(as.expression(eq));                 
}
p <- ggplot(data = dados, aes(x = fisica, y = portugues)) + geom_smooth(method = "lm", se=FALSE, color="red", formula = y ~ x) + geom_point()
p1 <- p + geom_text(x = 2.5, y = 8, label = lm_eqn(dados), parse = TRUE)
p2 <- p1 + theme_bw() + labs(title ="", x = "Física", y = "Português") 
p2