#---------------------------------------------------------------------------------------------------------------.
# REGISTRSKI POPIS 2011 
# Podatkovna datoteka GOSPODINJSTVO
#
# 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$ID_GO) <- "Identifikator gospodinjstva"
label(data$TIP_GO) <- "Tip gospodinjstva; 1 - Enoclansko, 2 - Vecclansko nedružinsko sorodnikov in nesorodnikov, 3 - Vecclansko nedružinsko starih staršev, vnukov oz. bratov i, 4 - Vecclansko enodružinsko, 5 - Vecclansko enodružinsko razširjeno, 6 - Vecclansko dvo- ali vecdružinsko, 7 - Vecclansko dvo- ali vecdružinsko razširjeno, 8 - Skupinsko gospodinjstvo, 9 - Posebno gospodinjstvo"
label(data$GO_OS) <- "Število oseb v gospodinjstvu"
label(data$GO_M) <- "Število moških v gospodinjstvu"
label(data$GO_Z) <- "Število žensk v gospodinjstvu"
label(data$GO_SK_0_5) <- "Število clanov, starih 0-5 let-skupaj"
label(data$GO_SK_6_14) <- "Število clanov, starih 6-14 let-skupaj"
label(data$GO_SK_15_19) <- "Število clanov, starih 15-19 let-skupaj"
label(data$GO_SK_20_29) <- "Število clanov, starih 20-29 let-skupaj"
label(data$GO_SK_30_49) <- "Število clanov, starih 30-49 let-skupaj"
label(data$GO_SK_50_64) <- "Število clanov, starih 50-64 let-skupaj"
label(data$GO_SK_65_84) <- "Število clanov, starih 65-84 let-skupaj"
label(data$GO_SK_85_PLUS) <- "Število clanov, starih 85 let ali vec - skupaj"
label(data$GO_M_0_5) <- "Število clanov, starih 0-5 let-moški"
label(data$GO_M_6_14) <- "Število clanov, starih 6-14 let-moški"
label(data$GO_M_15_19) <- "Število clanov, starih 15-19 let-moški"
label(data$GO_M_20_29) <- "Število clanov, starih 20-29 let-moški"
label(data$GO_M_30_49) <- "Število clanov, starih 30-49 let-moški"
label(data$GO_M_50_64) <- "Število clanov, starih 50-64 let-moški"
label(data$GO_M_65_84) <- "Število clanov, starih 65-84 let-moški"
label(data$GO_M_85_PLUS) <- "Število clanov, starih 85 let ali vec - moški"
label(data$GO_Z_0_5) <- "Število clanov, starih 0-5 let-ženske"
label(data$GO_Z_6_14) <- "Število clanov, starih 6-14 let-ženske"
label(data$GO_Z_15_19) <- "Število clanov, starih 15-19 let-ženske"
label(data$GO_Z_20_29) <- "Število clanov, starih 20-29 let-ženske"
label(data$GO_Z_30_49) <- "Število clanov, starih 30-49 let-ženske"
label(data$GO_Z_50_64) <- "Število clanov, starih 50-64 let-ženske"
label(data$GO_Z_65_84) <- "Število clanov, starih 65-84 let-ženske"
label(data$GO_Z_85_PLUS) <- "Število clanov, starih 85 let ali vec - ženske"
label(data$GO_SK_0_14) <- "Število starih 0-14 let v gospodinjstvu - skupaj"
label(data$GO_SK_0_29) <- "Število starih 0-29 let v gospodinjstvu - skupaj"
label(data$GO_SK_65_PLUS) <- "Število clanov, starih 65 let ali vec - skupaj"
label(data$GO_M_0_14) <- "Število starih 0-14 let v gospodinjstvu - moški"
label(data$GO_M_0_29) <- "Število starih 0-29 let v gospodinjstvu - moški"
label(data$GO_M_65_PLUS) <- "Število clanov, starih 65 let ali vec - moški"
label(data$GO_Z_0_14) <- "Število starih 0-14 let v gospodinjstvu - ženske"
label(data$GO_Z_0_29) <- "Število starih 0-29 let v gospodinjstvu - ženske"
label(data$GO_Z_65_PLUS) <- "Število clanov, starih 65 let ali vec - ženske"
label(data$GO_SK_0_34) <- "Število starih 0-34 let v gospodinjstvu - skupaj"
label(data$GO_SK_35_49) <- "Število starih 35-49 let v gospodinjstvu - skupaj"
label(data$GO_SK_50_69) <- "Število starih 50-69 let v gospodinjstvu - skupaj"
label(data$GO_SK_70_PLUS) <- "Število clanov, starih 70 let ali vec - skupaj"
label(data$TIP_STAR_GO) <- "Starostna sestava gospodinjstva; 1 - Mlado gospodinjstvo, vsi clani stari do 35 let, 2 - Gospodinjstvo z mlado in s srednjo generacijo, vsi clani sta, 3 - Gospodinjstvo s srednjo generacijo, vsi clani stari 35-49 le, 4 - Gospodinjstvo s srednjo in starejšo generacijo, vsi clani s, 5 - Gospodinjstvo s starejšo generacijo, vsi clani stari 50-69, 6 - Gospodinjstvo s starejšo in staro generacijo, vsi clani sta, 7 - Ostarelo gospodinjstvo, vsi clani starejši od 70 let, 8 - Gospodinjstvo s clani dveh nezaporednih starostnih skupin, 9 - Gospodinjstvo s clani treh ali štirih starostnih skupin"
label(data$GO_OTR) <- "Število otrok v gospodinjstvu"
label(data$GO_OTR_0_5) <- "Število otrok v gospodinjstvu, starih 0-5 let"
label(data$GO_OTR_0_17) <- "Število otrok v gospodinjstvu, starih 0-17 let"
label(data$GO_OTR_0_24) <- "Število otrok v gospodinjstvu, starih 0-24 let"
label(data$TIP_GEN_GO) <- "Generacijska sestava gospodinjstva; 1 - Samo prva generacija v gospodinjstvu, 2 - Dve zaporedni generaciji v gospodinjstvu, 3 - Tri zaporedne generacije v gospodinjstvu, 4 - Štiri zaporedne generacije v gospodinjstvu, 5 - Prva, druga in cetrta generacija v gospodinjstvu, 6 - Prva in tretja generacija v gospodinjstvu, 7 - Prva, tretja in cetrta generacija v gospodinjstvu, 8 - Enoclansko gospodinjstvo, 9 - Generacija ni dolocljiva"
label(data$TIP_DRZ_GO) <- "Sestava gospodinjstva po državljanstvu; 1 - V gospodinjstvu samo državljani RS s stalnim prebivališcem, 2 - V gospodinjstvu samo državljani RS z zacasnim prebivališce, 3 - V gospodinjstvu samo državljani RS s stalnim ali zacasnim p, 4 - V gospodinjstvu samo tujci s stalnim prebivališcem, 5 - V gospodinjstvu samo tujci z zacasnim prebivališcem, 6 - V gospodinjstvu samo tujci s stalnim ali zacasnim prebivaliĹ, 7 - V gospodinjstvu so državljani RS in tujci"
label(data$GO_P1) <- "Število prebivalcev tipa 1 v gospodinjstvu"
label(data$GO_P2) <- "Število prebivalcev tipa 2 v gospodinjstvu"
label(data$GO_P3) <- "Število prebivalcev tipa 3 v gospodinjstvu"
label(data$GO_P4) <- "Število prebivalcev tipa 4 v gospodinjstvu"
label(data$TIP_PRIS_GO_2) <- "Sestava gospodinjstva po statusu priseljenosti; 1 - V gospodinjstvu so samo priseljenci prve generacije, 2 - V gospodinjstvu so priseljenci prve in druge generacije, 3 - V gospodinjstvu so samo priseljenci druge generacije, 4 - V gospodinjstvu so priseljenci druge in tretje generacije, 5 - V gospodinjstvu so samo priseljenci tretje generacije, 6 - V gospodinjstvu so priseljenci prve generacije in nepriselje, 7 - V gospodinjstvu so priseljenci prve in druge generacije in n, 8 - V gospodinjstvu so priseljenci druge generacije in nepriselj, 9 - V gospodinjstvu so priseljenci druge in tretje generacije in, 10 - V gospodinjstvu so samo priseljenci tretje generacije in nep, 11 - V gospodinjstvu so priseljenci prve, druge in tretje generac, 12 - V gospodinjstvu so priseljenci prve, druge in tretje generac, 13 - V gospodinjstvu so priseljenci prve in tretje generacije, 14 - V gospodinjstvu so priseljenci prve in tretje generacije in, 15 - V gospodinjstvu ni priseljencev, 16 - V gospodinjstvu so nepriseljenci in osebe, ki jim ni mogoce, 17 - V gospodinjstvu so samo osebe, ki jim ni možno dolociti sta"
label(data$GO_PRIS_1) <- "Število priseljencev 1. generacije v gospodinjstvu"
label(data$GO_PRIS_2) <- "Število priseljencev 2. generacije v gospodinjstvu"
label(data$GO_PRIS_3) <- "Število priseljencev 3. generacije v gospodinjstvu"
label(data$GO_NI_PRIS) <- "Število oseb, ki niso priseljenci"
label(data$GO_NN_PRIS) <- "Število oseb, ki jim statusa priseljenosti ni mogoce dolociti"
label(data$GO_AKT) <- "Število  aktivnih v gospodinjstvu"
label(data$GO_DAKT) <- "Število delovno aktivnih v gospodinjstvu"
label(data$GO_BP) <- "Število brezposelnih v gospodinjstvu"
label(data$GO_NEAKT) <- "Število  neaktivnih v gospodinjstvu"
label(data$GO_SOL) <- "Število dijakov in študentov v gospodinjstvu"
label(data$GO_UPOK) <- "Število upokojencev v gospodinjstvu"
label(data$GO_DR_NEAKT) <- "Število drugih neaktivnih v gospodinjstvu"
label(data$GO_IZB_OS) <- "Število oseb z osnovno šolo ali manj v gospodinjstvu"
label(data$GO_IZB_SS) <- "Število oseb s srednjo izobrazbo v gospodinjstvu"
label(data$GO_IZB_TER) <- "Število oseb s terciarno izobrazbo v gospodinjstvu"
label(data$GO_ST_DRUZ) <- "Število družin v gospodinjstvu"
label(data$GO_DRUZ_TIP_1) <- "Število družin tipa 1 v gospodinjstvu"
label(data$GO_DRUZ_TIP_2) <- "Število družin tipa 2 v gospodinjstvu"
label(data$GO_DRUZ_TIP_3) <- "Število družin tipa 3 v gospodinjstvu"
label(data$GO_DRUZ_TIP_4) <- "Število družin tipa 4 v gospodinjstvu"
label(data$GO_DRUZ_TIP_5) <- "Število družin tipa 5 v gospodinjstvu"
label(data$GO_DRUZ_TIP_6) <- "Število družin tipa 6 v gospodinjstvu"
label(data$GO_DRUZ_TIP_7) <- "Število družin tipa 7 v gospodinjstvu"
label(data$GO_DRUZ_TIP_8) <- "Število družin tipa 8 v gospodinjstvu"
label(data$GO_DRUZ_TIP_9) <- "Število družin tipa 9 v gospodinjstvu"
label(data$SP_REF_GO) <- "Spol referencne osebe gospodinjstva; 1 - Moški, 2 - Ženska"
label(data$STAR_REF_GO) <- "Starost referencne osebe gospodinjstva"
label(data$ZS_REF_GO) <- "Zakonski stan referencne osebe gospodinjstva; 1 - Samski, 2 - Porocen, 3 - Vdovec, 4 - Razvezan, 5 - Istospolna partnerska skupnost (IPS), 6 - Prenehanje IPS - smrt, 7 - Prenehanje IPS - odlocba, 9 - Neznano"
label(data$HS_MID_NAST) <- "Tip nastanitve; 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$ID_KOHEZIJSKA) <- "Kohezijska regija - GLEJ ŠIFRANT RPE_POPIS_2011"
label(data$ID_STATISTICNA) <- "Statisticna regija - GLEJ ŠIFRANT RPE_POPIS_2011"
label(data$ID_OBCINA) <- "Obcina prebivališca - GLEJ ŠIFRANT RPE_POPIS_2011"
label(data$NA_ID) <- "Naselje prebivališca - GLEJ ŠIFRANT RPE_POPIS_2011"
label(data$TIP_NASELJA) <- "Tip naselja"
label(data$VEL_NAS) <- "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$ST_STAN_GO) <- "Število stanovanj, ki jih uporablja gospodinjstvo"
label(data$ST_GO_STAN) <- "Število gospodinjstev v stanovanju"
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$TIP_LASTNISTVA) <- "Lastništvo stanovanja; 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$GO_UPOR) <- "Stanovanjsko razmerje gospodinjstva; 1 - Vsaj en clan gospodinjstva je lastnik stanovanja, 2 - Vsaj en clan gospodinjstva je najemnik stanovanja, 3 - Noben clan gospodinjstva ni lastnik ali najemnik stanovanja"
label(data$UPOR_POVR_STAN) <- "Uporabna površna stanovanja"
label(data$UPOR_POVR_GO) <- "Uporabna površna stanovanja na gospodinjstvo"
label(data$UPOR_POVR_GO_R) <- "Uporabna površna stanovanja - 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$UPOR_POVR_GO_OS) <- "Uporabna površna stanovanja na clana gospodinjstva"
label(data$UPOR_POVR_GO_OS_R) <- "Uporabna površna stanovanja na clana gospodinjstva - razredi; 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 - nestanovanjski prostori, 10 - nestanovanjski prostori"
label(data$ST_SOB_STAN) <- "Število sob v stanovanju"
label(data$ST_SOB_GO) <- "Število sob v stanovanju na gospodinjstvo"
label(data$ID_KUHINJA) <- "Kuhinja v stanovanju; 1 - Da, 2 - Ne"
label(data$ID_STRANISCE) <- "Stranišce v stanovanju; 1 - Da, 2 - Ne"
label(data$ID_KOPALNICA) <- "Kopalnica v stanovanju; 1 - Da, 2 - Ne"
label(data$VODA_VSTAN) <- "Voda v stanovanju; 1 - Oskrba z vodo  v stanovanjski enoti, 2 - Brez oskrbe z vodo v stanovanjski enoti, 3 - Ni navedeno"
label(data$ID_ELEKTRIKA) <- "Elektricna napeljava v stanovanju; 1 - Da, 2 - Ne"
label(data$ID_TELEFON) <- "Telefonska napeljava v stanovanju; 1 - Da, 2 - Ne"
label(data$ID_PLIN) <- "Napeljava plina v stanovanju; 1 - Da, 2 - Ne"
label(data$ID_VODOVOD) <- "Vodovodna napeljava v stanovanju; 1 - Da, 2 - Ne"
label(data$ID_KANALIZACIJA) <- "Prikljucek na kanalizacijo v stanovanju; 1 - Da, 2 - Ne"
label(data$ID_OGREVANJE) <- "Vrsta ogrevanja; 1 - daljinsko ogrevanje, 2 - centralno ogrevanje, 3 - drugo ogrevanje, 4 - ni ogrevanja"
label(data$KOP_WC_GO) <- "Osnovna infrastruktura v stanovanju; 1 - Stanovanje ima vodo, stranišce in kopalnico, 2 - Stanovanje ima vodo in stranišce, nima kopalnice, 3 - Stanovanje ima vodo in kopalnico, nima stranišca, 4 - Stanovanje ima vodo, nima kopalnice in stranišca, 5 - Stanovanje nima vode, ima kopalnico in stranišce, 6 - Stanovanje nima vode in kopalnice, ima stranišce, 7 - Stanovanje nima vode in stranišca, ima kopalnico, 8 - Stanovanje nima vode, stranišca in kopalnice, 9 - Druga stanovanjska enota"
label(data$LETO_IZG_STA) <- "Leto izgradnje stanovanja"
label(data$LETO_IZG_STA_R) <- "Leto izgradnje stanovanja - 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$DST_SID_K) <- "Identifikator dela stavbe - dopolnjen"

#--- 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")