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