Plotar dados em um intervalo de 10 minutos

Question

Eu gostaria de traçar - intervalos de 10 minutos - atividades de diários de uso do tempo.

As linhas são o número de observações (16533) e as colunas são atividades realizadas durante um dia (144 atividades x 10 minutos).

Cada atividade é dividida em um esquema de codificação diferente. Por exemplo, o Sleep é codificado da seguinte forma:

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

O formulário da matriz de Atividades:

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")]

Agreguei os códigos e criei variáveis de uso de tempo da seguinte forma:

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,
 }

As atividades entre 109 e 121 definem atividades relacionadas ao sono. As atividades entre 209 e 211 definem atividades relacionadas à alimentação.

Agora eu gostaria de plotar as variáveis agregadas (por exemplo, dormir, comer). Eu não tenho uma variável de tempo (HH: mm: ss). O tempo no conjunto de dados é definido pela seguinte variável: dmonth (ou mês do diário, variável numérica da coluna 4), ano (ou ano do diário, coluna 5, numérico de 2014-2015).

O código que estou seguindo é

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

Existe algum espaço para traçar essas atividades em uma escala de 10 minutos?