Quantitative thoughts

Nedarbas Lietuvoje

February 26, 2010 at 17:19 · Filed under LT, R-language

Šiuo įrašu noriu pademonstruoti R-Language galimybes – kaip panaudojant įvairias duomenų bazes galima sugeneruoti gražius grafikus, kurie turėtų padėti analitikams.

R-Language kodas:

#Lietuvos žemėlapį parsisiunčiam iš čia: http://gadm.org/data/rda/LTU_adm1.RData
#statistinius duomenis iš čia: http://db1.stat.gov.lt/statbank/default.asp?w=1274</code>
 
load(file='LTU_adm1.RData')
tmp&lt;-read.table(file='nedarbas.apskr.csv',sep=';')
nasa.factor&lt;-as.factor(as.numeric(cut(tmp$V2, c(0,9,10,11,12))))
 
levels(nasa.factor)&lt;- c("&lt;9%", "9-10%", "10-11%","11-12")
gadm$col_no&lt;-nasa.factor
 
myPalette&lt;-brewer.pal(4,"Purples")
jpeg(file='nedarbas.Lietuvoje.jpg',width=500)
spplot(gadm, "col_no", col=grey(.9), col.regions=myPalette,main='Nedarbas Lietuvoje')
dev.off()