library(tmap)
## Import features_raster
cost_raster <- get_cost_raster()
## Plot with tmap
tm_shape(cost_raster) +
tm_raster(col.legend = tm_legend(title = "cost",
position = c("right", "top")))
Run the code above in your browser using DataLab