In the following plot, how can I display the latest values of pop
?
library(tidyverse)
library(gapminder)
# toy data
df <- gapminder %>%
filter(country %in% c("Portugal", "Spain", "Japan", "Singapore"))
# plot
df %>%
ggplot(aes(x = year, y = pop, color = country)) +
geom_line() +
geom_point() +
facet_wrap(~ continent)