## Warning: package 'dplyr' was built under R version 3.5.1
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## 
## Attaching package: 'ggplot2'
## The following objects are masked from 'package:psych':
## 
##     %+%, alpha
## Warning: package 'sjPlot' was built under R version 3.5.1
 enem_2015 %>% select(contains("NU_NOTA")) %>%
     sjp.corr(wrap.labels = 12, axis.labels = names(.))+
     theme(axis.title.x = element_text(face="bold", colour="#990000", size=10),
           axis.text.x  = element_text(angle=90, vjust=0.5, size=6))+
      theme(axis.title.y = element_text(face="bold", colour="#990000", size=10),
           axis.text.y  = element_text(angle=0, vjust=0.5, size=6))
## Computing correlation using pearson-method with listwise-deletion...
## Warning: Removed 66 rows containing missing values (geom_text).