VR:n junien myöhästely

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 Näytä tulokset

Kysymys

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

Perustelut

Miltä asemalta lähdit?: Mille asemalle saavuit?: Mikä on junan tyyppi (ja numero)?: Aikaleima: 12345678910111213141516171819202122232425262728293031.123456789101112.203420332032203120302029202820272026202520242023202220212020201920182017201620152014 Paljonko juna oli myöhässä (miinus tarkoittaa etuajassa saapumista)?: Muuta huomioitavaa: + 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)