Evaluate
Evaluate Cell
Cut
Copy
Copy as
Plain Text
Input Text
Image
Paste
Convert to
InputForm
StandardForm
TraditionalForm
Image
Clear Formatting
Formatting...
Divide Cell
Merge Cells
Publish/Share Cell
Embed...
Email Cell to
Me
Others...
Email Cell...
Deploy Cell as
Instant API
Instant Web Computation
Instant Web Form
Embeddable Code
Advanced
Show Cell Expression...
Cell Update History...
    ts=TimeSeriesDatabin
    "BinID"
    
    ;
    binDataWithTemperature=Dataset@BlockMap(Append[Last[#],"Temperature"Median[WeatherData[Last[#]["City"],
    "MeanTemperature",Append[#[[All,"Timestamp"]],"Day"],"NonMetricValue"]]])&,
    NormalDatasetDatabin
    "BinID"
    ,2,1;

    Report as of
    DateString[ts[[1]]["LastDate"],"ISODate"]

    Gas Mileage

    WithestimatedMPG=
    ts["EstimatedMPG"]
    ,actualMPG=
    ts["TripDistance"]
    ts["FuelUsed"]
    ,​
    ​DateListPlot[​
    ​(*{Callout[estimatedMPG,"Computed",Above],Callout[actualMPG,"Actual",Below]},*)​
    ​{estimatedMPG,actualMPG},​
    ​PlotLabels{"Computed","Actual"},​
    ​PlotTheme"Detailed",​
    ​FrameLabel{"","mi/gal"},​
    ​Epilog{​
    ​{Blue,Thin,Dashed,Tooltip[Line[{{estimatedMPG["FirstDate"],
    QuantityMagnitude[#]},{estimatedMPG["LastDate"],QuantityMagnitude[#]}}],#]}&[Mean[estimatedMPG]],
    ​
    ​{Darker@Orange,Thin,Dashed,Tooltip[Line[{{estimatedMPG["FirstDate"],
    QuantityMagnitude[#]},{estimatedMPG["LastDate"],QuantityMagnitude[#]}}],#]}&[Mean[actualMPG]]​
    ​},​
    ​PlotLabelStringTemplate["Average lifetime MPG: `mpg` mpg"][<|"mpg"QuantityMagnitude@Round[Echo@
    Mean[actualMPG],0.1]|>],​
    ​ImageSizeLarge,​
    ​MeshAll,​
    ​Filling{1{2}}​
    ​]​
    ​

    Counties

    Show​
    ​GeoGraphics@EdgeForm[Black],Sequence@@Polygon/@
    Illinois, United States
    (administrative division)
    ,
    Indiana, United States
    (administrative division)
    ,
    Wisconsin, United States
    (administrative division)
    ,​
    ​GeoHistogram
    Counts[Normal[binDataWithTemperature][[All,"City"]]]
    ,"AdministrativeDivision2",​
    ​PlotLegendsAutomatic,​
    ​ImageSizeLarge​
    ​​
    ​

    Price per gallon

    DateListPlot​
    ​
    ts["TotalPrice"]/ts["FuelUsed"]
    ,​
    ​PlotTheme"Detailed",​
    ​FrameLabel{"","$/gal"},​
    ​ImageSizeLarge,​
    ​MeshAll​
    ​

    Odometer

    Withodometer=
    ts["Odometer"]
    ,​
    ​DateListPlot[​
    ​odometer,​
    ​PlotTheme"Detailed",​
    ​FrameLabel{"","miles"},​
    ​ImageSizeLarge,​
    ​MeshAll​
    ​]​
    ​

    MPG vs Speed

    WithmpgVsSpeed=
    Values@Normal@Select[binDataWithTemperature[[All,{"AverageSpeed","EstimatedMPG"}]],FreeQ[_Missing]]
    ,​
    ​ListPlot[​
    ​mpgVsSpeed,​
    ​PlotTheme"Detailed",​
    ​FrameLabel{"mi/h","mi/gal"},​
    ​PlotLabelStringTemplate[" = `r`"][<|"r"Round[Correlation@@Transpose[mpgVsSpeed],0.01]|>],​
    ​ImageSizeLarge​
    ​]​
    ​

    MPG vs Temperature

    WithmpgVsTemp=
    Values@Normal@binDataWithTemperature[[All,{"Temperature","EstimatedMPG"}]]
    ,​
    ​ListPlot[mpgVsTemp,​
    ​PlotTheme"Detailed",​
    ​FrameLabel{"°F","mi/gal"},​
    ​PlotLabelStringTemplate[" = `r`"][<|"r"Round[Correlation@@Transpose[mpgVsTemp],0.01]|>],​
    ​ImageSizeLarge​
    ​]​
    ​

    MPG vs Temperature and Speed

    WithmpgVsSpeedAndTemp=
    Values@Normal@Select[binDataWithTemperature[[All,{"Temperature","AverageSpeed","EstimatedMPG"}]],
    FreeQ[_Missing]]
    ,​
    ​ListPointPlot3D[mpgVsSpeedAndTemp,​
    ​PlotStylePointSize[Large],​
    ​AxesLabel{"Temp","Speed","MPG"},​
    ​FillingAxis,​
    ​PlotTheme"Detailed",​
    ​PlotRange{All,All,{15,40}}​
    ​]​
    ​