USA Google Mobility Data

Mobility Reports from Google for the USA

Details

Google Mobility Report dataset is presented by location (here, 2878 US counties) and highlights the percent change in visits to places like grocery stores and parks within a geographic area. Changes are calculated with regard to a baseline. The baseline is the median value, for the corresponding day of the week, during the 5-week period Jan 3–Feb 6, 2020.

Examples

Basic Examples

Retrieve the data for Los Angeles county, California:

In[1]:=

$la = ResourceData[\!$\* TagBox["\"\<USA Google Mobility Data\>\"", #& , BoxID -> "ResourceTag-USA Google Mobility Data-Input", AutoDelete->True]$][ SelectFirst[#County == Entity["AdministrativeDivision", {"LosAngelesCounty", "California", "UnitedStates"}] &]];$

Visualize the data of Los Angeles county, California:

In[2]:=

Multicolumn[
KeyValueMap[
DateListPlot[{#2, TimeSeriesResample[#2, "Weekend"]}, PlotLabel -> #1, Sequence[
Joined -> {True, False}, Filling -> {1 -> Axis, 2 -> {Axis,
Directive[
Opacity[0.2], Red, Thick]}}, AspectRatio -> 1/2, FrameTicks -> {{{{-80, "-80%"}, {-40, "-40%"}, {0, "Baseline"}, {40, "+40%"}, {80, "+80%"}}, None}, { DateRange["Feb 29, 2020", "June 16, 2020",
Quantity[2, "Weeks"]], None}}, ImageSize -> Medium, PlotRange -> {{"Feb 29, 2020", "June 16, 2020"}, {-80, 80}}, GridLines -> {None, {-80, -40, 0, 40, 80}}, PlotStyle -> {Automatic, None}]] &][Normal[la[4 ;;]]], 2]

Out[2]=

Visualizations

It seems that Americans sneak out to workplace on weekends! Note that the red lines in the following visualizations highlight weekends:

Visualize mobility data of US states:

In[3]:=

$ResourceData[\!$\* TagBox["\"\<USA Google Mobility Data\>\"", #& , BoxID -> "ResourceTag-USA Google Mobility Data-Input", AutoDelete->True]$][ Select[#Country == Entity["Country", "UnitedStates"] && #County == Missing["NotAvailable"] &]][2 ;; -1, DateListPlot[{#Workplaces, TimeSeriesResample[#Workplaces, "Weekend"]}, PlotLabel -> #State["StateAbbreviation"], Sequence[ Joined -> {True, False}, Filling -> {1 -> Axis, 2 -> {Axis, Directive[ Opacity[0.3], Red, Thick]}}, AspectRatio -> 1/4, FrameTicks -> None, Axes -> {True, None}, ImageSize -> 200, PlotRange -> {{"Feb 29, 2020", "June 16, 2020"}, {-80, 80}}, PlotStyle -> {Automatic, None}]] &] // Normal // Multicolumn[#, 3] &$