Moving Statistics Code

(*this one is for the US*)
GraphicsRow[{
  ListLinePlot[areaDataUS[[1]]
   , PlotLabel ->
    Style["Total Amount of New Single-Family Houses Created in the \
US", FontSize -> 14, FontFamily -> "Georgia", Blue]
   , FrameLabel -> {Style["Years Passed since 1998",
      FontFamily -> "Georgia"],
     Style["# of New Houses (in thousands)", FontFamily -> "Georgia"]}
   , Frame -> True],
  ListLinePlot[{
    Labeled[areaDataUS[[2]], "<1400 ft^2"],
    Labeled[areaDataUS[[3]], "1400-1799 ft^2"],
    Labeled[areaDataUS[[4]], "1800-2399 ft^2"],
    Labeled[areaDataUS[[5]], "2400-2999 ft^2"],
    Labeled[areaDataUS[[6]], "3000-3999 ft^2"],
    Labeled[areaDataUS[[7]], ">4000 ft^2"]
    }, PlotLabel ->
    Style["Square Feet of Floor Area in New Single-Family Houses in \
the US", FontSize -> 14, FontFamily -> "Georgia", Blue]
   , FrameLabel -> {Style["Years Passed since 1998",
      FontFamily -> "Georgia"],
     Style["# of New Houses (in thousands)", FontFamily -> "Georgia"]}
   , Frame -> True]
  }, ImageSize -> 1200]

(*western US ONLY*)
GraphicsRow[{
  ListLinePlot[areaDataW[[1]]
   , PlotLabel ->
    Style["Total Amount of New Single-Family Houses Created in the \
Western US", FontSize -> 14, FontFamily -> "Georgia", Blue]
   , FrameLabel -> {Style["Years Passed since 1998",
      FontFamily -> "Georgia"],
     Style["# of New Houses (in thousands)", FontFamily -> "Georgia"]}
   , Frame -> True],
  ListLinePlot[{
    Labeled[areaDataW[[2]], "<1400 ft^2"],
    Labeled[areaDataW[[3]], "1400-1799 ft^2"],
    Labeled[areaDataW[[4]], "1800-2399 ft^2"],
    Labeled[areaDataW[[5]], "2400-2999 ft^2"],
    Labeled[areaDataW[[6]], "3000-3999 ft^2"],
    Labeled[areaDataW[[7]], ">4000 ft^2"]
    }, PlotLabel ->
    Style["Square Feet of Floor Area in New Single-Family Houses in \
the Western US", FontSize -> 14, FontFamily -> "Georgia", Blue]
   , FrameLabel -> {Style["Years Passed since 1998",
      FontFamily -> "Georgia"],
     Style["# of New Houses (in thousands)", FontFamily -> "Georgia"]}
   , Frame -> True]
  }, ImageSize -> 1200]