set.seed(7)
mat <- matrix(runif(100), 10)
rownames(mat) <- LETTERS[1:10]
colnames(mat) <- letters[1:10]
ggheatmap(mat,
filling = FALSE,
theme = theme(
legend.box.spacing = unit(10, "mm"),
plot.margin = margin(t = 15, unit = "mm")
)
) +
geom_tile3d(aes(fill = value, z = value, width = 0.8, height = 0.8)) +
scale_z_continuous(range = c(0.2, 1)) +
coord_cartesian(clip = "off")
Run the code above in your browser using DataLab