Rotate the initial matrix => (0;0) on start top left, instead of bottom right
mat1 <- t(shuffMatrix)[,nrow(shuffMatrix):1]
Then plot the rotated matrix with image
image(log10(mat1), main=paste0("My title"), col=colorRampPalette(c('red','white','blue'))(12))