data(PalateData)
res <- levelplot(PalateData[, c(1,5,9,2:4,6:8)], 
                 channel="G", group="probe.type", 
                 subset=c("MMU miRNAs", "Other miRNAs", "Control", "Empty"), 
                 scales = list(rot=c(45, 45))) 
print(res)
Run the code above in your browser using DataLab