Ero sivun ”Käyttäjä:Mori/Työaika” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(Ak: Sivun sisältö korvattiin sisällöllä ”<t2b index="Aikalaji,Projekti,Alaprojekti,Havainto" Locations="alku,loppu,toistoväli,asti,kuvaus" unit="d"> Työaika|Opasnet|||||| </t2b> {{puo...”) |
Ei muokkausyhteenvetoa |
||
| Rivi 1: | Rivi 1: | ||
< | == Kohdistamon kirjaukset == | ||
< | <rcode graphics=0 live=1 variables=' | ||
name:alku|Seurantajakson alku|type:date|default:2014-02-06| | |||
name:loppu|Seurantajakson loppu|type:date | |||
'> | |||
library(OpasnetUtils) | |||
library(ggplot2) | |||
objects.latest("Op_en6007", code_name = "answer") # We need timing | |||
dat <- opbase.data("Op_fi3948", subset = 'Kirjaukset') | |||
#tuntikirjaus <- opbase.data("Op_fi3950.tuntikirjaus") | |||
#työtehtävät <- opbase.data("Op_fi3950.tyotehtavat") | |||
#työsuunnitelma <- opbase.data("Op_fi3950.tyosuunnitelma") | |||
#tuntikirjaus <- tuntikirjaus[colnames(tuntikirjaus) != "Obs"] | |||
#työtehtävät <- työtehtävät[colnames(työtehtävät) != "Obs"] | |||
#työsuunnitelma <- työsuunnitelma[colnames(työsuunnitelma) != "Obs"] | |||
#colnames(työsuunnitelma)[colnames(työsuunnitelma) == "Result"] <- "Loppu" | |||
#työsuunnitelma <- data.frame(työsuunnitelma, Henkilö = "Jouni") | |||
dat <- dat[dat$Henkilö == "Mori" , ] | |||
dat$Aika <- as.POSIXct(dat$Aika, tz = 'Europe/Helsinki') | |||
dat <- dat[ | |||
dat$Aika >= as.POSIXct(alku, tz = 'Europe/Helsinki') & | |||
dat$Aika <= as.POSIXct(loppu, tz = 'Europe/Helsinki') +3600*24 , | |||
] | |||
out <- dat[1:4] | |||
out$Aika <- as.character(out$Aika) | |||
oprint(out) | |||
#oprint(työsuunnitelma) | |||
#oprint(työtehtävät) | |||
#tuntikirjaus <- timing(tuntikirjaus, timecol = c("Aika", "Loppu"), weeks = 6) | |||
#timeline <- makeTimeline(tuntikirjaus) | |||
#timeline <- timeline[order(timeline$Time) , ] | |||
#timeline$Time[nrow(timeline)] <- max(timeline$Time, na.rm = TRUE) | |||
#for(i in 1:(nrow(timeline)-1)) {timeline$end[i] <- timeline$Time[i+1]} | |||
#timeline[nrow(timeline), "end"] <- NA | |||
#timeline$end <- as.POSIXct(timeline$end, origin = "1970-01-01") | |||
#ggplot(timeline, aes( | |||
# xmin = Time, # as.Date(as.character(Start)) | |||
# xmax = end, # as.Date(as.character(End)) + 2 | |||
# ymin = as.numeric(Henkilö), | |||
# ymax = as.numeric(Henkilö) + 1, | |||
# fill = Työ)) + geom_rect() | |||
# | |||
</rcode> | |||
==Katso myös== | |||
* [[Kohdistamo/Ohje]] | |||
* [[Kohdistamo]] | |||