Rで解析：GUIで画像編集！！「magickGUI」パッケージ

画像編集の定番パッケージである「magick」パッケージの画像編集コマンドをGUIから操作できるパッケージの紹介です。全てのコマンドではありませんが、一部のコマンドの動きがわかる動画を作成しました。非常に面白いパッケージだと思います。

パッケージバージョンは1.3.1。実行コマンドはwindows 11のR version 4.3.1で確認しています。

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

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

# &#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
install.packages("magickGUI")

実行コマンド

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

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

# png&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
# png&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("png", quietly = TRUE)){
  install.packages("png");require("png")
}

# &#30011;&#20687;&#12398;&#35501;&#12415;&#36796;&#12415;:magick::image_read
# R&#12391;&#35299;&#26512;&#65306;&#30011;&#20687;&#25805;&#20316;&#12398;&#36914;&#21270;&#12300;magick&#12301;&#12497;&#12483;&#12465;&#12540;&#12472;
# https://www.karada-good.net/analyticsr/r-531/
Test <- image_read(system.file("img", "Rlogo.png", package="png"))

# &#25991;&#23383;&#12434;&#36861;&#21152;:interactive_annotate&#12467;&#12510;&#12531;&#12489;
# &#25991;&#23383;&#12398;&#35373;&#23450;:text&#12458;&#12503;&#12471;&#12519;&#12531;
interactive_annotate(image = Test,
                     text = "KARADA_GOOD")

# &#12412;&#12363;&#12375;&#35373;&#23450;:interactive_blur/interactive_motion_blur&#12467;&#12510;&#12531;&#12489;
interactive_blur(Test)
interactive_motion_blur(Test)

# &#32257;&#21462;&#12426;:interactive_charcoal&#12467;&#12510;&#12531;&#12489;
interactive_charcoal(Test)

# &#20999;&#12426;&#25244;&#12365;:interactive_crop&#12467;&#12510;&#12531;&#12489;
interactive_crop(Test)

# &#12473;&#12506;&#12483;&#12463;&#12523;&#38500;&#21435;:interactive_despeckle&#12467;&#12510;&#12531;&#12489;
interactive_despeckle(Test)

# &#12494;&#12452;&#12474;&#38500;&#21435;:interactive_reducenoise&#12467;&#12510;&#12531;&#12489;
interactive_reducenoise(Test)

# &#22615;&#12426;&#12388;&#12406;&#12375;:interactive_fill&#12467;&#12510;&#12531;&#12489;
# &#33394;&#12434;&#25351;&#23450;:color&#12458;&#12503;&#12471;&#12519;&#12531;
interactive_fill(Test, color = "yellow")

# &#29190;&#32302;&#20966;&#29702;:interactive_implode&#12467;&#12510;&#12531;&#12489;
interactive_implode(Test)

# &#26126;&#24230;,&#24425;&#24230;,&#33394;&#35519;&#12398;&#20966;&#29702;:interactive_modulate&#12467;&#12510;&#12531;&#12489;
interactive_modulate(Test)

# &#27833;&#32117;&#20966;&#29702;:interactive_oilpaint&#12467;&#12510;&#12531;&#12489;
interactive_oilpaint(Test)

# &#24433;&#20966;&#29702;:interactive_shade&#12467;&#12510;&#12531;&#12489;
interactive_shade(Test)

実行コマンドの紹介動画

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