Visualize all collected data points of your Google Maps location history

visualize.R

# Visualizes your Google Maps location history on a Map using OpenStreetMap
# If you want more information (e.g. number of collected points per day), consider this post https://shiring.github.io/maps/2016/12/30/Standortverlauf_post

library(mapview)
library(jsonlite)

x <- fromJSON("") # Add here the path to your .json

loc = x$locations

# converting time column from posix milliseconds into a readable time scale
loc$time = as.POSIXct(as.numeric(x$locations$timestampMs)/1000, origin = "1970-01-01")

# converting longitude and latitude from E7 to GPS coordinates
loc$lat = loc$latitudeE7 / 1e7
loc$lon = loc$longitudeE7 / 1e7

dots <- data.frame(x=loc$lon,
                   y=loc$lat)

coordinates(dots) <- ~ x + y
proj4string(dots) <- "+init=epsg:4326"

mapview(dots, label=loc$time, cex=2)