Ero sivun ”VR:n junien myöhästely” versioiden välillä

Nykyinen versio 25. lokakuuta 2016 kello 18.17

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi3858
Moderaattori:Heta (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3858}}

Kysymys

Paljonko ja kuinka usein VR:n junat ovat myöhässä?

Vastaus

Perustelut

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)

out <- data.frame(
	Lähtöasema = lähtöasema, 
	Saapumisasema = saapumisasema,
	Junatyyppi = junatyyppi,
	Päivä = päivä,
	Kuvaus = kuvaus,
	Result = result
)

opbase.upload(input = out, ident = "Op_fi3858", name = "VR:n junien myöhästely", 
	obj_type = "variable", act_type = "append", language = "fin", who = wiki_username
)

cat("Kiitos tiedoista.\n")

print(out)

+ Näytä koodi - Piilota koodi


library(OpasnetUtils)
library(ggplot2)

dat <- opbase.data("Op_fi3858")

dat$Päivä <- as.character(dat$Päivä)

#oprint(dat)

hist(dat$Result)

kuva <- ggplot(dat[dat$Saapumisasema%in%c("Turku", "Tampere", "Kuopio", "Pieksämäki", "Helsinki", "Pasila"),], aes(Result)) + 
	geom_histogram(fill="purple", binwidth=2) +
	labs(x = "", y = "") +
	theme_grey(base_size=24) + 
	facet_wrap(~Saapumisasema, scales="free_y")

print(kuva)

@@ Rivi 1: / Rivi 1: @@
+{{muuttuja|moderaattori=Heta}}
 ==Kysymys==
@@ Rivi 6: / Rivi 8: @@
 ==Perustelut==
-{{muuttuja}}
-<t2b index="Lähtöasema,Saapumisasema,Junatyyppi,Kuukausi,Havainto" Locations="Saapumisaika,Kuvaus" unit="min">
-Tampere|Pieksämäki|IC|Lokakuu|0|
-Pieksämäki|Kuopio|IC|Lokakuu|-6|
-Kuopio|Pieksämäki|IC|Lokakuu|-5|
-Pieksämäki|Tampere|P|Lokakuu|7|
-</t2b>
-:Saapumisaika- sarake kertoo, kuinka monta minuuttia heitto aikataulunmukaisen ja varsinaisen saapumisajan välillä oli. Aika otettu junan/juna-aseman kellosta, mikäli mahdollista. Epätarkkuus +-1 min.
 <rcode name="junat" label="Raportoi uusi juna" embed=1 variables="
@@ Rivi 42: / Rivi 35: @@
 print(out)
+</rcode>
+<rcode label="Näytä tähänastiset tulokset" embed=1 graphics=1>
+library(OpasnetUtils)
+library(ggplot2)
+dat <- opbase.data("Op_fi3858")
+dat$Päivä <- as.character(dat$Päivä)
+#oprint(dat)
+hist(dat$Result)
+kuva <- ggplot(dat[dat$Saapumisasema%in%c("Turku", "Tampere", "Kuopio", "Pieksämäki", "Helsinki", "Pasila"),], aes(Result)) +
+	geom_histogram(fill="purple", binwidth=2) +
+	labs(x = "", y = "") +
+	theme_grey(base_size=24) +
+	facet_wrap(~Saapumisasema, scales="free_y")
+print(kuva)
 </rcode>

Ero sivun ”VR:n junien myöhästely” versioiden välillä

Nykyinen versio 25. lokakuuta 2016 kello 18.17

Kysymys

Vastaus

Perustelut

Navigointivalikko