[R-br] Como fazer esse grafico no ggplot2

[Pedro Emmanuel Alvarenga Americano do Brasil]

Amigos de R,

Essa semana eu decidi que iria aprender a usar o ggplot2. Logo na primeira
tarefa empaquei uns 40 min. Como fazer esse grafico que faço no graphics
com o ggplot2?

> rec.cum
    b2         r3 r24        r25
1    1 2014-04-09 Sim 2014-04-09
10   2 2014-04-15 Não 2014-04-15
12   3 2014-04-16 Sim 2014-04-16
21   4 2014-05-16 Sim 2014-05-16
28   5 2014-05-28 Sim 2014-05-28
35   6 2014-07-29 Sim 2014-07-29
42   7 2014-08-27 Sim 2014-08-27
49   8 2014-10-07 Sim 2014-10-08
55   9 2014-10-22 Sim 2014-10-22
61  10 2014-10-27 Não 2014-10-27
78  11 2014-10-29 Sim 2014-10-29
84  12 2014-11-10 Sim 2014-11-10
89  13 2014-11-10 Sim 2014-11-10
93  14 2014-11-19 Não 2014-11-19
94  15 2014-12-02 Sim 2014-12-02
95  16 2014-12-08 Sim 2014-12-08
99  17 2015-02-25 Sim 2015-02-25
100 18 2015-03-03 Sim 2015-03-03
101 19 2015-03-10 Sim 2015-03-10
102 20 2015-03-17 Sim 2015-03-17

plot.recrut <- function(){
  plot(rec.cum$r3,1:nrow(rec.cum),type='b',xlab='',ylab='Número de
pacientes
rastreados/recrutados',lty=2,col=2,pch=6,cex=1,lwd=3,xlim=c(min(rec.cum$r3,na.rm=T),max(rec.cum$r25,na.rm=T)),axes=F);grid();box();axis(2)
  tmp <- rec.cum[order(rec.cum$r25),]
  tmp <- tmp[which(tmp$r24=='Sim'),]
  lines(tmp$r25,1:nrow(tmp),type='b',lty=3,col=4,pch=2,cex=1,lwd=3)
  rm(tmp)
  axis.Date(1,rec.cum$r3,format='%d') #
  axis.Date(1,rec.cum$r3,format='%b',line=1.5,tick=F)
  axis.Date(1,rec.cum$r3,format='%Y',line=2.5,tick=F)
  legend('bottomrigh',c(paste('Primeiro
rastreado:',min(rec.cum$r3,na.rm=T)),paste('Último
rastreado:',max(rec.cum$r3,na.rm=T))),bty='n')
  legend('topleft',c(paste('Primeiro
recrutado:',min(rec.cum$r25,na.rm=T)),paste('Último
recrutado:',max(rec.cum$r25,na.rm=T))),bty='n')

legend('top',c('Rastreamento','Recrutamento'),lty=c(2,3),col=c(2,4),pch=c(6,2),pt.cex=1.5,lwd=3,bty='n',xpd=T,inset=-.15,horiz=T)
}
plot.recrut()

Abraço forte,

Pedro Brasil
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150331/ec558482/attachment.html>