aRt #RStats
code used:
col_vec = c("#00ff99", "#ff99ff" ,"#ffcc00", "#0066ff")
aRt::bricks(n_y = 25, colours = col_vec, bg_col = "grey20" )