SHARE
TWEET

Untitled

a guest Jun 20th, 2019 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. base<- raster("test.tif")
  2. plot(base)
  3.      
  4. breakpoints<-c(0,5,10,15,20,25)
  5. plot(base, col=terrain.colors(6), breaks=breakpoints)
  6.      
  7. plot(base, col=colorRampPalette(c("red", "orange", "blue"))(6), breaks=breakpoints)
  8.      
  9. breakpoints<-c(0,5,10,15,20,25,50)
  10. plot(base, col=colorRampPalette(c("red", "orange", "blue"))(7), breaks=breakpoints)
  11.      
  12. breakpoints<-c(0,5,10,15,20,25,50)
  13. colors<-c("red", "orange", "blue","green","yellow","cyan","magenta")
  14. plot(base, col=colors, breaks=breakpoints)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top