ListLinePlot[data=TemporalData[]]

eproc=EstimatedProcess[data,ARProcess[6]]

Labeled[Show[ListPlot[TemporalData[PartialCorrelationFunction[#,{30}]&/@{eproc,data}],Filling->{1->{2}},FillingStyle->Thick,PlotStyle->PointSize[Large],PlotRange->{-.4,.2},PlotLegends->Placed[Style[#,Bold,FontFamily->"Verdana"]&/@{"Data","AR[6]"},Bottom]],Graphics[{Dashed,Thick,Line[{{0,#},{35,#}}]}]&/@(Quantile[NormalDistribution[],{(1-.95)/2,1-(1-.95)/2}]/Sqrt[data["PathLengths"][[1]]]),ImageSize->400],Column[{Style["Partial Auto\[Hyphen]Correlation Plot",Bold,FontSize->18,FontFamily->"Verdana"],Style["95% Confidence",Bold,FontSize->16,FontColor->Gray,FontFamily->"Verdana"]}],{{Top,Left}}]