terrain_10 <- color(terrain.colors(10))
terrain_10[1:4]
plot(terrain_10)
plot(terrain_10, labels = TRUE)
grey_10 <- color(gray.colors(10, start = 0, end = 1))
grey_10
plot(grey_10, labels = TRUE)
Run the code above in your browser using DataLab