# NOT RUN {
library(SangerTools)
library(dplyr)
library(ggplot2)
# Group by Age Band
health_data <- SangerTools::PopHealthData
health_data %>%
dplyr::filter(Smoker == 1) %>%
SangerTools::categorical_col_chart(AgeBand) +
labs(
title = "Smoking Population by Age Band",
subtitle = "Majority of Smokers are Working Aged ",
x = NULL,
y = "Patient Number"
)
# }
Run the code above in your browser using DataLab