I used the code for my raster image, but most of the image covers the same color. Is there any way to divide the color and make the image more attractive? Please, help me to do that.
library(raster)
library(netcdf4)
poc1 <- raster("A20030602019090.L3m_MC_POC_poc_4km.nc")
poc1
poccol <- colorRampPalette(c("lightgreen", "green", "orange", "red", "darkred","yellow","purple", "blue"))
ma.area <- extent(80, 96, 5, 25)
ma.poc1 <- crop(poc1, ma.area)
plot(ma.poc1, zlim=c(10,600), col=poccol(100))
`
The image I got ``