<div dir="ltr"><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">Amigos de R,</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)">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?</div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><br></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><div class="gmail_default">> rec.cum</div><div class="gmail_default">    b2         r3 r24        r25</div><div class="gmail_default">1    1 2014-04-09 Sim 2014-04-09</div><div class="gmail_default">10   2 2014-04-15 Não 2014-04-15</div><div class="gmail_default">12   3 2014-04-16 Sim 2014-04-16</div><div class="gmail_default">21   4 2014-05-16 Sim 2014-05-16</div><div class="gmail_default">28   5 2014-05-28 Sim 2014-05-28</div><div class="gmail_default">35   6 2014-07-29 Sim 2014-07-29</div><div class="gmail_default">42   7 2014-08-27 Sim 2014-08-27</div><div class="gmail_default">49   8 2014-10-07 Sim 2014-10-08</div><div class="gmail_default">55   9 2014-10-22 Sim 2014-10-22</div><div class="gmail_default">61  10 2014-10-27 Não 2014-10-27</div><div class="gmail_default">78  11 2014-10-29 Sim 2014-10-29</div><div class="gmail_default">84  12 2014-11-10 Sim 2014-11-10</div><div class="gmail_default">89  13 2014-11-10 Sim 2014-11-10</div><div class="gmail_default">93  14 2014-11-19 Não 2014-11-19</div><div class="gmail_default">94  15 2014-12-02 Sim 2014-12-02</div><div class="gmail_default">95  16 2014-12-08 Sim 2014-12-08</div><div class="gmail_default">99  17 2015-02-25 Sim 2015-02-25</div><div class="gmail_default">100 18 2015-03-03 Sim 2015-03-03</div><div class="gmail_default">101 19 2015-03-10 Sim 2015-03-10</div><div class="gmail_default">102 20 2015-03-17 Sim 2015-03-17</div><div class="gmail_default"><br></div></div><div class="gmail_default" style="font-family:'courier new',monospace;color:rgb(0,0,102)"><div class="gmail_default">plot.recrut <- function(){</div><div class="gmail_default">  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)</div><div class="gmail_default">  tmp <- rec.cum[order(rec.cum$r25),]</div><div class="gmail_default">  tmp <- tmp[which(tmp$r24=='Sim'),]</div><div class="gmail_default">  lines(tmp$r25,1:nrow(tmp),type='b',lty=3,col=4,pch=2,cex=1,lwd=3)</div><div class="gmail_default">  rm(tmp)</div><div class="gmail_default">  axis.Date(1,rec.cum$r3,format='%d') #</div><div class="gmail_default">  axis.Date(1,rec.cum$r3,format='%b',line=1.5,tick=F)</div><div class="gmail_default">  axis.Date(1,rec.cum$r3,format='%Y',line=2.5,tick=F)</div><div class="gmail_default">  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')</div><div class="gmail_default">  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')</div><div class="gmail_default">  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)</div><div class="gmail_default">}</div><div class="gmail_default">plot.recrut()</div><div class="gmail_default"><br></div><div class="gmail_default">Abraço forte,</div><div class="gmail_default"><br></div><div class="gmail_default">Pedro Brasil<br></div></div>
</div>