Analysis in R: “exifr” package to obtain EXIF data of photos
This is an introduction to a package for collecting EXIF data for photos. It is useful for photo management because it can capture the camera model and the conditions under which the photo was taken.
Perl installation is required for use on Windows. Please download and install “Strawberry Perl” from the link below before installing the package.
Strawberry Perl:http://strawberryperl.com/
Package version is 0.3.2. Checked with R version 4.2.2.
<おすすめのRに関する書籍です>
Rによるやさしい統計学 | 山田 剛史, 杉澤 武俊, 村井 潤一郎
Amazonで山田 剛史, 杉澤 武俊, 村井 潤一郎のRによるやさしい統計学。アマゾンならポイント還元本が多数。
Install Package
Run the following command.
#Install Package
install.packages("exifr")スポンサーリンク
Example
See the command and package help for details.
#Loading the library
library("exifr")
#Seleceimage file
library("tcltk")
OpenFile <- paste0(as.character(tkgetOpenFile(title = "image file ",
filetypes = '{"image file " {".*"}}',
initialfile = c("*.*"))))
#Get EXIF of image file:exifr command
#Information to be obtained:exiftoolargs option;
#Get camera model as an example
ExifData <- as.data.frame(t(exifr(OpenFile, exiftoolargs = NULL)))
V1
SourceFile /test.JPG
Model E-M5MarkII
#CSV output of acquired data to a working directory
write.csv(ExifData, "ExifData.csv")I hope this makes your analysis a little easier !!
スポンサーリンク