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(talot@output))
+oprint(head(EvalOutput(asunnot)@output))
+oprint(head(EvalOutput(asuntovaesto)@output))
 </rcode>
@@ Rivi 22: / Rivi 24: @@
 library(OpasnetUtils)
-talodata <- opbase.data("Op_fi2761")
+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"]),
+)
-talodata <- talodata[ # Poistetaan turhat tai haitalliset rivit.
+objects.store(asunnot, asuntovaesto)
-	talodata$Talotyyppi != "Kaikki talotyypit" &
-	talodata$Kunta !="KOKO MAA - HELA LANDET" &
-	talodata$Asuntokunta != "Kaikki asuntokunnat" &
-	talodata$Result != "-"
-, ]
-talodata$Result <- as.numeric(levels(talodata$Result)[talodata$Result])
+cat("Ovariablet asunnot ja asuntovaesto tallennettu. Saat ne käyttöösi koodilla: objects.latest('Op_fi2761', code_name='alusta')\n")
-talodata <- dropall(talodata)
+</rcode>
-talot <- EvalOutput(Ovariable("talot", data = talodata))
+===Data===
-väki <- EvalOutput(Ovariable("väki",
+* Tilastokeskuksen data: asuntokunnat ja asuntoväestöt koon ja asunnon talotyypin mukaan 2012. [http://193.166.171.75/Dialog/varval.asp?ma=020_asas_tau_102&ti=Asuntokunnat+ja+asuntov%E4est%F6+asuntokunnan+koon%2C+huoneluvun+ja+talotyypin+mukaan+2005%2D2012&path=../Database/StatFin/asu/asas/&lang=3&multilang=fi] (data ladattu 20.11.2013) © Tilastokeskus - Statistikcentralen
-	data = data.frame(
-		Asuntokunta = c("1 henk.", "2 henk.", "3 henk.", "4 henk.", "5 henk.", "6 henk.", "7+ henk."),
-		Result = 1:7
-	)
-))
-talot <- talot * väki
+Tätä koodia käytettiin Tilastokeskuksesta ladatun datan siivoamiseen ja Opasnet-kantaan lataamiseen. Se ei toimi Opasnet-ympäristössä.
-objects.store(talot)
+{{piilotettu
-cat("Ovariable talot tallennettu. Saat sen käyttöösi koodilla: objects.latest('Op_fi2761', code_name='alusta')\n")
+|
+<pre>
+library(reshape2)
-</rcode>
+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)
+</pre>
+}}
 == Katso myös ==
@@ Rivi 61: / Rivi 94: @@
 ==Aiheeseen liittyviä tiedostoja==
-{{mfiles}}