---
title: "SARESP 2022"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
    theme: paper
---

# Saresp 2022 

## Column {.tabset}

### Apresentação 
Este Dashboard apresenta os resultados do Saresp 2022 - Rede Estadual.



###  {.hidden}

```{r}
library(flexdashboard)
library(rmarkdown)
library(dplyr)
library(geobr)
library(sf)
library(readxl)
library(leaflet)

all_mun_ms <- read_municipality(code_muni=35, year=2020)
LPT5EF <- read_excel("LPT5EF.xlsx",sheet = "LPT5EF")
dataset_final = left_join(all_mun_ms, LPT5EF, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')

```


# Língua Portuguesa

Column {.tabset}
-------------------------------------
### 5ºEF
```{r}
 bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")

palMean <- colorBin(bw, domain = dataset_final$Média_LPT5EF,c(0,150,200,250,300),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_LPT5EF),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_LPT5EF)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```


### 9ºEF
```{r}
LPT9EF <- read_excel("LPT9EF.xlsx",sheet = "LPT9EF")
dataset_final = left_join(all_mun_ms, LPT9EF, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')
bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")
palMean <- colorBin(bw, domain = dataset_final$Média_LPT9EF,c(0,200,275,325,400),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_LPT9EF),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_LPT9EF)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```

### 3ªEM
```{r}
LPT3EM <- read_excel("LPT3EM.xlsx",sheet = "LPT3EM")
dataset_final = left_join(all_mun_ms, LPT3EM, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')
bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")
palMean <- colorBin(bw, domain = dataset_final$Média_LPT3EM,c(0,250,300,375,450),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_LPT3EM),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_LPT3EM)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```

# Matemática

Column {.tabset}
-------------------------------------
### 5ºEF
```{r}
MAT5EF <- read_excel("MAT5EF.xlsx",sheet = "MAT5EF")
dataset_final = left_join(all_mun_ms, MAT5EF, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')
bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")

palMean <- colorBin(bw, domain = dataset_final$Média_MAT5EF,c(0,175,225,275,325),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_MAT5EF),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_MAT5EF)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```


### 9ºEF
```{r}
MAT9EF <- read_excel("MAT9EF.xlsx",sheet = "MAT9EF")
dataset_final = left_join(all_mun_ms, MAT9EF, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')
bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")
palMean <- colorBin(bw, domain = dataset_final$Média_MAT9EF,c(0,225,300,350,400),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_MAT9EF),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_MAT9EF)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```

### 3ªEM
```{r}
MAT3EM <- read_excel("MAT3EM.xlsx",sheet = "MAT3EM")
dataset_final = left_join(all_mun_ms, MAT3EM, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')
bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")
palMean <- colorBin(bw, domain = dataset_final$Média_MAT3EM,c(0,275,350,400,450),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_MAT3EM),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_MAT3EM)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```


# Ciências da Natureza

Column {.tabset}
-------------------------------------
### 5ºEF
```{r}
CIE5EF <- read_excel("CIE5EF.xlsx",sheet = "CIE5EF")
dataset_final = left_join(all_mun_ms, CIE5EF, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')
 bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")
palMean <- colorBin(bw, domain = dataset_final$Média_CIE5EF,c(0,150,200,250,300),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_CIE5EF),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_CIE5EF)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```


### 9ºEF
```{r}
CIE9EF <- read_excel("CIE9EF.xlsx",sheet = "CIE9EF")
dataset_final = left_join(all_mun_ms, CIE9EF, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')
bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")
palMean <- colorBin(bw, domain = dataset_final$Média_CIE9EF,c(0,200,275,325,400),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_CIE9EF),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_CIE9EF)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```

### 3ªEM
```{r}
CIE3EM <- read_excel("CIE3EM.xlsx",sheet = "CIE3EM")
dataset_final = left_join(all_mun_ms, CIE3EM, by=c("code_muni"="Codmun7"))
dataset_final<-dataset_final  %>%
  sf::st_transform('+proj=longlat +datum=WGS84')
bw <- c("#FF9900","#FFFF66", "#66CC33","#00CCFF")
palMean <- colorBin(bw, domain = dataset_final$Média_CIE3EM,c(0,250,300,375,450),na.color = "white")
leaflet(data = dataset_final)%>%
  setView(-48.02121,-22.54128,zoom = 7) %>%
  addPolygons(weight = 0.2, fillColor = ~palMean(Média_CIE3EM),
              color = "black",fillOpacity = 1,
              smoothFactor = 0.5,
              popup = paste0(dataset_final$name_muni,":  ",
                             dataset_final$Média_CIE3EM)) %>%
  addLegend(position = "bottomright", colors =c("#FF9900","#FFFF66","#66CC33","#00CCFF",na.color = "white"), labels= c("Abaixo do Básico","Básico","Adequado","Avançado",na.label="Sem Participação"),opacity =1)
```