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 !!
このコードの続きをAIに聞く
スポンサーリンク