code.R

library('tidyverse')

population <- read_csv('baltimorepop.csv')

ggplot(population,
       aes(x = factor(year),
           y = pop/1000,
           color = city,
           group = city)) +
  geom_line(size = 2) +
  scale_y_continuous(limits = c(200, 1000), 
                     breaks = seq(200, 1000, 100)) +
  labs(x = '',
       y = '',
       title = "DC's population overtook Baltimore's after 2010",
       subtitle = "population in 000s",
       caption = "*2019 figure is an estimate\nSource: U.S. Census Bureau") + 
  theme_minimal() +
  theme(panel.grid.minor.x =  element_blank(),
        panel.grid.minor.y =  element_blank(),
        legend.title = element_blank())

data.csv