Grstats Forum

Χαρτης της επικρατειας

Πήγαινε κάτω

Χαρτης της επικρατειας

Δημοσίευση από mp83 Την / Το Σαβ 19 Δεκ 2009 - 13:42

Λογικά, καποτε θα το χρειαστει κάποιος, π.χ σε εταιρεια δημοσκοπήσεων (Sleep Sleep χα,χα!)

library(sp)
library(RColorBrewer)

tt <- url("http://gadm.org/data/rda/GRC_adm2.RData") #τα δεδομενα για να χαραξουμε νομούς
print(load(tt))
close(tt)
ss=length(levels(gadm$NAME_2))
spplot(gadm, "NAME_2", main="Hellas",
colorkey = FALSE, lwd=.5, col="grey",col.regions=rainbow(ss))
Συγκρινετε με το R-base
map("world2", regions=c("Greece"), lwd=0.1, fill=TRUE, col="white")
avatar
mp83

Posts : 67
Join date : 10/11/2009
Location : Athens

http://statsravingmad.com/blog

Επιστροφή στην κορυφή Πήγαινε κάτω

Απ: Χαρτης της επικρατειας

Δημοσίευση από statlink Την / Το Κυρ 21 Φεβ 2010 - 19:44

Gamato, super wow

statlink

Posts : 39
Join date : 05/11/2009
Age : 34
Location : Nottingham

http://statlink.tripod.com

Επιστροφή στην κορυφή Πήγαινε κάτω

Απ: Χαρτης της επικρατειας

Δημοσίευση από mp83 Την / Το Κυρ 21 Φεβ 2010 - 22:21

Thanx!
avatar
mp83

Posts : 67
Join date : 10/11/2009
Location : Athens

http://statsravingmad.com/blog

Επιστροφή στην κορυφή Πήγαινε κάτω

Απ: Χαρτης της επικρατειας

Δημοσίευση από statlink Την / Το Τετ 17 Μαρ 2010 - 15:34

exw kai afto apo ti vivliothiki mesa tis R
loc <- cmdscale(eurodist)
x <- loc[,1]
y <- -loc[,2]
plot(x, y, type="n", xlab="", ylab="", main="cmdscale(eurodist)")
text(x, y, rownames(loc), cex=0.8 )

statlink

Posts : 39
Join date : 05/11/2009
Age : 34
Location : Nottingham

http://statlink.tripod.com

Επιστροφή στην κορυφή Πήγαινε κάτω

Επιστροφή στην κορυφή


 
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης