ggplot(countries, aes(x = death.rate, y = birth.rate, label = country)) +
  geom_point(size = 3, color = "black") +
  geom_point(size = 0.7, color = "white") +
  geom_text(data = countries[which.min(countries[["birth.rate"]]),], hjust = 1.2)