Annotation in #R #ggplot

sample-ggplot.R

# Source: http://sharpsightlabs.com/blog/simple-annotate-plot-ggplot2/

ggplot(df, aes(x = Año, y = Población, group = 1)) +
  geom_line(colour = "red", size = 1.5) +
  geom_point(colour = "red", size = 4, shape = 21, fill = "white") +
  geom_text(aes(label = Año), size = 3, hjust = 0.5, vjust = 3, position = "stack") +
  scale_y_continuous(labels = function(x) format(x, big.mark = ".", scientific = FALSE)) +
  ggtitle("Evolución de población en Detroit") +
  labs(x = "Año", y = "Población") +
  geom_vline(xintercept = 1973, linetype = "dashed") +
  annotate("text", label = "Crisis petróleo", x = 1975, y = 75000, color = "black")