#---------------------------------------------------------------------------------------------------------------.
# REGISTRSKI POPIS 2011 
# Podatkovna datoteka STANOVANJE
#
# R sintaksa doda labele na ravni spremenljivk in vrednosti spremenljivk.
# Sintaksa deluje z mikropodatki Registrskega popisa 2011, ki jih je pripravil SURS v
# aprilu 2014. Vaša podatkovna datoteka ima lahko manjši nabor spremenljivk.
#
# Verzija 1, december 2014
# R 3.1.2
#
# Arhiv družboslovnih podatkov, Univerza v Ljubljani
# Sebastian Kočar
# http://www.adp.fdv.uni-lj.si/
# Kontakt: arhiv.podatkov@fdv.uni-lj.si
#
# Ta R koda je zaščitena pod licenco Creative Commons
#---------------------------------------------------------------------------------------------------------------.
#--- KONFIGURACIJSKI DEL --- ZAčETEK ---
#
# Naslednja koda mora vsebovati celotno pot do datoteke in ime .txt datoteke,
# ki bo uporabljena v naslednjih korakih obdelave (npr. 'C:/Popis2011_v1.txt')
# ter .dta datoteke, ki jo shranite na koncu (npr. 'C:/Popis2011_labele.txt')
# 
# Spremenite TXT_LOKACIJA v spodnjem ukazu v mapo na vašem 
# računalniku ter dodajte ime vaše datoteke.
# Spremenite TXT_LOKACIJA_SHRANI v spodnjem ukazu v mapo na vašem 
# računalniku ter dodajte ime vaše datoteke.

#--- KONFIGURACIJSKI DEL --- KONEC ---
#---------------------------------------------------------------------------------------------------------------.

#--------------------------------------Začetek obdelave podatkov------------------------------------------------.

#--- uporabimo datoteko

data<-read.delim("TXT_LOKACIJA", header = TRUE, sep = "\t", dec=",")

#--- dodamo labele za spremenljivke in za vrednosti spremenljivk

require(Hmisc)

label(data$DST_SID) <- "Enolicni kljuc, identifikator dela stavbe iz REN"
label(data$ID_LEGA) <- "Lega dela v vecstanovanjski stavbi; 1 - klet, 2 - pritlicje, 3 - nadstropje, 4 - mansarda, 5 - drugo"
label(data$ID_DUPLEX) <- "Ali je stanovanje duplex; 1 - Da, 2 - Ne"
label(data$ID_KUHINJA) <- "Kuhinja; 1 - Kuhinja je, 2 - Brez kuhinje"
label(data$ID_KOPALNICA) <- "Kopalnica; 1 - Namešcena  kad ali prha v stanovanjski enoti, 2 - Brez namešcene kadi ali prhe v stanovanjski enoti, 3 - Ni navedeno"
label(data$ID_STRANISCE) <- "Stranišce; 1 - Stranišce na izplakovanje v stanovanjski enoti, 2 - Brez stranišca na izplakovanje v stanovanjski enoti, 3 - Ni navedeno"
label(data$ST_SOB) <- "Število sob (brez kuhinje)"
label(data$UPOR_POV_STAN) <- "Uporabna površina stanovanja"
label(data$NETO_TLORIS_POV_DST) <- "Neto tlorisna površina dela stavbe"
label(data$ID_POCIT_RABA) <- "Pocitniška raba stanovanjskega dela; 1 - Sezonska ali sekundarna raba stanovanja, 2 - Ni sezonske ali sekundarne rabe stanovanja, 3 - Prazno stanovanje"
label(data$ID_PRIJAVA_DEJAV) <- "Ali je v delu stavbe prijavljena dejavnosti; 1 - Da, 2 - Ne"
label(data$ST_SOB_DEJAVNOST) <- "Število sob za opravljanje dejavnosti"
label(data$POVR_SOB_DEJAVNOST) <- "Površina namenjena izkljucno za opravljanje dejavnosti"
label(data$ID_VR_NAJEMA) <- "Vrsta najema; 1 - stanovanje ni v najemu, 2 - neprofitno najemno stanovanje, 3 - tržno najemno stanovanje, 4 - službeno najemno stanovanje, 5 - namensko najemno stanovanje"
label(data$DEJANSKA_RABA_CCSI) <- "Dejanska raba dela stavbe - GLEJ ŠIFRANT CC_SI_REN"
label(data$STAT_SAMO_ZA_DEJAVNOST) <- "Ali je stanovanje samo za dejavnost =1 - GLEJ ŠIFRANT CC_SI_REN; 0 - Ne, 1 - Da"
label(data$SKUPIN_ENOTA) <- "Indikator ali gre za posebno bivalno enoto; 0 - NE, 1 - DA"
label(data$OBC) <- "Obcina - GLEJ ŠIFRANT RPE_POPIS_2011"
label(data$NAS) <- "Naselje - GLEJ ŠIFRANT RPE_POPIS_2011"
label(data$REG) <- "Regija - GLEJ ŠIFRANT RPE_POPIS_2011"
label(data$TIP_NASELJA) <- "Indikator mestno /nemestno naselje; DN - Nemestno naselje, M - Mestno naselje, NMO - Naselje mestnega obmocja"
label(data$ST_PREB_POPIS) <- "Število prebivalcev v stanovanju"
label(data$ST_GOSP_POPIS) <- "Število gospodinjstev v stanovanju"
label(data$HS_MID_NAST) <- "Tip nastanitve (posebni naslovi); 1 - Center za socialno delo brez obicajnih stanovanj, 2 - Dijaški in študentski dom, 3 - Dom podiplomcev, 4 - Posebna bivalna skupnost, 5 - Vzgojno izobraževalni zavod, 6 - Zapor, 7 - Samostan / verska skupnost, 8 - Dom za starostnike, 9 - Dom za starostnike in zasebna gospodinjstva, 10 - Študentski dom in samostan, 11 - Dom za starostnike, samostan in zasebna gospodinjstva, 12 - Dom za starostnike in zasebna gospodinjstva, 13 - Samostan, študentski dom in zasebna gospodinjstva, 14 - Samski dom v nestanovanjski stavbi, 15 - Samski dom v stavbi za kratkotrajno nastanitev, 16 - Samski dom v stavbi za posebne družbene skupine, 17 - Samski dom v stanovanjski stavbi z enim stanovanjem, 18 - Samski dom v stavbi z vec stanovanji, 19 - Študentski dom s samskim domom in stanovanji, 20 - Samostan, študentski dom in zasebna gospodinjstva, 21 - Posebna bivalna skupnosti z zasebnimi gospodinjstvi, 22 - Romsko naselje, 23 - Center za socialno delo z obicajnimi stanovanji, 24 - Posebni nastanitveni objekti, 25 - Študentska nastanitev v stavbi z obicajnimi stanovanji, 26 - Dijaški in študentski dom brez skupinskega gospodinjstva, 27 - Samostan, župnišce, druga verska ustanova brez skupinskega, 28 - Socialni zavod, bolnica, posebna bivalna skupnost brez skupi, 29 - Hotel, lovski dom, planinska koca ipd., 30 - Del stavbe je skupinska nastanitev, 31 - Skupinsko stanovanje z manj kot 7 prebivalci"
label(data$TIP_STAN_ENOTE) <- "Tip stanovanjske enote; 1 - Obicajno stanovanje, 2 - Skupinsko stanovanje, 3 - Druga bivalna enota, 4 - Bivalna enota za posebna gospodinjstva, 5 - Neznano, 6 - Ostali deli nestanovanjski del stavbe"
label(data$NASEL_OBIC_STAN) <- "Naseljenost obicajnega stanovanja; 0 - ni obicajno stanovanje, 1 - naseljeno obicajno stanovanje, 2 - stanovanje za sezonsko in sekundarno rabo, 3 - prazno stanovanje"
label(data$TIP_LASTNISTVA) <- "Tip lastništva; 1 - Lastniška stanovanja, 2 - Stanovanja v zadružnem lastništvu, 3 - Najeta stanovanja, 4 - Stanovanja z drugimi tipi lastništva, 5 - Ni navedeno, 6 - Se ne uporablja"
label(data$UPOR_POVR_OSEBA) <- "Uporabna površina na osebo"
label(data$ST_STANOVALCEV_RAZ) <- "Število stanovalcev; 1 - 1 oseba, 2 - 2 osebi, 3 - 3 osebe, 4 - 4 osebe, 5 - 5 oseb, 6 - 6 oseb, 7 - 7 oseb, 8 - 8 oseb, 9 - 9 oseb, 10 - 10 oseb, 11 - 11 in vec oseb, Sysmiss - "
label(data$UPOR_POVR_RAZ) <- "Uporabna površina; 1 - Manj kot 30 m2, 2 - 30 - manj kot 40 m2, 3 - 40 - manj kot 50 m2, 4 - 50 - manj kot 60 m2, 5 - 60 - manj kot 80 m2, 6 - 80 - manj kot 100 m2, 7 - 100 - manj kot 120 m2, 8 - 120 - manj kot 150 m2, 9 - 150 m2 in vec, 10 - ni navedeno"
label(data$GOSTOTA_RAZ) <- "Standard gostote; 1 - manj kot 10 m2, 2 - 10 - manj kot 15 m2, 3 - 15 - manj kot 20 m2, 4 - 20 - manj kot 30 m2, 5 - 30 - manj kot 40 m2, 6 - 40 - manj kot 60 m2, 7 - 60 - manj kot 80 m2, 8 - 80  m2  in vec, 9 - Ni navedeno"
label(data$LETO_ZGR_EU) <- "Leto zgraditve -razredi; 1 - Pred letom 1919, 2 - 1919 - 1945, 3 - 1946 - 1960, 4 - 1961 - 1970, 5 - 1971 - 1980, 6 - 1981 - 1990, 7 - 1991 - 2000, 8 - 2001 - 2005, 9 - 2006 in pozneje, 10 - Ni navedeno"
label(data$ST_SOB_RAZ_EU) <- "Število sob  (vkljucno s kuhinjo); 1 - 1 soba, 2 - 2 sobi, 3 - 3 sobe, 4 - 4 sobe, 5 - 5 sob, 6 - 6 sob, 7 - 7 sob, 8 - 8 sob, 9 - 9 sob ali vec, 10 - Ni navedeno"
label(data$ST_SOB_RAZ_SLO) <- "Število sob (brez kuhinje); 1 - 1 soba, 2 - 2 sobi, 3 - 3 sobe, 4 - 4 sobe, 5 - 5 sob, 6 - 6 sob, 7 - 7 sob, 8 - 8 sob, 9 - 9 sob ali vec, 10 - Ni navedeno"
label(data$ST_SOB_BREZDEJ_EU) <- "Število sob po EU standardu - vkljucno s  kuhinjo in brez sob za dejavnost"
label(data$ST_SOB_BREZDEJ_EU_OSEBA) <- "Število sob na osebo po EU standardu - vkljucno s  kuhinjo in brez sob za dejavnost"
label(data$GOSTOTA_RAZ_SOB_EU) <- "Razred gostote glede na število sob na osebo po EU standardu - vkljucno s kuhinjo in brez sob za dejavnost; 1 - Manj kot 0,5 sobe na stanovalca, 2 - 0,5  - manj kot 1,0 sobe na stanovalca, 3 - 1,0  -  manj kot 1,25 sobe na stanovalca, 4 - 1,25  -  manj kot 1,5 sobe na stanovalca, 5 - 1,5  -  manj kot 2,0 sobe na stanovalca, 6 - 2,0  -  manj kot 2,5 sobe na stanovalca, 7 - 2,5  -  manj kot 3,0 sobe na stanovalca, 8 - 3,0 in vec sobe na stanovalca, 9 - Ni navedeno, Sysmiss - "
label(data$VODA_VSTAN) <- "Oskrba z vodo v stanovanjski enoti; 1 - Oskrba z vodo  v stanovanjski enoti, 2 - Brez oskrbe z vodo v stanovanjski enoti, 3 - Ni navedeno"
label(data$LAST1) <- "Lastništvo stanovanja glede na vrsto lastnika; 1 - zasebna last fizicnih oseb, 2 - last javnega sektorja, 3 - drugo, 9 - neznano"
label(data$LAST2) <- "Lastništvo stanovanja glede na sektor, ki mu pripada lastnik; 1 - last zasebnega sektorja, 2 - last javnega sektorja, 3 - drugo, 9 - neznano"
label(data$ST_GOSP_LAST) <- "Število gospodinjstev v stanovanju, ki so lastniki"
label(data$UPOR_POV_STAN_BREZDEJ) <- "Uporabna površina brez površine za dejavnost"
label(data$UPOR_POV_STAN_BREZDEJ_RAZ) <- "Uporabna površina brez površine za dejavnost - razredi; 1 - Manj kot 30 m2, 2 - 30 - manj kot 40 m2, 3 - 40 - manj kot 50 m2, 4 - 50 - manj kot 60 m2, 5 - 60 - manj kot 80 m2, 6 - 80 - manj kot 100 m2, 7 - 100 - manj kot 120 m2, 8 - 120 - manj kot 150 m2, 9 - 150 m2 in vec, 10 - ni navedeno"
label(data$ST_SOB_BREZDEJ_SLO) <- "Število sob - brez sob za dejavnost"
label(data$ST_SOB_BREZDEJ_SLO_RAZ) <- "Število sob - brez sob za dejavnost - razred; 1 - 1 soba, 2 - 2 sobi, 3 - 3 sobe, 4 - 4 sobe, 5 - 5 sob, 6 - 6 sob, 7 - 7 sob, 8 - 8 sob, 9 - 9 sob ali vec, 10 - Ni navedeno"
label(data$VEL_NASELJA) <- "Velikost naselja; 1 - 1.000.000 prebivalcev ali vec, 2 - Od 500.000 do 999.999 prebivalcev, 3 - Od 200.000 do 499.999 prebivalcev, 4 - Od 100.000 do 199.999 prebivalcev, 5 - Od 50.000 do 99.999 prebivalcev, 6 - Od 20.000 do 49.999 prebivalcev, 7 - Od 10.000 do 19.999 prebivalcev, 8 - Od 5.000 do 9.999 prebivalcev, 9 - Od 2.000 do 4.999 prebivalcev, 10 - Od 1.000 do 1.999 prebivalcev, 11 - Od 500 do 999 prebivalcev, 12 - Od 200 do 499 prebivalcev, 13 - Od 100 do 199 prebivalcev, 14 - Od 50 do 99 prebivalcev, 15 - Od 25 do 49 prebivalcev, 16 - Od 1 do 24 prebivalcev, 17 - Brez prebivalcev"
label(data$LETO_IZG_STA) <- "Leto izgradnje stavbe"
label(data$ID_KONSTRUKCIJE) <- "Material nosilne konstrukcije; 1 - opeka, 2 - beton, železobeton, 3 - kamen, 4 - les, 5 - kombinacija razlicnih materialov, 6 - kovinska konstrukcija, 7 - montažna gradnja, 8 - drug material"
label(data$ID_DVIGALO) <- "Dvigalo; 1 - Dvigalo je, 2 - Ni dvigala"
label(data$ID_OGREVANJE) <- "Vrsta ogrevanja; 1 - daljinsko ogrevanje, 2 - centralno ogrevanje, 3 - drugo ogrevanje, 4 - ni ogrevanja"
label(data$ID_VODOVOD) <- "Možnost priklopa na javni vodovod; 1 - Da, 2 - Ne"
label(data$ID_ELEKTRIKA) <- "Možnost priklopa na elektriko; 1 - Elektricno omrežje je, 2 - Ni  elektricnega omrežja"
label(data$ID_TELEFON) <- "Možnost priklopa na telefon; 1 - Možnost priklopa na telefonsko omrežje, 2 - Ni možnosti priklopa na telefonsko omrežje"
label(data$ID_KANALIZACIJA) <- "Možnost priklopa na kanalizacijo; 1 - Možnost priklopa na kanalizacijo, 2 - Ni možnosti priklopa na kanalizacijo"
label(data$ID_PLIN) <- "Možnost prikopa na plin; 1 - Možnost prikljucka na plin, 2 - Ni možnosti prikljucka na plin"
label(data$ID_TIP_STAVBE) <- "Tip stavbe; 1 - samostojeca stavba, 2 - stavba dvojcek, 3 - krajna vrstna stavba, 4 - vmesna vrstna stavba"
label(data$DEJANSKA_RABA_STAVBE) <- "Dejanska raba stavbe; 11 - stanovanjska, 12 - nestanovanjska"
label(data$ID_KABELSKA_TV) <- "Možnost priklopa na kabelsko TV; 1 - Da, 2 - Ne"
label(data$RABA_STAV) <- "Stanovanjska/nestanovanjska raba stavbe; 1 - stanovanjska stavba, 2 - nestanovanjska stavba"
label(data$VRSTA_STAV_EU) <- "Vrsta stavbe glede na rabo in število delov; 1 - Enostanovanjska  stavba, 2 - Dvostanovanjska  stavba, 3 - Tro- ali vec stanovanjska stavba, 4 - Nestanovanjska stavba, 5 - Ni navedeno"
label(data$CENTR_OGR) <- "Centralna  kurjava (vkljucno daljinsko); 1 - Centralno ali daljinsko ogrevanje, 2 - Ni centralnega ali daljinskega ogrevanja, 3 - Ni navedeno"

#--- prikažemo vse labele

attach(data)
describe(data)

#--- datoteko z labelami shranimo

write.table(data, "TXT_LOKACIJA_SHRANI", quote = FALSE, sep = "\t", dec=",", na = "NA")