Ero sivun ”Talotyypit Suomessa” versioiden välillä

Nykyinen versio 24. huhtikuuta 2014 kello 09.56

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

Viitteet

Aiheeseen liittyviä tiedostoja

@@ Rivi 11: / Rivi 11: @@
 library(OpasnetUtils)
-objects.latest("Op_fi2761", code_name="alusta") # [[Talotyypit Suomessa]], ovariable talot.
+objects.latest("Op_fi2761", code_name="alusta") # [[Talotyypit Suomessa]], ovariable asunnot, asuntovaesto.
 oprint(head(EvalOutput(asunnot)@output))
-oprint(head(EvalOutput(asuntoväestö)@output))
+oprint(head(EvalOutput(asuntovaesto)@output))
 </rcode>
@@ Rivi 36: / Rivi 36: @@
 )
-asuntoväestö <- Ovariable("asuntoväestö",
+asuntovaesto <- Ovariable("asuntovaesto",
 	data = dropall(temp[temp$Havainto == "Asuntoväestö" , colnames(temp) != "Havainto"]),
 )
-objects.store(asunnot, asuntoväestö)
+objects.store(asunnot, asuntovaesto)
-cat("Ovariablet asunnot ja asuntoväestö tallennettu. Saat ne käyttöösi koodilla: objects.latest('Op_fi2761', code_name='alusta')\n")
+cat("Ovariablet asunnot ja asuntovaesto tallennettu. Saat ne käyttöösi koodilla: objects.latest('Op_fi2761', code_name='alusta')\n")
 </rcode>
@@ Rivi 94: / Rivi 94: @@
 ==Aiheeseen liittyviä tiedostoja==
-{{mfiles}}<!-- __OBI_TS:1384968144 -->