Rで解析：写真のEXIFデータを取得「exifr」パッケージ

写真のEXIFデータを取得するパッケージの紹介です。カメラの機種や撮影時の条件を取得することができるので、写真管理に役に立つと思います。

Windowsでの利用にはPerlの導入が必要です。パッケージのインストールの前に下記リンクより「Strawberry Perl」をダウンロードしインストールしてください。

Strawberry Perl:http://strawberryperl.com/

パッケージバージョンは0.3.2。実行コマンドはR version 4.2.2で確認しています。

パッケージのインストール

下記、コマンドを実行してください。

#パッケージのインストール
install.packages("exifr")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("exifr")

#&#30011;&#20687;&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;
library("tcltk")
OpenFile <- paste0(as.character(tkgetOpenFile(title = "&#30011;&#20687;&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;",
                                              filetypes = '{"&#30011;&#20687;&#12501;&#12449;&#12452;&#12523;" {".*"}}',
                                              initialfile = c("*.*"))))

#&#30011;&#20687;&#12501;&#12449;&#12452;&#12523;&#12398;EXIF&#12434;&#21462;&#24471;:exifr&#12467;&#12510;&#12531;&#12489;
#&#21462;&#24471;&#12377;&#12427;&#24773;&#22577;&#12434;&#36984;&#25246;:exiftoolargs&#12458;&#12503;&#12471;&#12519;&#12531;;NULL&#12391;&#20840;&#24773;&#22577;&#12434;&#21462;&#24471;,&#25351;&#23450;&#12399;"-[&#36984;&#25246;&#12377;&#12427;&#24773;&#22577;&#21517;]"
#NULL&#12434;&#25351;&#23450;&#12375;&#12383;&#22580;&#21512;216&#12398;&#24773;&#22577;&#12434;&#21462;&#24471;&#12391;&#12365;&#12414;&#12377;
#&#20363;&#12392;&#12375;&#12390;&#12459;&#12513;&#12521;&#12398;&#12514;&#12487;&#12523;&#12434;&#21462;&#24471;
ExifData <- as.data.frame(t(exifr(OpenFile, exiftoolargs = NULL)))
V1
SourceFile /test.JPG
Model                              E-M5MarkII

#&#21462;&#24471;&#12487;&#12540;&#12479;&#12434;&#20316;&#26989;&#12501;&#12457;&#12523;&#12480;&#12395;CSV&#12391;&#20986;&#21147;
write.csv(ExifData, "ExifData.csv")

少しでも、あなたの解析が楽になりますように！！