ggplot

I have been using ggplot to generate some more graphs for Jim's data. It allows some very interesting graphs.

Code:
> qplot(ctlvirus$WC.488_Int, ctlvirus$S.phase_cells_Nuc_cnt, data=ctlvirus, geom=c("point", "smooth"), 
      method="lm", formula=y~x, color=ctlvirus$FBS, 
      main="Number of S-phase cells Vs pErk staining", 
      xlab="ppErk", ylab="Number of S-phase cells")


Graph: