M.R.’s first approach
M.R.’s first approach
ds=Import["/home/george/time-data/time-data.csv",{"CSV","Dataset"},HeaderLines1];
In[]:=
data=GroupBy[ds[All,<|"p"If[#parents"",#task,#parents],"d"(DateObject/@{#"start",#"end"})|>&],FirstLast,Map[{CurrentDate[#[[1]],"Hour"],DateDifference[#[[1]],#[[2]],"Hour"]}&]]
Out[]=
Row@{DateListPlot[data,FillingAxis,ImageSizeMedium,PlotLegendsNone],StackedDateListPlot[data,PlotTheme"Detailed",ImageSizeMedium]}
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
1
3
1
3
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
1
3
1
3
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
1
3
1
3
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
9
10
Out[]=
M.R.’s second approach
M.R.’s second approach
In[]:=
dates=Map[DateObject,ds[[2;;,{4,5}]],{-1}];dr=Flatten[DateRange[##,"Minute"]&@@@dates];DateHistogram[dr,"Day",DateReduction"Week",FrameLabel{None,"Minutes"},FrameTrue,LabelingFunction(Column@{Quantity[#/60.,"Hours"],Quantity[#,"Seconds"]}&)]
Out[]=
M.R.’s Third Approach
M.R.’s Third Approach
Edmund’s Approach
Edmund’s Approach