bd <- indicadores
x <- subset(bd,bd\(regiao_administrativa=="Copacabana"|bd\)regiao_administrativa==“Botafogo”|bd$regiao_administrativa==“Lagoa”)
library(dplyr) library(DT)
library(flextable) library(data.table) library(ggplot2)
library(ggthemes)
y <- x %>% select(ano,regiao_administrativa,taxa_mortalidade_doencas_cronicas,taxa_incidencia_dengue,taxa_mortalidade_tuberculose_hiv)
barplot(table(y\(regiao_administrativa)) boxplot(y\)taxa_incidencia_dengue ~y$regiao_administrativa)
z <- subset(bd,bd\(regiao_administrativa=="Santa Teresa"|bd\)regiao_administrativa==“Portuaria”|bd$regiao_administrativa==“Centro”)
a <- subset(bd,bd\(regiao_administrativa=="Vila Isabel"|bd\)regiao_administrativa==“Inhaúma”|bd$regiao_administrativa==“Maré”)
b <- subset(bd,bd\(regiao_administrativa=="Cidade de Deus"|bd\)regiao_administrativa==“Bangu”|bd$regiao_administrativa==“Campo Grande”)
barplot(table(a\(regiao_administrativa)) boxplot(a\)taxa_incidencia_dengue ~a$regiao_administrativa)
par(bg=“white”) plot(a\(regiao_administrativa ,a\)taxa_incidencia_dengue, pch=18, col=“FF6A6A”, main = “Grafico Dengue”, xlab = “Lugar”, ylab = “Taxa de dengue”) abline(lsfit(a\(regiao_administrativa,a\)taxa_incidencia_dengue), col=“darkblue” lwd=3, lty=1)
TEM QUE SER BOX PLOT