Home
Portal
Grstats
Latest images
Register
Log inΧαρτης της επικρατειας
2 posters
mp83- Posts : 67
Join date : 2009-11-10
Location : Athens 
Χαρτης της επικρατειας
Sat 19 Dec 2009 - 13:42
Λογικά, καποτε θα το χρειαστει κάποιος, π.χ σε εταιρεια δημοσκοπήσεων (
χα,χα!)
χα,χα!)Συγκρινετε με το R-baselibrary(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))
map("world2", regions=c("Greece"), lwd=0.1, fill=TRUE, col="white")
statlink- Posts : 39
Join date : 2009-11-05
Age : 40
Location : Nottingham
Re: Χαρτης της επικρατειας
Sun 21 Feb 2010 - 19:44
Gamato, super wow
- mp83
- Posts : 67
Join date : 2009-11-10
Location : Athens
Re: Χαρτης της επικρατειας
Sun 21 Feb 2010 - 22:21
Thanx!
- statlink
- Posts : 39
Join date : 2009-11-05
Age : 40
Location : Nottingham
Re: Χαρτης της επικρατειας
Wed 17 Mar 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 )
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 )
Permissions in this forum:
You cannot reply to topics in this forum