dados <- fread("/Users/rodrigolinsrodrigues/Documents/SAEB - 2021/1. Bases de Dados/dados.csv")
dados %>% ggplot(aes(ID_REGIAO, PROFICIENCIA_MT, fill = ID_REGIAO)) + geom_boxplot(alpha = 0.5)
## Warning: Removed 2 rows containing non-finite values (`stat_boxplot()`).