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}}​
    ​]​
    ​