diff --git a/README.org b/README.org index b6db241..78541f7 100755 --- a/README.org +++ b/README.org @@ -12,6 +12,7 @@ - [[./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]] - [[./script/mort_idade.Rmd][Mortalidade proporcional por faixa etária]] +- [[./script/pais_reg_UF_dash.Rmd][Taxa de mortalidade Brasil 2000-2019 por UF]] ** Dados @@ -19,6 +20,12 @@ Os dados foram obtidos do Sistema de Informação de Mortalidade do Brasil ([[ht O Sistema faz parte das bases de dados públicas mantidas pelo Ministério de Saúde do Brasil. +A tabela da população brasileira entre ano 2010 a 2020 foi extraída do [[http://tabnet.datasus.gov.br/cgi/tabcgi.exe?ibge/cnv/projpopbr.def][tabnet]]: + +IBGE/Diretoria de Pesquisas. Coordenação de População e Indicadores Sociais. +Gerência de Estudos e Análises da Dinâmica Demográfica. Projeção da população +do Brasil por sexo e idade para o período 2000-2060 + - [[https://opendatasus.saude.gov.br/dataset/sim-1979-2019][Dados de mortalidade 1979-2019]] - [[https://opendatasus.saude.gov.br/dataset/sim-2020-2021][Dados de mortalidade 2021]] - [[./data/mortalidade_CID_10.csv][Compilado dados mortalidade por causas - CID 10]] @@ -26,3 +33,12 @@ Saúde do Brasil. - [[./data/obitos_faixa_et.csv][Óbitos por faixa etária]] - [[https://diaad.s3.sa-east-1.amazonaws.com/sim/Mortalidade_Geral+-+Estrutura.pdf][Dicionário dados SIM]] - [[https://databank.worldbank.org/metadataglossary/world-development-indicators/series/SP.DYN.CDRT.IN][Definição do indicador "mortalidade geral" BM]] +- [[http://tabnet.datasus.gov.br/cgi/tabcgi.exe?ibge/cnv/projpopbr.def][População brasileira para o período de estudo]] +- [[./data/pop_UF_2000_2020.csv][Tabela população por UF 2000-2020]] +- [[./data/obitos_UF_2000_2019.csv][Tabela óbitos por UF 2000-2019]] +- [[./data/pop_reg_2000_2020.csv][Tabela população por região 2000-2020]] + +** Documentos + +- [[./doc/resources.org][Informações complementares sobre mortalidade]] +- [[./bib/references.bib][Referências bibliográficas]] diff --git a/data/obitos_UF_2000_2019.csv b/data/obitos_UF_2000_2019.csv new file mode 100755 index 0000000..110406c --- /dev/null +++ b/data/obitos_UF_2000_2019.csv @@ -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 diff --git a/data/pop_UF_2000_2020.csv b/data/pop_UF_2000_2020.csv new file mode 100755 index 0000000..cec8bdd --- /dev/null +++ b/data/pop_UF_2000_2020.csv @@ -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 diff --git a/doc/resources.org b/doc/resources.org index 0fbaafd..45fb25f 100644 --- a/doc/resources.org +++ b/doc/resources.org @@ -2,11 +2,15 @@ * Some resources to learn more about human mortality -| Resource | Description | -|-------------------+-----------------------------------------------------| -| [[https://www.lamortalidad.org/][lamortalidad]] | Latin America Mortality Database | -| [[https://basedosdados.org/dataset/br-ms-sim?bdm_table=dicionario][basedosdados]] | Data on human mortality - Brazil. Treated data | -| [[https://www.mortality.org/Home/Index][humanmortality]] | Data on human mortality - Different countries | -| [[https://www.causesofdeath.org/cgi-bin/main.php][humancauseofdeath]] | Human cause of death database - Different countries | -| | | +| Resource | Description | +|--------------------------------+-----------------------------------------------------| +| [[https://pcdas.icict.fiocruz.br/conjunto-de-dados/sistema-de-informacoes-de-mortalidade-sim/documentacao/][Dados SIM FIOCRUZ]] | Brazil mortality data cleaned by Fiocruz data team | +| [[ftp://ftp.datasus.gov.br/dissemin/publicos/SIM/CID10/DORES/][ftp datasus]] | Brazil mortality data - access by ftp | +| [[https://www.lamortalidad.org/][lamortalidad]] | Latin America Mortality Database | +| [[https://basedosdados.org/dataset/br-ms-sim?bdm_table=dicionario][basedosdados]] | Data on human mortality - Brazil. Treated data | +| [[https://www.mortality.org/Home/Index][humanmortality]] | Data on human mortality - Different countries | +| [[https://www.causesofdeath.org/cgi-bin/main.php][humancauseofdeath]] | Human cause of death database - Different countries | +| [[http://tabnet.datasus.gov.br/cgi/ibge/Popula_Residente_Estim_TCU.pdf][Tabnet]] | Population estimates - Brazil - Datasus | +| [[http://tabnet.datasus.gov.br/cgi/tabcgi.exe?ibge/cnv/poptuf.def][Tabnet - população por estados]] | Brazilian population by states | +| | | diff --git a/script/pais_reg_UF_dash.Rmd b/script/pais_reg_UF_dash.Rmd new file mode 100755 index 0000000..721df4b --- /dev/null +++ b/script/pais_reg_UF_dash.Rmd @@ -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) +```