zemljevid1
zemljevid1

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

source("lib/uvozi.zemljevid.r", encoding = "UTF-8")
library(ggplot2)
library(dplyr)

# Uvozimo zemljevid.
zemljevid <- uvozi.zemljevid("http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/50m/cultural/ne_50m_admin_0_countries.zip",
                             "ne_50m_admin_0_countries", encoding = "Windows-1252")




# Preuredimo podatke, da jih bomo lahko izrisali na zemljevid.
rownames(tabela4)<-tabela4$Drzava
m <- match(zemljevid$sovereignt, tabela4$Drzava)
zemljevid$Prihodi2014 <- tabela4$Prihodi2014[m]


pretvori.zemljevid <- function(zemljevid) {
  fo <- fortify(zemljevid)
  data <- zemljevid@data
  data$id <- as.character(0:(nrow(data)-1))
  return(inner_join(fo, data, by="id"))
}

zemljevid1 <- pretvori.zemljevid(zemljevid)


zem <- ggplot() + geom_polygon(data = zemljevid1, aes(x=long, y=lat, group=group,
                                                                  fill=m),color = "grey30")

print(zem)


# Izračunamo povprečno velikost družine.
#druzine$povprecje <- apply(druzine[1:4], 1, function(x) sum(x*(1:4))/sum(x))
#min.povprecje <- min(druzine$povprecje, na.rm=TRUE)
#max.povprecje <- max(druzine$povprecje, na.rm=TRUE)

# 3. faza: Izdelava zemljevida

source("lib/uvozi.zemljevid.r", encoding = "UTF-8")
library(ggplot2)
library(dplyr)

# Uvozimo zemljevid.
zemljevid <- uvozi.zemljevid("http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/50m/cultural/ne_50m_admin_0_countries.zip",
                             "ne_50m_admin_0_countries", encoding = "Windows-1252")




# Preuredimo podatke, da jih bomo lahko izrisali na zemljevid.
rownames(tabela4)<-tabela4$Drzava
m <- match(zemljevid$sovereignt, tabela4$Drzava)
zemljevid$Prihodi2014 <- tabela4$Prihodi2014[m]


pretvori.zemljevid <- function(zemljevid) {
  fo <- fortify(zemljevid)
  data <- zemljevid@data
  data$id <- as.character(0:(nrow(data)-1))
  return(inner_join(fo, data, by="id"))
}

zemljevid1 <- pretvori.zemljevid(zemljevid)


zem <- ggplot() + geom_polygon(data = zemljevid1, aes(x=long, y=lat, group=group,
                                                                  fill=zemljevid$Prihodi2014),color = "grey30")


# Izračunamo povprečno velikost družine.
#druzine$povprecje <- apply(druzine[1:4], 1, function(x) sum(x*(1:4))/sum(x))
#min.povprecje <- min(druzine$povprecje, na.rm=TRUE)
#max.povprecje <- max(druzine$povprecje, na.rm=TRUE)
