Group photos by time and location

This function allows you to group photos, by time or a combination of time and location. If date_time_cut values are taken (times in which to break the photos) time alone will be used to break-up the photos. If not, you can simply request a number of breaks with n_groups.

photo_group(photo, n_groups = 3, date_time_cut = NULL,
  cluster_string = "Latitude$|Longitude$|date_time")

Arguments

photo	An sf object created by photos_sf
n_groups	The number of groups if date_time_cut is not provided
date_time_cut	Times provided to break the photos
cluster_string	Text string used to select variables used for clustering

Examples

f = geotagged_photo_paths()
photo = photos_sf(f)
photo_group(photo, 2)
#> [1] "1" "1" "2" "2" "2"
summary(photo$date_time)
#>                  Min.               1st Qu.                Median 
#> "2019-05-23 12:06:05" "2019-05-23 13:50:34" "2019-05-24 10:45:45" 
#>                  Mean               3rd Qu.                  Max. 
#> "2019-05-24 03:59:53" "2019-05-24 11:07:20" "2019-05-24 20:09:45" 
date_time_cut = lubridate::ymd_hm(c("2019-05-23 00:00", "2019-05-24 11:00", "2019-05-24 24:00"))
photo$group = photo_group(photo, date_time_cut = date_time_cut)
plot(photo["DateTimeOriginal"], pch = photo$group)