Displaying 1 result from an estimated 1 matches for "figcorn".
Did you mean:
ficora
2009 Nov 30
1
Plotting color.legend() outside of plot region
...1, cex = 1.2,at=tmp1$x)
## draw legend
#Set colors
Satelite.Palette <- colorRampPalette(c("blue3","cyan","aquamarine","yellow","orange","red"))
mycol<-Satelite.Palette(101)
#Add legend
BL<-unlist(corner.label(x=-1,y=-1,figcorner=FALSE)) #Coordinates for bottom left corner of plot
TR<-unlist(corner.label(x=1,y=1,figcorner=FALSE)) #Coordinates for top right corner of plot
par(xpd=NA) #Plots to the device region (outer margin)
library(plotrix)
col.labels<-seq(0,100,20)
color.legend(TR[1],BL[2],TR[1]...