Nesta breve análise, vamos perceber quem é o médico de família com mais utentes em Portugal. Vamos basear-nos nos dados disponíveis num dashboard disponível no site BI da Reforma do SNS.
Os dados tiveram que ser recolhidos e verificados manualmente porque o Estado Português entende que estes dados devem ser públicos mas não descarregáveis.
Os dados também não constam do Portal de Dados Abertos do SNS nem do dados.gov.
##Package para importar outros packages
library(needs)
needs(tidyverse, DT,rio)
Os dados estavam num dashboard feito no Microsoft Power BI.
De acordo com esse mesmo dashboard, os dados são da Base de Dados NCSP da ACSS, mas nenhuma fonte contactada conseguiu fornecer esta base de dados.
Segundo o mesmo dashboard, os dados datam de 20190831, que assumimos que corresponde a 31/08/2019.
A Renascença fez a recolha de dados manuais, tendo guardado esses dados num ficheiro tsv.
Os dados foram confirmados manualmente se forma a assegurar que todos os médicos constavam da base de dados recolhida.
medicos_de_familia <- read_delim("dados/dados_processados/medicos_de_familia.tsv",
"\t", escape_double = FALSE, locale = locale(decimal_mark = ",",
grouping_mark = "."), trim_ws = TRUE)
## Parsed with column specification:
## cols(
## ARS = col_character(),
## ACeS = col_character(),
## CS = col_character(),
## `TIPO UF` = col_character(),
## UF = col_character(),
## `Nº ORDEM` = col_double(),
## `NOME CLÍNICO` = col_character(),
## IDADE = col_character(),
## `APO CONTRA` = col_character(),
## INSCRITOS = col_number(),
## UP = col_number()
## )
Os dados foram importados sem qualquer problema. 🎉🎉🎉
top_utentes <- medicos_de_familia %>% arrange(-`INSCRITOS`)
DT::datatable(top_utentes, rownames = FALSE, options = list(pageLength = 10, scrollX = TRUE))
Luís Peixoto, registado na ordem dos médicos com o número 24374, da UCSP Abrantes, é o médico de família em Portugal com mais utentes atribuidoí.
medicos_100 <- medicos_de_familia %>% filter(INSCRITOS == UP)
DT::datatable(medicos_100, rownames = FALSE, options = list(pageLength = 10, scrollX = TRUE))
Há 6, mas têm todos um número de utenete baixo.
avrg_unidade <- medicos_de_familia %>%
group_by(UF) %>%
summarise(média_por_UF = mean(INSCRITOS,na.rm = TRUE))
DT::datatable(head(avrg_unidade), rownames = FALSE, options = list(pageLength = 10, scrollX = TRUE))
A UF Convenção - Canidelo é a que tem a maior média de utentes - 2211.333 utentes utente.
x <- medicos_de_familia %>% filter(IDADE == "(Vazio)")
length(x$IDADE)
## [1] 46
x <- medicos_de_familia %>% filter(IDADE != "(Vazio)")
x$IDADE <- as.numeric(x$IDADE)
ggplot(x, aes(x=IDADE, y=INSCRITOS)) +
geom_point(shape=23) +
geom_smooth()
## `geom_smooth()` using method = 'gam' and formula 'y ~ s(x, bs = "cs")'
Há uma subida no número de utentes até por volta dos 35 anos (início de carreira) e uma descida no final da carreira (a partir dos 64).
É curioso um ligeiro subir a partir dos 61 e que os casos mais extremos de número de utentes por médico se verifique entre os 60 e os 70.
De notar que 46 médicos foram excluídos desta análise por não terem idade registada na base de dados.
avrg_idade <- x %>%
group_by(UF) %>%
summarise(Idade = mean(IDADE,na.rm = TRUE))
avrg_idade_velhos <- avrg_idade %>% arrange(-Idade)
DT::datatable(head(avrg_idade_velhos), rownames = FALSE, options = list(pageLength = 10, scrollX = TRUE))
Há três UF’s com uma média de idades superior à da Idade da Reforma em Portugal… É o caso da UCSP Carvalhosa, da ACES Porto Ocidental, que tem três médicos com 68, 69 e 67 anos.
No polo oposto…
avrg_idade_novos <- avrg_idade %>% arrange(Idade)
DT::datatable(avrg_idade_novos, rownames = FALSE, options = list(pageLength = 10, scrollX = TRUE))
a UCSP Moscavide é a UF mais jovem de Portugal, com uma média de idades de 29 anos. Isto porque só tem uma médica, PAULA MAIA SILVA.
Se considerarmos que a idade da reforma é aos 66 anos…
reformados_66 <- x %>% filter(IDADE > 65)
length(reformados_66$IDADE)
## [1] 302
sum(reformados_66$INSCRITOS)
## [1] 484937
Há 302 médicos de família em Portugal que já atingiram a idade da reforma. Significa isto que, caso todos estes médicos decidam pedir a reforma ao mesmo tempo, há 48.4937 portugueses que ficam sem médico de família.
UF Convenção - Canidelo
é a que tem o valor médio de utentes mais alto - 2211,333 utentes.r}` export(medicos_de_familia,“dados/dados_finais/numero_utentes_medico_de_familia.csv”,“csv”) ```