Dentistas Chile SuperSalud 2010-2019

library(tidyverse)

Year <- c(rep(2010:2019, each = 1))
total <-
  c(9427, 10455 , 12353 , 14749 , 16119 , 18071 , 20108 , 21930 , 23534 , 24530)
odon <- data.frame(Year, total)

odon$Year <- as.factor(odon$Year)

odon %>%    
  ggplot(aes(x = Year, y = total)) +
  geom_point() +
  geom_text(aes(label = total),
            hjust = -.2,
            vjust = 1,
            size = 2.7) +
  labs(title = "Dentistas registrados en Supersalud 2010-2019",
    subtitle = "http://www.supersalud.gob.cl/documentacion/666/w3-propertyvalue-3750.html",
    y = "Total",
    x = "Año" )