Pourriez vous m'expliquer pourquoi ce code :
Code : Tout sélectionner
nclr <- 4
CodeDep <- c(75,77,78,91,92,93,94,95)
nombre<- c(3219, 5425, 473, 2329, 1044, 3850, 12302, 638)
Freq <- c(11.0, 18.5, 1.6, 8.0, 3.6, 13.1, 42.0, 2.2)
tabl2015 <- cbind.data.frame(CodeDep,nombre,Freq)
class2015 <- classIntervals(tabl2015$Freq, nclr, style="equal", digits = 1)
colcode2015 <- findColours(class2015, palette(nclr))
plot(departements,col=colcode2015, border="#CCCCCC",lwd=.7, main=paste("Test") )
legend("bottomright",legend= names(attr(colcode2015,"table") ), fill=attr(colcode2015, "palette"), cex=0.6, bty="n")
ne colore pas le bon département dans la bonne couleur ?
Merci