91 lines
2.0 KiB
Plaintext
Executable File
91 lines
2.0 KiB
Plaintext
Executable File
---
|
|
title: "Mortalidade população brasileira 2000-2019"
|
|
subtitle: "Proporção de óbitos por idade"
|
|
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 setup, include=FALSE}
|
|
library(flexdashboard)
|
|
library(ggplot2)
|
|
library(DT)
|
|
library(plotly)
|
|
library(dygraphs)
|
|
library(data.table)
|
|
```
|
|
|
|
Mortalidade proporcional por idade 2000 a 2019
|
|
|
|
```{r }
|
|
d <- fread("../data/obitos_faixa_et.csv", header = TRUE)
|
|
|
|
names(d)
|
|
```
|
|
|
|
```{r }
|
|
cols = names(d)[2:21]
|
|
|
|
d = melt(d,
|
|
id = "Faixa Etaria",
|
|
measure = cols,
|
|
variable.name = "Ano",
|
|
value.name = "Obitos")
|
|
|
|
d = d[`Faixa Etaria` != "Idade ignorada", ]
|
|
```
|
|
|
|
```{r }
|
|
da = d[, .(`Obitos ano` = sum(Obitos)), by = Ano ]
|
|
```
|
|
|
|
```{r }
|
|
dat = da[d, on = "Ano" ]# joining the data by year
|
|
|
|
dat[, `Mortalidade prop` := (Obitos/`Obitos ano`) * 100 ]
|
|
|
|
rm(d, da)
|
|
```
|
|
|
|
Recoding variable as factor
|
|
|
|
```{r }
|
|
levels = c("Menor 1", "1 a 4", "5 a 9", "10 a 14", "15 a 19", "20 a 29",
|
|
"30 a 39", "40 a 49", "50 a 59", "60 a 69", "70 a 79", "80 e mais")
|
|
|
|
dat[, `Faixa Etaria ord` := factor(`Faixa Etaria`,
|
|
ordered = TRUE,
|
|
levels = levels) ]
|
|
```
|
|
|
|
Mortalidade por idade 2000-2019
|
|
=======================================================================
|
|
|
|
```{r }
|
|
datatable(O_ID2, filter = 'top') %>%
|
|
formatRound('Mortalidade prop', 1)
|
|
```
|
|
|
|
Gráfico
|
|
=======================================================================
|
|
|
|
```{r }
|
|
g <- ggplot(dat, aes(`Mortalidade prop`, `Faixa Etaria ord`)) +
|
|
geom_col(aes(col = "red", fill = "red", alpha = `Obitos ano`)) +
|
|
theme_minimal() +
|
|
geom_vline(xintercept = 20, size = 0.2, col = "blue") +
|
|
geom_vline(xintercept = 5, size = 0.2, col = "blue") +
|
|
theme(legend.position = 'none') +
|
|
labs(x = "Mortalidade proporcional", y = "Idade - Anos") +
|
|
facet_wrap(~ Ano)
|
|
```
|
|
|
|
```{r }
|
|
ggplotly(g)
|
|
```
|