Report as of
Report as of
Gas Mileage
Gas Mileage
WithestimatedMPG=,actualMPG=,
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]]
},
PlotLabelStringTemplate["Average lifetime MPG: `mpg` mpg"][<|"mpg"QuantityMagnitude@Round[Echo@
Mean[actualMPG],0.1]|>],
ImageSizeLarge,
MeshAll,
Filling{1{2}}
]
Counties
Counties
Show
GeoGraphics@EdgeForm[Black],Sequence@@Polygon/@,
GeoHistogram,"AdministrativeDivision2",
PlotLegendsAutomatic,
ImageSizeLarge
Price per gallon
Price per gallon
DateListPlot
,
PlotTheme"Detailed",
FrameLabel{"","$/gal"},
ImageSizeLarge,
MeshAll
Odometer
Odometer
Withodometer=,
DateListPlot[
odometer,
PlotTheme"Detailed",
FrameLabel{"","miles"},
ImageSizeLarge,
MeshAll
]
MPG vs Speed
MPG vs Speed
WithmpgVsSpeed=
ListPlot[
mpgVsSpeed,
PlotTheme"Detailed",
FrameLabel{"mi/h","mi/gal"},
PlotLabelStringTemplate[" = `r`"][<|"r"Round[Correlation@@Transpose[mpgVsSpeed],0.01]|>],
ImageSizeLarge
]
MPG vs Temperature
MPG vs Temperature
WithmpgVsTemp=,
ListPlot[mpgVsTemp,
PlotTheme"Detailed",
FrameLabel{"°F","mi/gal"},
PlotLabelStringTemplate[" = `r`"][<|"r"Round[Correlation@@Transpose[mpgVsTemp],0.01]|>],
ImageSizeLarge
]
MPG vs Temperature and Speed
MPG vs Temperature and Speed
WithmpgVsSpeedAndTemp=
ListPointPlot3D[mpgVsSpeedAndTemp,
PlotStylePointSize[Large],
AxesLabel{"Temp","Speed","MPG"},
FillingAxis,
PlotTheme"Detailed",
PlotRange{All,All,{15,40}}
]