Ero sivun ”Talotyypit Suomessa” versioiden välillä
Siirry navigaatioon
Siirry hakuun
p (→Perustelut) |
(asuntoväestö muutettu asuntovaestoksi öökkösharmien vähentämiseksi) |
||
| (3 välissä olevaa versiota samalta käyttäjältä ei näytetä) | |||
| Rivi 11: | Rivi 11: | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
objects.latest("Op_fi2761", code_name="alusta") # [[Talotyypit Suomessa]], ovariable | objects.latest("Op_fi2761", code_name="alusta") # [[Talotyypit Suomessa]], ovariable asunnot, asuntovaesto. | ||
oprint(head( | oprint(head(EvalOutput(asunnot)@output)) | ||
oprint(head(EvalOutput(asuntovaesto)@output)) | |||
</rcode> | </rcode> | ||
| Rivi 22: | Rivi 24: | ||
library(OpasnetUtils) | 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") | |||
</rcode> | |||
===Data=== | |||
* 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 | |||
Tätä koodia käytettiin Tilastokeskuksesta ladatun datan siivoamiseen ja Opasnet-kantaan lataamiseen. Se ei toimi Opasnet-ympäristössä. | |||
{{piilotettu | |||
| | |||
<pre> | |||
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) | |||
</pre> | |||
}} | |||
== Katso myös == | == Katso myös == | ||
| Rivi 64: | Rivi 94: | ||
==Aiheeseen liittyviä tiedostoja== | ==Aiheeseen liittyviä tiedostoja== | ||
Nykyinen versio 24. huhtikuuta 2014 kello 09.56
| Moderaattori:Jouni (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Kysymys
Kuinka paljon ihmisiä asuu erilaisissa talotyypeissä?
Vastaus
Perustelut
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
Viitteet