exif Exploration

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──

## ✔ ggplot2 2.2.1     ✔ purrr   0.2.5
## ✔ tibble  1.4.2     ✔ dplyr   0.7.6
## ✔ tidyr   0.8.1     ✔ stringr 1.3.1
## ✔ readr   1.1.1     ✔ forcats 0.3.0

## ── Conflicts ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

library(lubridate)

## 
## Attaching package: 'lubridate'

## The following object is masked from 'package:base':
## 
##     date

library(exifr)

## Using ExifTool version 11.01

all_heic<- Sys.glob("~/Pictures/Photos Library.photoslibrary/Masters/*/*/*/*/*.[Hh][eE][iI][cC]")
all_jpg <- Sys.glob("~/Pictures/Photos Library.photoslibrary/Masters/*/*/*/*/*.[jJ][pP][gG]")
all_images <- c(all_heic, all_jpg)

all_exif <- read_exif(all_images, tags=c("Create Date", "Make", "F Number", "ISO", "Focal Length", "Lens Info"))

all_exif %>%
  mutate(DateTime = ymd_hms(CreateDate),
         hour = hour(DateTime))%>%
  ggplot(aes(hour))+
    stat_bin(binwidth = 1)+
    geom_vline(xintercept = 12)

## Warning: Removed 1171 rows containing non-finite values (stat_bin).