CummeRBund如何在散点图中添加颜色

Question

如何在散点图中添加颜色？

library(cummeRbund)
cuff<-readCufflinks()

s<-csScatter(genes(cuff), smooth=T)