In msperlin/vdr: Data and Functions for Book Visualizacao de Dados com o R

Question

Considerando novamente os dados de mortalidade do SUS, crie um gráfico de densidade de distribuição, porém separe as linhas do gráfico de acordo com o gênero (Masculino/Feminino). Isto é, queremos uma linha de densidade para o sexo masculino, e outra para o feminino. Dica: remova os casos de SEXO = NA (Not Available) antes de criar o gráfico.

Solution

library(ggplot2)
library(stringr)

df_sus <- vdr::data_import("Exercises-sus-mortality-data.csv")

p <- ggplot(df_sus, aes(x = age, color = SEXO)) + 
  geom_density() + 
  labs(
    title = str_glue("Densidade de Mortalidade para o RS"),
    subtitle = str_glue("Dados para os anos de 2019 e 2020"),
    caption = "Dados do SUS (importado com microdatasus)",
    x = "Idade de Morte",
    y = "Densidade"
  ) + 
  theme_light()

p