library(readr) bd <- read_csv(“C:/Users/pvfol/Downloads/indicadores.zip”) View(bd)

library(dplyr) library(ggplot2) library(flextable) library(readr) library(corrplot) library(DT) library(ggthemes) library(readxl) library (tidyverse)

datatable(dt)

Saúde (Zona Sul - Botafogo e Copacabana; Zona Norte - Maré e Inhaúma; Zona Central - Centro e Santa Teresa; Zona Oeste - Campo Grande e Bangu)

x <- subset(bd,bd\(regiao_administrativa=="Copacabana"|bd\)regiao_administrativa==“Botafogo”|bd\(regiao_administrativa=="Maré"|bd\)regiao_administrativa==“Inhaúma”|bd\(regiao_administrativa=="Centro"|bd\)regiao_administrativa==“Santa Teresa”|bd\(regiao_administrativa=="Campo Grande"|bd\)regiao_administrativa==“Bangu”) z <- subset(bd,bd$ano==“2020”)

y <- x %>% select(ano,regiao_administrativa,taxa_incidencia_dengue)

Média, mediana e desvio padrão

y %>% select(taxa_incidencia_dengue,regiao_administrativa) %>% group_by(regiao_administrativa) %>%
summarise(Mediana=median(taxa_incidencia_dengue), Minimo=min(taxa_incidencia_dengue), Maximo=max(taxa_incidencia_dengue), Média=mean(taxa_incidencia_dengue),
desvio_padrao=round(sd(taxa_incidencia_dengue),2))%>% flextable() %>% theme_zebra()

Gráfico

boxplot(z\(taxa_incidencia_dengue[z\)ano==“2020”] ~ y\(regiao_administrativa[z\)ano==“2020”], data=y, col=c(“pink”,“blue”,“red”), main=“Taxa de Dengue X Região”, xlab=“Região”, ylab=“Taxa Incidência de Dengue”)