Displaying 1 result from an estimated 1 matches for "sortmergeshare2012".
2013 Jun 06
1
Error invalid graphics state using text()
...rary(classInt)
library(sp)
NUTS2<-readShapePoly("xxx.shp")
shareub2012 <- read.csv("xxx.csv", header=TRUE, sep = ";", dec =
",",stringsAsFactors=F)
mergeshareub2012 <- merge(shareub2012, NUTS2, by.x = "Bundesland", by.y =
"NAME" )
sortmergeshare2012 <- mergeshareub2012[order(mergeshareub2012$ID),]
col_no <- as.factor(as.numeric(cut(sortmergeshare2012$x, c(0, .075, .125,
.25, .50))))
levels(col_no) <- c("< 7,5%", "7,5-12,5%", "12,5-25%","> 25%")
sortmergeshare2012$col_no <- col_no
NUTS2$...