Wolfram Research

USA Google Mobility Data

Mobility Reports of Google for USA

Details

Google Mobility Report dataset is presented by location (here, 2818 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[
ResourceObject["USA Google Mobility Data"]][
   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 except Nevada, 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[
ResourceObject["USA Google Mobility Data"]][Select[#Country == \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "usa", Typeset`boxes$$ = TemplateBox[{"\"United States\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"Country\"", ",", "\"UnitedStates\""}], "]"}], "\"Entity[\\\"Country\\\", \\\"UnitedStates\\\"]\"", "\"country\""}, "Entity"], Typeset`allassumptions$$ = {}, Typeset`assumptions$$ = {},
             Typeset`open$$ = {1, 2}, Typeset`querystate$$ = {
            "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.706154`6.300444417007905, "Messages" -> {}}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, 
Dynamic[Typeset`query$$], 
Dynamic[Typeset`boxes$$], 
Dynamic[Typeset`allassumptions$$], 
Dynamic[Typeset`assumptions$$], 
Dynamic[Typeset`open$$], 
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{184., {7., 17.}},
TrackedSymbols:>{
              Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\) && #County == Missing["NotAvailable"] &]][
   2 ;; -1, DateListPlot[{#Workplaces, TimeSeriesResample[#Workplaces, "Weekend"]}, PlotLabel -> If[MatchQ[#State, Entity["AdministrativeDivision", {"Nevada", "UnitedStates"}]],
        Style["NV", Red, Bold], #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] &
Out[3]=

Wolfram Summer Camp, "USA Google Mobility Data" from the Wolfram Data Repository (2020) 

License Information

Public

Data Resource History

Source Metadata

Publisher Information