Helsingin kaupungin talous

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi5775
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa Huom! Käytät vanhoja parametreja (todennäköisesti stub). Käytä mieluummin parametria edistyminen = Raakile.

Kysymys

Millainen on Helsingin talous, kun sitä tarkastellaan tilinpäätöstietojen tai ostolaskujen valossa?

Perustelut

Data

Avoindata-sivusto sisältää yksityiskohtaiset tiedot Helsingin tilinpäätöksistä ja ostolaskuista. Tlinpäätöstiedot ovat vuosilta 2009-2014 ja ostolaskut 2012-2017 (poislukien HKR, HKL ja Stara). Nämä linkit vievät dataan:

1. https://www.avoindata.fi/data/fi/dataset/helsingin-kaupunki-tulot-ja-menot-2009-ja-2010 (tilinpäätökset)
2. https://www.avoindata.fi/data/fi/dataset/helsingin-kaupunki-tulot-ja-menot-2009-2011 (tilinpäätökset)
3. https://www.avoindata.fi/data/fi/dataset/helsingin-kaupungin-tulot-ja-menot tilinpäätökset 2012-2014
4. https://www.avoindata.fi/data/fi/dataset/helsingin-kaupungin-ostot Ostolaskut 2012-2014 HKR:n, HKL:n ja Staran osalta, 2012-2017/10 muiden osalta

Laskenta

Seuraava koodi muokkaa dataa yhdenmukaiseksi, kun sen on ensin ladannut omalle koneelle tiedostoina. (Koodi ei ole aivan valmis, esimerkiksi luokituksissa on epäyhteneväisyyksiä jotka saattaisi helpoimmin korjata käyttämällä tilinumeroita eikä -nimiä.

+ Näytä koodi- Piilota koodi # https://www.avoindata.fi/data/fi/dataset/helsingin-kaupunki-tulot-ja-menot-2009-ja-2010 # d1 <- read.csv("C:/Users/jtue/AppData/Local/Temp/Helsinki_tilinpaatos2009_2010.csv", sep=";") # 2009 -- 2010 # https://www.avoindata.fi/data/fi/dataset/helsingin-kaupunki-tulot-ja-menot-2009-2011 temp1 <- read.csv("C:/Users/jtue/AppData/Local/Temp/Helsinki_tilinpaatos_2009-2011.csv", sep=",") # 2009 -- 2011 # https://www.avoindata.fi/data/fi/dataset/helsingin-kaupungin-tulot-ja-menot alkaen vuodesta 2012 temp2 <- read.csv("C:/Users/jtue/AppData/Local/Temp/helsinki_tilinpaatokset_alkaen_2012.csv", sep=";", dec=",") # 2012 -- 2016 #Tilinpäätöstietojen otsikointi on aiempien vuosien aineistoihin verrattuna joiltain osin muuttunut. Vuosien 2009-2011 tilinpäätösaineistojen sarakkeet vastaavat vuodesta 2012 alkaen tilinpäätöksen sarakkeita seuraavasti: #Virasto + Virasto nimi = Yritys + nimi Pääluokka = Pääluokka nro Pääluokka nimi = Pääluokka nimi Luku = Luku nro Luku nimi = Luku nimi Kohta = Kohta nro Kohta nimi = Kohta nimi Kustannuspaikka = Tulosyksikkö nro Kustannuspaikka nimi = Tulosyksikkö nimi Toteuma = Toteuma Yht (ULS, Ulkoinen Laskenta Saldot) Tiliryhmä 3 nimi = Talousarvion tiliryhmä Tilin nimi = Pääkirjatili nimi Tili = Pääkirjatili nro Vuosi = Vuosi #> colnames(tilinpaatos1) # [1] "Virasto" "Virasto.nimi" "Pääluokka" "Pääluokka.nimi" "Luku" # [6] "Luku.nimi" "Kohta" "Kohta.nimi" "Kustannuspaikka" "Kustannuspaikka.nimi" #[11] "Tiliryhmä.3" "Tiliryhmä.3.nimi" "Tili" "Tilin.nimi" "Vuosi" #[16] "Toteuma" "Tulosbudjetti" #> colnames(tilinpaatos2) # [1] "Yritys...nimi" "Pääluokka.nro" "Pääluokka.nimi" "Luku.nro" # [5] "Luku.nimi" "Kohta.nro" "Kohta.nimi" "Tulosyksikkö.nro" # [9] "Tulosyksikkö.nimi" "Toteuma.Yht..ULS." "Talousarvion.tiliryhmä" "Pääkirjatili.nimi" #[13] "Pääkirjatili.nro" "Vuosi" coln <- c("Yritys", "Pääluokka", "Luku", "Kohta", "Tulosyksikkö", "Tiliryhmä", "Pääkirjatili", "Vuosi", "Toteuma") tilinpaatos1 <- tilinpaatos1[c(2,4,6,8,10,12,14,15,16)] tilinpaatos2 <- tilinpaatos2[c(1,3,5,7, 9,11,12,14,10)] colnames(tilinpaatos1) <- coln colnames(tilinpaatos2) <- coln tilinpaatos <- rbind(tilinpaatos1, tilinpaatos2) tilinpaatos$Toteuma <- as.numeric(gsub(" ", "", gsub(",", ".", tilinpaatos$Toteuma))) # https://www.avoindata.fi/data/fi/dataset/helsingin-kaupungin-ostot ostot <- read.csv("C:/Users/jtue/AppData/Local/Temp/helsingin-ostot-all.csv", sep=",") # 2012-01 -- 2017-10, Tästä puuttuvat Staran, HKL:n ja HKR:n tiedot. # Alla olevat HKL, HKR ja Stara on ensin ladattu Excel-tiedostona, sitten joka välilehti tallennettu erillisenä csv-tiedostona ja lopulta avataan R:ään tässä. ostot.HKR2014 <- read.csv("C:/Users/jtue/AppData/Local/Temp/helsingin_kaupungin_ostot_HKR.csv", sep=",") # 2012 -- 2014, HKR ostot.HKL2014 <- read.csv("C:/Users/jtue/AppData/Local/Temp/helsingin_kaupungin_ostot_HKL.csv", sep=",") # 2012 -- 2014, HKL ostot.Stara2014 <- read.csv("C:/Users/jtue/AppData/Local/Temp/helsingin_kaupungin_ostot_Stara.csv", sep=",") # 2012 -- 2014, Stara ostot.muut2014 <- read.csv("C:/Users/jtue/AppData/Local/Temp/helsingin_kaupungin_ostot_muut.csv", sep=",") # 2012 -- 2014, muut #> colnames(ostot) # [1] "id" "hallintokunta" "hallintokunta_id" "toimittajaryhma_id" "toimittajaryhma" "toimittaja_id" "toimittaja" # [8] "toimittaja_ytunnus" "tiliryhma_id" "tiliryhma" "tili_id" "tili" "summa" "date" #> colnames(ostot.HKR2014) # [1] "Vuosi" "VirastoNro" "Organisaatio" "Virasto" "Osasto" "ToimittajaNro" "Y.tunnus" "Toimittaja" "Kumppanikoodi" #[10] "Kumppaniryhmä.1" "Kumppaniryhmä.2" "Kumppani" "Tiliryhmä.1" "Tiliryhmä.2" "HKR.tilinnro" "Tili" "Netto.." "Laske.TiliNro" #> colnames(ostot.HKL2014) # [1] "Vuosi" "VirastoNro" "Organisaatio" "Virasto" "Osasto" "ToimittajaNro" "Y.tunnus" "Toimittaja" "Kumppanikoodi" #[10] "Kumppaniryhmä.1" "Kumppaniryhmä.2" "Kumppani" "Tiliryhmä.1" "Tiliryhmä.2" "TiliNro" "Tili" "Netto.." "Laske.tili" #> colnames(ostot.Stara2014) # [1] "Vuosi" "Virastonro" "Organisaatio" "Virasto" "Osasto" "ToimittajaNro" "Y.tunnus" "Toimittaja" "Kumppanikoodi" #[10] "Kumppaniryhmä.1" "Kumppaniryhmä.2" "Kumppani" "Tiliryhmä.1" "Tiliryhmä.2" "TiliNro" "Tili" "Netto.." #> colnames(ostot.muut2014) # [1] "Vuosi" "VirastoNro" "Virasto" "Osasto" "ToimittajaNro" "Y.tunnus" "Toimittaja" "Kumppanikoodi" "Kumppaniryhmä.1" #[10] "Kumppaniryhmä.2" "Kumppani" "Tiliryhmä.1" "Tiliryhmä.2" "TiliNro" "Tili" "Netto.." "X" coln <- gsub("\\.", "", colnames(ostot.HKR2014)[-c(2,3,6,)])