Posodobljen uvoz zemljevida
Posodobljen uvoz zemljevida

UrosKrampelj/APPR-2015-16
# 3. faza: Izdelava zemljevida

# Uvozimo zemljevid.


# 3. faza: Izdelava zemljevida
# Uvozimo funkcijo za pobiranje in uvoz zemljevida.
source("lib/uvozi.zemljevid.r")
# Uvozimo zemljevid.
cat("Uvazam zemljevid sveta...\n")
svet <- uvozi.zemljevid("http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/110m/cultural/ne_110m_admin_0_map_units.zip",
                        "svet", "ne_110m_admin_0_map_units.shp", mapa = "Zemljevid",
                        encoding = "Windows-1252")
svet1<- svet[svet$continent %in% c("Europe", "Africa","South America","Asia","North America"),]

drzave <- table(IGRALCI$Nationality)
imenadrzav<-names(drzave)
stevilo <- unique(drzave)
stevilo <- stevilo[order(stevilo)]
barve <- topo.colors(length(stevilo))[match(drzave, stevilo)]
names(barve) <- names(drzave)
barve.zemljevid <- barve[as.character(svet1$name_long)]
barve.zemljevid[is.na(barve.zemljevid)] <- "white"

mojsvet <- svet1[svet1$name_long %in% imenadrzav,]
koordinate <- coordinates(mojsvet)
imena.drzav <- as.character(mojsvet$name_long)



# 3. faza: Izdelava zemljevida

# Uvozimo zemljevid.


# 3. faza: Izdelava zemljevida
# Uvozimo funkcijo za pobiranje in uvoz zemljevida.
source("lib/uvozi.zemljevid.r")
# Uvozimo zemljevid.
cat("Uvazam zemljevid sveta...\n")
svet <- uvozi.zemljevid("http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/110m/cultural/ne_110m_admin_0_map_units.zip",
                        "svet", "ne_110m_admin_0_map_units.shp", mapa = "Zemljevid",
                        encoding = "Windows-1252")
svet1<- svet[svet$continent %in% c("Europe", "Africa","South America","Asia","North America"),]

drzave <- table(IGRALCI$Nationality)


