x <- matrix(c(6,9,3,30,13,2,15,20), nrow = 4, ncol=2, byrow=FALSE,
dimnames = list(c("group1", "group2", "group3", "group4"),
c("value1", "value2")))
chartPlots(x, chartType='all', specifiedCol = "value2", top = 3)
Run the code above in your browser using DataLab