Talotyypit Suomessa

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi2761
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa Näytä tulokset

Kysymys

Kuinka paljon ihmisiä asuu erilaisissa talotyypeissä?

Vastaus

+ Näytä koodi- Piilota koodi library(OpasnetUtils) objects.latest("Op_fi2761", code_name="alusta") # [[Talotyypit Suomessa]], ovariable asunnot, asuntovaesto. oprint(head(EvalOutput(asunnot)@output)) oprint(head(EvalOutput(asuntovaesto)@output))

Perustelut

+ Näytä koodi- Piilota koodi library(OpasnetUtils) temp <- opbase.data("Op_fi2761") temp <- temp[ # Poistetaan ovariablessa turhat rivit. temp$Kunta != "Koko maa" & temp$Asuntokunta != "Kaikki asuntokunnat" & temp$Talotyyppi != "Kaikki talotyypit" , ] asunnot <- Ovariable("asunnot", data = dropall(temp[temp$Havainto == "Asuntokunnat" , colnames(temp) != "Havainto"]), ) asuntovaesto <- Ovariable("asuntovaesto", data = dropall(temp[temp$Havainto == "Asuntoväestö" , colnames(temp) != "Havainto"]), ) objects.store(asunnot, asuntovaesto) cat("Ovariablet asunnot ja asuntovaesto tallennettu. Saat ne käyttöösi koodilla: objects.latest('Op_fi2761', code_name='alusta')\n")

Data

• Tilastokeskuksen data: asuntokunnat ja asuntoväestöt koon ja asunnon talotyypin mukaan 2012. [1] (data ladattu 20.11.2013) © Tilastokeskus - Statistikcentralen

Tätä koodia käytettiin Tilastokeskuksesta ladatun datan siivoamiseen ja Opasnet-kantaan lataamiseen. Se ei toimi Opasnet-ympäristössä.

Näytä yksityiskohdat

library(reshape2) temp <- read.csv("//cesium/jtue$/_Downloads/020_asas_tau_102.csv", sep = "\t", header = TRUE) for(i in 2:nrow(temp)) { if(temp[[i, 1]] == " ") temp[[i , 1]] <- temp[[i - 1 , 1]] if(temp[[i, 2]] == " ") temp[[i , 2]] <- temp[[i - 1 , 2]] } temp <- temp[!is.na(temp$Asuntoväestön.lukumäärä) , ] #temp <- temp[ # temp$Kunta != "Koko maa" & # temp$Asuntokunta != "Kaikki asuntokunnat" & # temp$Talotyyppi != "Kaikki talotyypit" , #] temp <- melt( temp, measure.vars = c("Asuntokuntien.lukumäärä", "Asuntoväestön.lukumäärä"), variable.name = "Havainto", value.name = "Result" ) levels(temp$Havainto) <- c("Asuntokunnat", "Asuntoväestö") write.csv(temp, "//cesium/jtue$/_Documents/Asuntokunnat.csv", row.names = FALSE)

Katso myös

• Radonin terveysvaikutukset