data(PalateData)
res <- densityplot(PalateData, channel="G", group="probe.type", 
                   subset = c("Other miRNAs",   "MMU miRNAs", "Control"), 
                   col=rep(1:3, each=3), lty=rep(1:3, 3), 
                   key = list(lines=list(col=rep(1:3, each=3), lty=rep(1:3, 3)), 
                     columns=3))
print(res)
Run the code above in your browser using DataLab