101 lines
2.3 KiB
Plaintext
Executable File
101 lines
2.3 KiB
Plaintext
Executable File
---
|
|
title: "Mortalidade geral população brasileira 2000-2019"
|
|
author: "José A Bran - https://ayuda.onecluster.org/"
|
|
date: "2021-04-22"
|
|
output:
|
|
flexdashboard::flex_dashboard:
|
|
orientation: rows
|
|
vertical_layout: fill
|
|
source_code: embed
|
|
runtime: shiny
|
|
---
|
|
|
|
```{r }
|
|
source("./pais_reg_UF_dashwrang.R")
|
|
```
|
|
|
|
UF
|
|
=======================================================================
|
|
|
|
População estimada segundo Ano: 2000-2019
|
|
|
|
http://tabnet.datasus.gov.br/cgi/tabcgi.exe?ibge/cnv/poptuf.def
|
|
|
|
http://tabnet.datasus.gov.br/cgi/ibge/Popula_Residente_Estim_TCU.pdf
|
|
|
|
Fonte: IBGE - Estimativas de população
|
|
|
|
```{r }
|
|
datatable(d3)
|
|
```
|
|
|
|
UF gráfico
|
|
=======================================================================
|
|
|
|
```{r }
|
|
mu <- ggplot(d3, aes(Ano, Mortalidade, group = `Sigla-UF`)) +
|
|
geom_line(aes(color = `Sigla-UF`)) +
|
|
labs(y = "Mortalidade x 1000 habitantes",
|
|
color = "UF") +
|
|
theme_minimal() +
|
|
theme(legend.position = c(0.8, 0.2),
|
|
# legend.direction = "horizontal",
|
|
legend.text = element_text(size = 7),
|
|
axis.text.x = element_text(size = 7, angle = 45)) +
|
|
facet_wrap(~ Região)
|
|
```
|
|
|
|
```{r }
|
|
plotly::ggplotly(mu)
|
|
```
|
|
|
|
Região
|
|
=======================================================================
|
|
|
|
```{r }
|
|
datatable(d6, filter = 'top') |>
|
|
formatRound('Mortalidade', 1)
|
|
```
|
|
|
|
Região gráfico
|
|
=======================================================================
|
|
|
|
```{r }
|
|
mr <- ggplot(d6, aes(Ano, Mortalidade, group = Região)) +
|
|
geom_point(aes(color = Região)) +
|
|
geom_line(aes(color = Região)) +
|
|
labs(y = "Mortalidade x 1000 habitantes") +
|
|
theme_minimal()
|
|
```
|
|
|
|
```{r }
|
|
plotly::ggplotly(mr)
|
|
```
|
|
|
|
País
|
|
=======================================================================
|
|
|
|
```{r }
|
|
pai <- d6 |>
|
|
group_by(Ano) |>
|
|
summarise(Total_obitos = sum(Obitos),
|
|
Total_população = sum(População)) |>
|
|
mutate(Mortalidade = (Total_obitos/Total_população) * 1000)
|
|
|
|
datatable(pai, filter = 'top') |>
|
|
formatRound('Mortalidade', 1)
|
|
```
|
|
|
|
Gráfico país
|
|
=======================================================================
|
|
|
|
```{r }
|
|
mp <- ggplot(pai, aes(Ano, Mortalidade, group = 1)) +
|
|
geom_line(col = "blue") +
|
|
geom_point() +
|
|
labs(y = "Mortalidade x 1000 habitantes") +
|
|
theme_minimal()
|
|
|
|
ggplotly(mp)
|
|
```
|