Ero sivun ”VR:n junien myöhästely” versioiden välillä
Siirry navigaatioon
Siirry hakuun
pEi muokkausyhteenvetoa |
pEi muokkausyhteenvetoa |
||
| (4 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== | ||
< | <rcode name="junat" label="Raportoi uusi juna" embed=1 variables=" | ||
name:lähtöasema|description:Miltä asemalta lähdit?|type:text| | |||
name:saapumisasema|description:Mille asemalle saavuit?|type:text| | |||
name:junatyyppi|description:Mikä on junan tyyppi (ja numero)?|type:text| | |||
name:päivä|description:Aikaleima|type:date| | |||
</ | 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) | |||
</rcode> | |||
Nykyinen versio 25. lokakuuta 2016 kello 18.17
| Moderaattori:Heta (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Kysymys
Paljonko ja kuinka usein VR:n junat ovat myöhässä?
Vastaus
Perustelut