n_col <- 100
n_row <- 90
mat <- matrix(sample(0:10, n_col * n_row, replace = TRUE), n_col, n_row)
plotSbm(mat,
transpose = TRUE,
labels = list(col = "Columns", row = "Rows"),
plotOptions = list(colValue = "blue")
)
Run the code above in your browser using DataLab