# NOT RUN {
library(ggplot2)
library(dplyr)
nibabynames %>%
filter(name == "Joseph") %>%
ggplot(aes(x = year, y = n)) +
geom_line() +
labs(
title = "Popularity of the name `Joseph` in Northern Ireland",
x = "Year", y = "Number of babies"
)
# }
Run the code above in your browser using DataLab