Grafico ggplot2

library(ggplot2)
library(dplyr)
library(magrittr)
library(tidyr)



rec.cum <- read.table('clipboard', h = TRUE, stringsAsFactors = F)


dados <- rec.cum %>%
  rename(Rastreamento = r3,
         Recrutamento = r25) %>%
  gather(Tipo, Data, Rastreamento, Recrutamento) %>%
  filter(!(Tipo == 'Recrutamento' & r24 == 'Não')) %>%
  group_by(Tipo) %>%
  mutate(Data = as.Date(Data),
         n = 1:n())


minmax <- dados %>%
  summarize(min = min(Data),
            max = max(Data))


ggplot(dados, aes(Data, n, col = Tipo)) +
  geom_point(aes(shape = Tipo), size = 4) +
  geom_line(linetype = 'dashed', size = 1) + 
  labs(x = '', y = 'Número de pacientes rastreados/recrutados') +
  theme_bw() + theme(legend.position = 'top') + 
  annotate("text", x = as.Date('2014-07-01'), y = 13, 
           label = paste("Primeiro recrutado: ", 
                         filter(minmax, Tipo == 'Recrutamento')$min,
                         "\nÚltimo recrutado: ",
                         filter(minmax, Tipo == 'Recrutamento')$max)) +
  annotate("text", x = as.Date('2015-01-01'), y = 7, 
           label = paste("Primeiro rastreado: ", 
                         filter(minmax, Tipo == 'Rastreamento')$min,
                         "\nÚltimo rastreado: ",
                         filter(minmax, Tipo == 'Rastreamento')$max))