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

Question

Repita o exercício anterior, porém use facetas para mostrar as diferentes densidades de mortalidade entre os gêneros masculino e feminino. Dentro da função facet_wrap, use argumento nrow = 2 para empilhar os painéis verticalmente.

Solution

library(ggplot2)
library(stringr)

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

p <- ggplot(df_sus , aes(x = age)) + 
  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() + 
  facet_wrap(~SEXO, nrow = 2)

p