Zeichnen Sie Daten in einem Intervall von 10 Minuten auf

Ich möchte - in Abständen von 10 Minuten - Aktivitäten aus Zeitnutzungsnotizen zeichnen.

Die Zeilen enthalten die Anzahl der Beobachtungen (16533) und die Spalten die Aktivitäten, die an einem Tag durchgeführt werden (144 Aktivitäten x 10 Minuten).

Jede Aktivität ist in verschiedene Codierungsschemata unterteilt. Zum Beispiel wird der Schlaf wie folgt codiert:

sleep <- data.frame( code = c(110, 111, 120), description = c("Sleep", "In bed not asleep", "Sick in bed"))  # code description # 1: 110 Sleep # 2: 111 In bed not asleep # 3: 120 Sick in bed 

Das Aktivitätsmatrixformular:

Activities <-uktus15_diary_wide[,c ("serial", "pnum","daynum","ddayw","DVAge", "dmonth", "dyear","WhenDiary","AfterDiaryDay", "WhereStart","WhereEnd","RushedD","Ordinary","KindOfDay","Trip","enjm1","act1_1", "act1_2", "act1_3", "act1_4", "act1_5", "act1_6", "act1_7", "act1_8", "act1_9", "act1_10", "act1_11", "act1_12", "act1_13", "act1_14", "act1_15", "act1_16", "act1_17", "act1_18", "act1_19", "act1_20", "act1_21", "act1_22", "act1_23", "act1_24", "act1_25", "act1_26", "act1_27", "act1_28", "act1_29", "act1_30", "act1_31", "act1_32", "act1_33", "act1_34", "act1_35", "act1_36", "act1_37", "act1_38", "act1_39", "act1_40", "act1_41", "act1_42", "act1_43", "act1_44", "act1_45", "act1_46", "act1_47", "act1_48", "act1_49", "act1_50", "act1_51", "act1_52", "act1_53", "act1_54", "act1_55", "act1_56", "act1_57", "act1_58", "act1_59", "act1_60", "act1_61", "act1_62", "act1_63", "act1_64", "act1_65", "act1_66", "act1_67", "act1_68", "act1_69", "act1_70", "act1_71", "act1_72", "act1_73", "act1_74", "act1_75", "act1_76", "act1_77", "act1_78", "act1_79", "act1_80", "act1_81", "act1_82", "act1_83", "act1_84", "act1_85", "act1_86", "act1_87", "act1_88", "act1_89", "act1_90", "act1_91", "act1_92", "act1_93", "act1_94", "act1_95", "act1_96", "act1_97", "act1_98", "act1_99", "act1_100", "act1_101", "act1_102", "act1_103", "act1_104", "act1_105", "act1_106", "act1_107", "act1_108", "act1_109", "act1_110", "act1_111", "act1_112", "act1_113", "act1_114")] 

Ich sammelte die Codes und erstellte Zeitverwendungsvariablen wie folgt:

sleep<-0  eating<-0   for (i in 1:144) {  sleep<-ifelse(Activities[,i+15]>109 & Activities[, i+15]< 121, sleep+10, sleep) eating<-ifelse(Activities[,i+15]>209 & Activities[, i+15]<211, } 

Aktivitäten zwischen 109 und 121 definieren Aktivitäten im Zusammenhang mit Schlaf. Aktivitäten zwischen 209 und 211 definieren Aktivitäten im Zusammenhang mit dem Essen.

Jetzt möchte ich die aggregierten Variablen plotten (zB schlafen, essen.). Ich habe keine Timing-Variable (HH: mm: ss). Die Zeit im Datensatz wird durch die folgende Variable definiert: dmonth (oder Monatsmonat, numerische Variable der Spalte 4), dyear (oder Kalenderjahr, Spalte 5, numerischer Zeitraum von 2014-2015).

Der Code, dem ich folge, lautet

Activities.timing<-ts(Activities[25:30],frequency=60*24*365/10) plot(Activities.timing) 

Gibt es einen Weg, um diese Aktivitäten in einer 10-Minuten-Skala aufzuzeichnen?