Script with mortality rate by states
parent
c7d466c7f8
commit
38d1b93961
@ -0,0 +1,28 @@
|
||||
UF,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019
|
||||
RONDONIA,5602,6015,6028,6319,6319,6252,6072,5565,6289,6837,7225,7014,7602,7500,7655,7948,8344,8219,8165,8338
|
||||
ACRE,2565,2494,2486,2534,2676,2811,2759,2799,2858,2892,3009,3157,3293,3318,3476,3517,3763,3832,4094,4098
|
||||
AMAZONAS,10464,10504,10623,10594,10896,11132,11594,11757,12715,12992,13300,14227,14847,15129,15879,16675,16799,17281,17710,18327
|
||||
RORAIMA,1329,1200,1252,1351,1408,1440,1509,1494,1481,1536,1640,1599,1783,1947,1954,2091,2157,2461,2787,2779
|
||||
PARA,21542,23699,23139,25124,25886,26402,27015,27626,29633,30512,31600,32638,33898,34150,35575,37365,38557,39980,40513,40599
|
||||
AMAPA,1686,1961,1982,1895,1949,1765,1803,1886,2113,2140,2172,2495,2601,2680,2852,2946,2995,3158,3345,3524
|
||||
TOCANTINS,4373,4797,4820,4970,5140,5055,5120,5604,5878,6084,6479,6659,6642,6871,7127,7402,7490,8052,7795,8021
|
||||
MARANHAO,16041,19792,21490,22524,22823,23931,22643,23821,25407,25734,26091,28970,28838,30919,32101,33666,34362,35275,34525,35128
|
||||
PIAUI,11623,12505,13085,13883,13603,14253,14484,14884,15489,15573,15614,17052,17449,17985,18565,19366,19187,19850,19983,20528
|
||||
CEARA,33641,35726,39172,40972,41178,39867,40793,40426,43100,44194,43847,47886,48712,51638,51950,55258,54276,59263,57028,56580
|
||||
RIO GRANDE DO NORTE,12858,13292,14176,13731,14642,14172,13659,14541,15576,16215,16090,17802,17923,18921,19137,20153,21922,21409,21209,21767
|
||||
PARAIBA,18268,18879,19704,19998,20696,20289,20134,21275,22522,22797,23407,24579,25168,25926,25240,26422,28041,26975,26644,27378
|
||||
PERNAMBUCO,52469,51868,52194,52912,53560,52247,51885,53338,54124,54678,54570,57219,57132,58209,57823,62556,66928,64364,62011,64295
|
||||
ALAGOAS,14337,15442,15861,15245,15728,15311,15422,16594,16403,17056,17737,18645,18376,19243,19065,19756,20769,20673,19411,20287
|
||||
SERGIPE,9519,9727,9876,9651,9593,9787,9586,9726,10239,10737,10942,11397,11837,12151,12237,13453,13516,13321,13024,13473
|
||||
BAHIA,59654,61025,63422,64103,64791,64687,67533,67588,71013,73492,76337,78046,80311,81423,83630,87083,88094,90915,90134,93365
|
||||
MINAS GERAIS,96161,97981,97844,104760,107340,106275,111807,111366,112756,114301,120803,122653,125074,125850,127703,131274,135257,138118,135619,141022
|
||||
ESPIRITO SANTO,17632,17687,17618,18404,18630,18676,19665,19641,20447,20396,21205,21403,21616,21651,22030,22332,22868,24112,23500,24431
|
||||
RIO DE JANEIRO,111196,113816,117018,116318,117538,114394,118423,120217,122534,123890,127536,127095,126261,130032,131044,132714,141089,136709,140706,144600
|
||||
SAO PAULO,238959,235987,237741,240253,243984,236456,243955,244653,249247,256627,264951,270367,270432,276980,281624,287645,296359,294753,298313,306190
|
||||
PARANA,56092,55073,56854,57566,60276,58778,60610,61597,63781,64960,66969,68598,68637,69930,69348,70839,74740,71633,73848,74566
|
||||
SANTA CATARINA,28431,28260,28776,29525,30552,29915,30421,32102,31869,33825,34474,35912,35435,36285,37000,37984,40270,39919,41268,42282
|
||||
RIO GRANDE DO SUL,67953,68296,69357,70534,72242,71229,72357,75305,73996,76788,77985,80148,79456,83016,82166,82349,87583,86241,88618,89238
|
||||
MATO GROSSO DO SUL,11078,11213,11421,12161,12562,12508,12760,13208,13235,13610,14471,14291,14634,14921,15063,15457,16749,15954,16600,16815
|
||||
MATO GROSSO,11466,11572,12168,12221,12907,12936,12958,12792,13872,14267,14986,15239,15901,16137,16969,17095,17535,17709,18205,18341
|
||||
GOIAS,23175,23921,25634,25697,27545,26834,27211,28153,30146,30496,32656,34154,36000,36254,37808,38854,38074,39973,39507,41025
|
||||
DISTRITO FEDERAL,8572,8760,9066,9095,9609,9425,9513,9866,10284,10459,10851,11253,11308,11408,12018,11975,12050,12514,12157,12804
|
||||
|
@ -0,0 +1,28 @@
|
||||
UF,UF2,Sigla-UF,Região,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020
|
||||
ACRE,Acre,AC, Norte,587407,602009,616781,631650,646548,661427,676252,690997,705635,720132,734447,748616,762631,776463,790101,803513,816687,829619,842290,854691,866811
|
||||
ALAGOAS,Alagoas,AL, Nordeste,2897880,2937414,2975948,3013346,3049431,3084050,3117060,3148387,3177975,3205791,3231836,3256277,3279289,3300935,3321305,3340502,3358527,3375382,3391142,3405893,3419689
|
||||
AMAPA,Amapá,AP, Norte,499330,519202,538836,558398,577786,596914,615692,634068,651977,669360,686189,702638,718906,734996,750912,766679,782295,797722,812961,828028,842914
|
||||
AMAZONAS,Amazonas,AM, Norte,2872524,2946727,3021363,3096127,3170740,3244995,3318679,3391594,3463562,3534456,3604165,3672969,3740976,3807921,3873743,3938336,4001667,4063614,4124033,4182899,4240210
|
||||
BAHIA,Bahia,BA, Nordeste,13519548,13664222,13805391,13942631,14075570,14203837,14327129,14445266,14558148,14665810,14768312,14865405,14957177,15044137,15126371,15203934,15276566,15344447,15408073,15467527,15522855
|
||||
CEARA,Ceará,CE, Nordeste,7601788,7718435,7830721,7938714,8042368,8141584,8236289,8326445,8412055,8493155,8569783,8642630,8712413,8779338,8843553,8905225,8964432,9021232,9075744,9128090,9178363
|
||||
DISTRITO FEDERAL,Distrito Federal,DF, Centro-Oeste,2108798,2148606,2190118,2233473,2278824,2326355,2376239,2428637,2483669,2541434,2602074,2664444,2727098,2789761,2852372,2914830,2977216,3039444,3101220,3162452,3223048
|
||||
ESPIRITO SANTO,Espírito Santo,ES, Sudeste,3194255,3244851,3295622,3346440,3397224,3447900,3498381,3548614,3598524,3648075,3697243,3745577,3792874,3839366,3885049,3929911,3973697,4016356,4058079,4098852,4138657
|
||||
GOIAS,Goiás,GO, Centro-Oeste,5075596,5193467,5309216,5422815,5534201,5643344,5750254,5854898,5957260,6057367,6155266,6250462,6343136,6434048,6523222,6610681,6695855,6778772,6860047,6939629,7017496
|
||||
MARANHAO,Maranhão,MA, Nordeste,5794912,5879264,5964486,6049974,6135099,6219144,6301445,6381473,6458789,6533027,6603880,6670977,6734353,6794301,6850884,6904241,6954036,7000229,7043339,7083578,7121156
|
||||
MATO GROSSO,Mato Grosso,MT, Centro-Oeste,2560993,2611854,2662431,2712685,2762537,2811904,2860741,2908961,2956496,3003310,3049348,3094547,3138822,3182113,3224357,3265486,3305531,3344544,3382487,3419350,3455092
|
||||
MATO GROSSO DO SUL,Mato Grosso do Sul,MS, Centro-Oeste,2125821,2163050,2200183,2237147,2273874,2310307,2346398,2382080,2417300,2452039,2486257,2520305,2554130,2587269,2619657,2651235,2682386,2713147,2743142,2772343,2800704
|
||||
MINAS GERAIS,Minas Gerais,MG, Sudeste,18178042,18402608,18620721,18832431,19037702,19236503,19428834,19614742,19794278,19967560,20134742,20294485,20446840,20593356,20734097,20869101,20997560,21119536,21235870,21346492,21451356
|
||||
PARA,Pará,PA, Norte,6386876,6516683,6646479,6775865,6904392,7031660,7157305,7281011,7402515,7521656,7638340,7751993,7862333,7969654,8073924,8175113,8272724,8366628,8457229,8544639,8628901
|
||||
PARAIBA,Paraíba,PB, Nordeste,3472839,3507296,3542012,3576975,3612078,3647204,3682222,3717022,3751507,3785598,3819237,3852082,3883822,3914421,3943885,3972202,3999415,4025558,4050662,4074755,4097859
|
||||
PARANA,Paraná,PR, Sul,9665335,9786066,9903412,10017462,10128262,10235875,10340390,10441872,10540407,10636065,10728961,10820421,10910374,10997465,11081692,11163018,11242720,11320892,11396262,11468818,11538518
|
||||
PERNAMBUCO,Pernambuco,PE, Nordeste,8119689,8212595,8304375,8395002,8484308,8572129,8658333,8742825,8825549,8906488,8985658,9062506,9136697,9208550,9278152,9345603,9410772,9473707,9534634,9593588,9650604
|
||||
PIAUI,Piauí,PI, Nordeste,2877450,2912304,2945649,2977378,3007333,3035330,3061253,3085026,3106597,3125918,3142946,3158000,3171456,3183404,3193956,3203262,3211411,3218485,3224536,3229651,3233891
|
||||
RIO DE JANEIRO,Rio de Janeiro,RJ, Sudeste,14802363,14954176,15100157,15240284,15374696,15503631,15627358,15746038,15859866,15969092,16074006,16175495,16273984,16369179,16461173,16550024,16635996,16718956,16798421,16874306,16946541
|
||||
RIO GRANDE DO NORTE,Rio Grande do Norte,RN, Nordeste,2837885,2884661,2930535,2975550,3019694,3062933,3105227,3146552,3186891,3226259,3264647,3302061,3338489,3373959,3408510,3442175,3474998,3507003,3538218,3568644,3598288
|
||||
RIO GRANDE DO SUL,Rio Grande do Sul,RS, Sul,10266739,10365992,10459249,10546778,10628806,10705605,10777424,10844476,10906958,10965071,11019030,11069861,11118261,11164043,11207274,11247972,11286500,11322895,11356804,11388156,11416895
|
||||
RONDONIA,Rondônia,RO, Norte,1401535,1431048,1459811,1487850,1515151,1541715,1567546,1592640,1616992,1640607,1663490,1685697,1707272,1728214,1748531,1768204,1787279,1805788,1823741,1841142,1857992
|
||||
RORAIMA,Roraima,RR, Norte,336829,351178,365275,379035,392392,405273,417634,429406,440533,450969,460678,469943,479073,488072,496936,505665,514229,522636,530879,538963,546891
|
||||
SANTA CATARINA,Santa Catarina,SC, Sul,5454145,5539977,5626501,5713792,5801932,5890979,5980986,6072000,6164049,6257173,6351418,6446209,6540596,6634254,6727148,6819190,6910553,7001161,7090682,7179056,7266193
|
||||
SAO PAULO,São Paulo,SP, Sudeste,37799568,38323392,38835718,39336185,39824526,40300493,40763876,41214356,41651651,42075716,42486692,42888198,43281358,43663669,44035304,44396484,44749699,45094866,45429330,45752757,46064928
|
||||
SERGIPE,Sergipe,SE, Nordeste,1824047,1856879,1888967,1920338,1950985,1980891,2010083,2038561,2066358,2093507,2120052,2145945,2171137,2195662,2219574,2242937,2265779,2288116,2309961,2331323,2352207
|
||||
TOCANTINS,Tocantins,TO, Norte,1186153,1211273,1236171,1260783,1285028,1308824,1332107,1354808,1376898,1398334,1419100,1439275,1458965,1478164,1496880,1515126,1532902,1550194,1567016,1583391,1599316
|
||||
|
@ -0,0 +1,154 @@
|
||||
---
|
||||
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 setup, include=FALSE}
|
||||
library(flexdashboard)
|
||||
library(WDI)
|
||||
library(ggplot2)
|
||||
library(dplyr)
|
||||
library(DT)
|
||||
library(plotly)
|
||||
#library(readr)
|
||||
library(data.table)
|
||||
library(dygraphs)
|
||||
library(knitr)
|
||||
library(tidyr)
|
||||
library(WDI)
|
||||
```
|
||||
|
||||
Mortalidade geral: casos totais e mortalidade por 1000 habitantes
|
||||
|
||||
```{r }
|
||||
d <- fread("../data/obitos_UF_2000_2019.csv", header = TRUE) |>
|
||||
pivot_longer(cols = c(`2000`:`2019`),
|
||||
names_to = "Ano",
|
||||
values_to = "Obitos")
|
||||
d
|
||||
```
|
||||
|
||||
```{r }
|
||||
d1 <- fread("../data/pop_UF_2000_2020.csv", header = TRUE) |>
|
||||
select(-`2020`) |>
|
||||
pivot_longer(cols = c(`2000`:`2019`),
|
||||
names_to = "Ano",
|
||||
values_to = "População")
|
||||
```
|
||||
|
||||
```{r }
|
||||
d3 <- left_join(d, d1, by = c("UF", "Ano")) |>
|
||||
mutate(Mortalidade = (Obitos/População) * 1000)
|
||||
```
|
||||
|
||||
```{r }
|
||||
d4 <- fread("../data/obitos_reg_2000_2020.csv", header = TRUE) |>
|
||||
pivot_longer(cols = c(`2000`:`2019`),
|
||||
names_to = "Ano",
|
||||
values_to = "Obitos")
|
||||
```
|
||||
|
||||
```{r }
|
||||
d5 <- fread("../data/pop_reg_2000_2020.csv", header = TRUE) |>
|
||||
pivot_longer(cols = c(`2000`:`2019`),
|
||||
names_to = "Ano",
|
||||
values_to = "População")
|
||||
```
|
||||
|
||||
```{r }
|
||||
d6 <- left_join(d4, d5, by = c("Regiao", "Ano")) |>
|
||||
mutate(Mortalidade = (Obitos/População) * 1000) |>
|
||||
rename(Região = "Regiao")
|
||||
```
|
||||
|
||||
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 }
|
||||
M_U <- 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(M_U)
|
||||
```
|
||||
|
||||
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)
|
||||
```
|
||||
Loading…
Reference in New Issue