Dashboard on death rate by countries - World bank api
This commit is contained in:
parent
d90476c708
commit
4ca2aa626b
|
@ -10,6 +10,8 @@
|
||||||
- [[./script/save_rds.R][Comprimindo tabela em formato rds no R]]
|
- [[./script/save_rds.R][Comprimindo tabela em formato rds no R]]
|
||||||
- [[./script/mort_CID10.Rmd][Compilado mortalidade por cem mil habitantes CID 10]]
|
- [[./script/mort_CID10.Rmd][Compilado mortalidade por cem mil habitantes CID 10]]
|
||||||
- [[./script/world_mort.Rmd][Dados sobre mortalidade (valor absoluto) em vários países]]
|
- [[./script/world_mort.Rmd][Dados sobre mortalidade (valor absoluto) em vários países]]
|
||||||
|
- [[./script/mort_am_lat.Rmd][Taxa de mortalidade em vários países]]
|
||||||
|
|
||||||
|
|
||||||
** Dados
|
** Dados
|
||||||
|
|
||||||
|
|
|
@ -0,0 +1,60 @@
|
||||||
|
---
|
||||||
|
title: "Mortalidade geral Brasil e outros países 2000-2018"
|
||||||
|
author: "José A Bran - https://ayuda.onecluster.org/"
|
||||||
|
date: "2021-04-22"
|
||||||
|
output:
|
||||||
|
flexdashboard::flex_dashboard:
|
||||||
|
storyboard: true
|
||||||
|
vertical_layout: fill
|
||||||
|
source_code: embed
|
||||||
|
social: menu
|
||||||
|
---
|
||||||
|
|
||||||
|
```{r setup, include=FALSE}
|
||||||
|
library(flexdashboard)
|
||||||
|
library(WDI)
|
||||||
|
library(ggplot2)
|
||||||
|
library(data.table)
|
||||||
|
library(DT)
|
||||||
|
library(plotly)
|
||||||
|
```
|
||||||
|
|
||||||
|
Mortalidade por 1000 habitantes
|
||||||
|
=======================================================================
|
||||||
|
|
||||||
|
Mortalidade por 1000 habitantes para alguns países da América Latina
|
||||||
|
|
||||||
|
Informações extraídas da API de indicadores mundiais de desenvolvimento
|
||||||
|
do Banco Mundial:
|
||||||
|
|
||||||
|
https://databank.worldbank.org/source/world-development-indicators
|
||||||
|
|
||||||
|
|
||||||
|
```{r}
|
||||||
|
df <- WDI(indicator = 'SP.DYN.CDRT.IN',
|
||||||
|
country = c("CO", "CU", "AR", "BO", "BR",
|
||||||
|
"PE", "MX", "UY", "PY", "EC"),
|
||||||
|
start = 2000, end = 2022)
|
||||||
|
setDT(df)
|
||||||
|
|
||||||
|
setnames(df, "SP.DYN.CDRT.IN", "Death
|
||||||
|
```
|
||||||
|
|
||||||
|
```{r }
|
||||||
|
datatable(df, filter = 'top') |>
|
||||||
|
formatRound('Death rate', 1)
|
||||||
|
```
|
||||||
|
|
||||||
|
Gráfico América Latina
|
||||||
|
=======================================================================
|
||||||
|
|
||||||
|
```{r, message=FALSE}
|
||||||
|
p <- ggplot(df, aes(year, `Death rate`, col = country)) +
|
||||||
|
geom_line() +
|
||||||
|
theme_bw() +
|
||||||
|
labs(y = "Mortalidade x 1000 habitantes")
|
||||||
|
```
|
||||||
|
|
||||||
|
```{r }
|
||||||
|
ggplotly(p)
|
||||||
|
```
|
Loading…
Reference in New Issue