Load packages

library(exifr)
library(leaflet)
library(dplyr)

Run

Chọn thư mục chứa hình ảnh

path <- "./photo/"

Lấy danh sách các hình ảnh trong thư mục

files <- list.files(path,pattern = "*.JPG")

Lấy thông tin exif từ hình ảnh và lưu vào dat

dat <- read_exif(paste0(path,files))

Chọn 3 cột FileName, Latitude và Longitude

dat2 <- dat %>% dplyr::select(FileName, GPSLongitude, GPSLatitude)
DT::datatable(dat2)

Xuất csv

write.csv(dat2, "dataGPS.csv")

Plot nhanh

plot(dat2$GPSLongitude, dat2$GPSLatitude)

Plot với leaflet

leaflet(dat2) %>%
  addProviderTiles("Esri.WorldImagery") %>%
  addCircleMarkers(~ GPSLongitude, ~ GPSLatitude,
             color = 'yellow',opacity =1, weight = 1,
             popup = as.character(files))