R plot grid, heatmapply

 

library(heatmaply)

library(orca)

library(RColorBrewer)

library(colorspace)

n = 256

data = c(rep(1, n/4), rep(2, n/4), rep(3, n/4), rep(4, n/4))

dim(data) = c( 16, 16)

data = t(data)

heatmaply(as.matrix(data), file = "test.png", grid_gap=1, grid_color = "black",

           dendrogram = "none", showticklabels = c(FALSE, FALSE), 

           hide_colorbar = TRUE, width=300, height=350, 

#           colors= colorRampPalette(brewer.pal(3, "RdBu"))(256) 

      colors = rainbow_hcl(4)

)

data = c(rep(1, n/4), rep(2, n/4), rep(3, n/4), rep(4, n/4))

data = c(rep(1, 256) , rep(2,16*5))
data = matrix( data, nrow=16, ncol=21)
data = t(data)
 heatmaply(as.matrix(data), file = "test.png", grid_gap=1, grid_color = "black",
           dendrogram = "none", showticklabels = c(FALSE, FALSE), 
           hide_colorbar = TRUE, 
    #    colors= colorRampPalette(brewer.pal(3, "RdBu"))(256) 
      colors = c("lightyellow", "lightgoldenrod3")
)