Exercises with Datasets

user="https://olgabelitskaya.github.io/";
data=SemanticImport[StringJoin[user,"c_bank.csv"]];
dataF=Table[DateList[DateObject[data[[i,1]]]][[1;;3]],
{i,Length[data]}];
dataG=Dataset[Table[{dataF[[i]],data[[i,4]]},
{i,Length[data]}]];
dataP=Dataset[Table[{dataF[[i]],data[[i,6]]},
{i,Length[data]}]];
{DateListLogPlot[data[[All,{1,4}]],{{2012,1,1},{2012,4,30}},
PlotStyle->Green,Frame->True,Filling->Axis,ImageSize->300],
KagiChart[data[[All,{1,5}]],Frame->True,ImageSize->400]}
DateListPlot[{data[[All,4]],
MovingAverage[Normal[data[[All,4]]],5]},{2012,1,1},
PlotStyle->{Gray,Green},GridLines->True,ImageSize->{600,400}]