corbetti <- system.file("extdata/corbetti.png",
package = "recolorize")
corbetti_recolor <- recolorize(corbetti, method = "hist",
bins = 2, plotting = FALSE)
# unscaled color palette
plot(corbetti_recolor)
# scaled color palette
plot(corbetti_recolor, sizes = TRUE)
Run the code above in your browser using DataLab