## Not run:
# data(gs_kmeans)
#
# # Draw default version with plot_boxplot
# plot(gs_kmeans, components = 1:3, classes = "Tissue")
#
# # Define alternative where one boxplot summarises all values in one class
# plot_classes = function(data, fontsize, par){
# qplot(x = data[, par$classes], y = data$y, geom = "boxplot",
# fill = data[, par$classes]) + theme_bw()
# }
#
# plot(gs_kmeans, components = 1:3, panel_plot = plot_classes, classes = "Tissue")
#
#
# # Flip the boxplots to make them more comparable
# plot_classes = function(data, fontsize, par){
# qplot(x = data[, par$classes], y = data$y, geom = "boxplot",
# fill = data[, par$classes]) + coord_flip() + theme_bw()
# }
#
# plot(gs_kmeans, components = 1:3, panel_plot = plot_classes, classes = "Tissue")
# ## End(Not run)
Run the code above in your browser using DataLab