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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(Ak: Uusi sivu: ==Kysymys== Paljonko ja kuinka usein VR:n junat ovat myöhässä? ==Vastaus== ==Perustelut== <t2b index="Lähtöasema,Saapumisasema,Junatyyppi,Kuukausi,Havainto" Locations="Saa...)
 
pEi muokkausyhteenvetoa
 
(5 välissä olevaa versiota 2 käyttäjän tekeminä ei näytetä)
Rivi 1: Rivi 1:
{{muuttuja|moderaattori=Heta}}
==Kysymys==
==Kysymys==


Rivi 7: Rivi 9:
==Perustelut==
==Perustelut==


<t2b index="Lähtöasema,Saapumisasema,Junatyyppi,Kuukausi,Havainto" Locations="Saapumisaika,Kuvaus" unit="min">
<rcode name="junat" label="Raportoi uusi juna" embed=1 variables="
Tampere|Pieksämäki|IC|Lokakuu|0
name:lähtöasema|description:Miltä asemalta lähdit?|type:text|
Pieksämäki|Kuopio|IC|Lokakuu|-6
name:saapumisasema|description:Mille asemalle saavuit?|type:text|
Kuopio|Pieksämäki|IC|Lokakuu|-5
name:junatyyppi|description:Mikä on junan tyyppi (ja numero)?|type:text|
Pieksämäki|Tampere|P|Lokakuu|7
name:päivä|description:Aikaleima|type:date|
</t2b>
name:result|description:Paljonko juna oli myöhässä (miinus tarkoittaa etuajassa saapumista)?|
name:kuvaus|description:Muuta huomioitavaa|type:text|default:
">
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)
 
</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)


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

Nykyinen versio 25. lokakuuta 2016 kello 18.17




Kysymys

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

Vastaus

Perustelut

Miltä asemalta lähdit?:

Mille asemalle saavuit?:

Mikä on junan tyyppi (ja numero)?:

Aikaleima:
..

Paljonko juna oli myöhässä (miinus tarkoittaa etuajassa saapumista)?:

Muuta huomioitavaa:

+ Näytä koodi


+ Näytä koodi