R/segmentLegend.R

In plotGoogleMaps: Plot Spatial or Spatio-Temporal Data Over Google Maps

segmentLegend <-
function (attribute,
                        colPalette=rainbow(length(attribute)),
                        border=NA,
                        legendName="Legend",
                        bgc='white',
                        temp=FALSE) {


png(filename =ifelse(temp,paste(tempdir(),'/',legendName,'.png',sep=""),paste(legendName,'.png',sep="") ), width=220,
       height=220,units = "px",pointsize = 10, bg="white")
       
 par(mar=c(2.1,3.1,2.1,3.1), bg=bgc)


	niv  <- attribute
  cols <-as.character(substr(colPalette,1,7))

                  x<-rep(1,length(niv))

            pie(  x,
                  labels=niv,
                  clockwise=FALSE,
                  radius=1,
                  col= cols,
                  bg=bgc,
                  init.angle=90)

                graph1 <- dev.cur()
                dev.off(graph1)



    }