Ero sivun ”Talotyypit Suomessa” versioiden välillä

Versio 20. marraskuuta 2013 kello 17.51

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 {{#opasnet_base_link:Op_fi2761}}

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 talot.

oprint(head(EvalOutput(asunnot)@output))

oprint(head(EvalOutput(asuntoväestö)@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"]),
)

asuntoväestö <- Ovariable("asuntoväestö", 
	data = dropall(temp[temp$Havainto == "Asuntoväestö" , colnames(temp) != "Havainto"]),
)

objects.store(asunnot, asuntoväestö)

cat("Ovariablet asunnot ja asuntoväestö 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

Viitteet

Aiheeseen liittyviä tiedostoja