SHARE
TWEET

Moving Statistics Code

ellenlee218 Sep 30th, 2016 (edited) 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (*this one is for the US*)
  2. GraphicsRow[{
  3.   ListLinePlot[areaDataUS[[1]]
  4.    , PlotLabel ->
  5.     Style["Total Amount of New Single-Family Houses Created in the \
  6. US", FontSize -> 14, FontFamily -> "Georgia", Blue]
  7.    , FrameLabel -> {Style["Years Passed since 1998",
  8.       FontFamily -> "Georgia"],
  9.      Style["# of New Houses (in thousands)", FontFamily -> "Georgia"]}
  10.    , Frame -> True],
  11.   ListLinePlot[{
  12.     Labeled[areaDataUS[[2]], "<1400 ft^2"],
  13.     Labeled[areaDataUS[[3]], "1400-1799 ft^2"],
  14.     Labeled[areaDataUS[[4]], "1800-2399 ft^2"],
  15.     Labeled[areaDataUS[[5]], "2400-2999 ft^2"],
  16.     Labeled[areaDataUS[[6]], "3000-3999 ft^2"],
  17.     Labeled[areaDataUS[[7]], ">4000 ft^2"]
  18.     }, PlotLabel ->
  19.     Style["Square Feet of Floor Area in New Single-Family Houses in \
  20. the US", FontSize -> 14, FontFamily -> "Georgia", Blue]
  21.    , FrameLabel -> {Style["Years Passed since 1998",
  22.       FontFamily -> "Georgia"],
  23.      Style["# of New Houses (in thousands)", FontFamily -> "Georgia"]}
  24.    , Frame -> True]
  25.   }, ImageSize -> 1200]
  26.  
  27. (*western US ONLY*)
  28. GraphicsRow[{
  29.   ListLinePlot[areaDataW[[1]]
  30.    , PlotLabel ->
  31.     Style["Total Amount of New Single-Family Houses Created in the \
  32. Western US", FontSize -> 14, FontFamily -> "Georgia", Blue]
  33.    , FrameLabel -> {Style["Years Passed since 1998",
  34.       FontFamily -> "Georgia"],
  35.      Style["# of New Houses (in thousands)", FontFamily -> "Georgia"]}
  36.    , Frame -> True],
  37.   ListLinePlot[{
  38.     Labeled[areaDataW[[2]], "<1400 ft^2"],
  39.     Labeled[areaDataW[[3]], "1400-1799 ft^2"],
  40.     Labeled[areaDataW[[4]], "1800-2399 ft^2"],
  41.     Labeled[areaDataW[[5]], "2400-2999 ft^2"],
  42.     Labeled[areaDataW[[6]], "3000-3999 ft^2"],
  43.     Labeled[areaDataW[[7]], ">4000 ft^2"]
  44.     }, PlotLabel ->
  45.     Style["Square Feet of Floor Area in New Single-Family Houses in \
  46. the Western US", FontSize -> 14, FontFamily -> "Georgia", Blue]
  47.    , FrameLabel -> {Style["Years Passed since 1998",
  48.       FontFamily -> "Georgia"],
  49.      Style["# of New Houses (in thousands)", FontFamily -> "Georgia"]}
  50.    , Frame -> True]
  51.   }, ImageSize -> 1200]
RAW Paste Data
Top