My dataset have 200mb, is impossible I provide it for you. But, the script I used in this process was that:
library(lattice)
library(raster)
library(rasterVis)
library(spaMM)
palette <- spaMM.colors(n = 100, redshift = 1)
levelplot(kmeans, margin=FALSE,main="Canopy Hight Model", cuts=length(palette)-1,col.regions=palette, xscale.components=xscale.raster.subticks,yscale.components=yscale.raster.subticks,scales=list(x=list(rot=90, cex=0.8)))
I hope this helps.