53 lines
3.1 KiB
R
53 lines
3.1 KiB
R
|
|
#--------------------------------- UPRAVNE ENOTE ----------------------------------#
|
|
# Dodamo imena in labele za upravne enote
|
|
# Poro\u010Dila bodo narejena glede na upravno enoto
|
|
# Ker se bo koda poganjala na 1KA strezniku je potrebno dodani enkodinge za
|
|
# pravilni izpis ČŠŽ znakov.
|
|
|
|
# Imena upravnih enot
|
|
enote <- c("Ajdov\u0161\u010Dina", "Bre\u017Eice", "Celje", "Cerknica", "\u010Crnomelj", "Dom\u017Eale",
|
|
"Dravograd", "Gornja Radgona", "Grosuplje", "Hrastnik", "Idrija",
|
|
"Ilirska Bistrica", "Izola", "Jesenice", "Kamnik", "Ko\u010Devje",
|
|
"Koper", "Kranj", "Kr\u0161ko", "La\u0161ko", "Lenart", "Lendava",
|
|
"Litija", "Ljubljana", "Ljutomer","Logatec", "Maribor",
|
|
"Metlika", "Mozirje", "Murska Sobota", "Nova Gorica",
|
|
"Novo mesto", "Ormo\u017E", "Pesnica", "Piran", "Postojna",
|
|
"Ptuj", "Radlje ob Dravi", "Radovljica", "Ravne na Koro\u0161kem",
|
|
"Ribnica", "Ru\u0161e", "Sevnica", "Se\u017Eana", "Slovenj Gradec",
|
|
"Slovenska Bistrica", "Slovenske Konjice", "\u0160entjur pri Celju",
|
|
"\u0160kofja Loka", "\u0160marje pri Jel\u0161ah", "Tolmin", "Trbovlje",
|
|
"Trebnje", "Tr\u017Ei\u010D", "Velenje", "Vrhnika", "Zagorje ob Savi",
|
|
"\u017Dalec", "Ljubljana-Be\u017Eigrad", "Ljubljana-Center", "Ljubljana-Moste Polje",
|
|
"Ljubljana-SUNZ", "Ljubljana-\u0160i\u0161ka", "Ljubljana-Vi\u010D Rudnik")
|
|
|
|
# Strežnik 1KA za pravilen zapis šumnikov zahteva encoding znake, zato bomo naredili
|
|
# še eno spremenljivko, kjer bomo zapisali imena UE brez šumnikov z namenom vstavitve
|
|
# logotipa v porocilo
|
|
logo <- c("Ajdovscina", "Brezice", "Celje", "Cerknica", "Crnomelj", "Domzale",
|
|
"Dravograd", "Gornja Radgona", "Grosuplje", "Hrastnik", "Idrija",
|
|
"Ilirska Bistrica", "Izola", "Jesenice", "Kamnik", "Kocevje",
|
|
"Koper", "Kranj", "Krsko", "Lasko", "Lenart", "Lendava",
|
|
"Litija", "Ljubljana", "Ljutomer","Logatec", "Maribor",
|
|
"Metlika", "Mozirje", "Murska Sobota", "Nova Gorica",
|
|
"Novo mesto", "Ormoz", "Pesnica", "Piran", "Postojna",
|
|
"Ptuj", "Radlje ob Dravi", "Radovljica", "Ravne na Koroskem",
|
|
"Ribnica", "Ruse", "Sevnica", "Se\u017Eana", "Slovenj Gradec",
|
|
"Slovenska Bistrica", "Slovenske Konjice", "Sentjur pri Celju",
|
|
"Skofja Loka", "Smarje pri Jelsah", "Tolmin", "Trbovlje",
|
|
"Trebnje", "Trzic", "Velenje", "Vrhnika", "Zagorje ob Savi",
|
|
"Zalec", "Ljubljana-Bezigrad", "Ljubljana-Center", "Ljubljana-Moste Polje",
|
|
"Ljubljana-SUNZ", "Ljubljana-Siska", "Ljubljana-Vic Rudnik")
|
|
|
|
|
|
|
|
# Zaporedna številka upravne enote; 64 upravnih enot
|
|
zap.st <- 1:64
|
|
|
|
# Create data frame so we will merge and add UPRAVNE ENOTE TO DATA
|
|
# Ker bomo delali poro\u010Dila za posamenzo enoto in za vse enote potrebujemo
|
|
# to. Ker bomo na podlagi tega delali podmno\u017Eice in za jih ra\u010Dunali (npr. mean)
|
|
zap.en <- data.frame(enote, zap.st, logo)
|
|
# Merge podatkovne baze in podatkov o UE
|
|
mju <- merge(mju, zap.en, by.x = "skupina", by.y = "zap.st", all.x = TRUE, sort = FALSE)
|
|
#------------------------------- //UPRAVNE ENOTE// --------------------------------# |