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