Rで解析：画像の中央を丸形クリップ「cropcircles」パッケージ

画像の中央を丸形に切り抜くパッケージの紹介です。「ggimage」パッケージと使用すると便利だと思います。

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

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

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

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

実行コマンド

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

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

###&#12487;&#12540;&#12479;&#20363;&#12398;&#20316;&#25104;#####
#ggimage&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
#ggplot&#12391;&#30011;&#20687;&#12434;&#12503;&#12525;&#12483;&#12488;&#12377;&#12427;&#12398;&#12395;&#20415;&#21033;&#12394;&#12497;&#12483;&#12465;&#12540;&#12472;
if(!require("ggimage", quietly = TRUE)){
  install.packages("ggimage");require("ggimage")
}
#tidyverse&#12497;&#12483;&#12465;&#12540;&#12472;&#12364;&#12394;&#12369;&#12428;&#12400;&#12452;&#12531;&#12473;&#12488;&#12540;&#12523;
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}

#&#30011;&#20687;&#12398;&#28310;&#20633;
#&#12363;&#12425;&#12384;&#12395;&#12356;&#12356;&#12418;&#12398;&#12496;&#12490;&#12540;
Image <- "https://www.karada-good.net/wp/wp-content/uploads/2017/02/71a12352149ee8527b2463b5e524b24c.jpg"
########

#&#30011;&#20687;&#12434;&#20870;&#24418;&#12395;&#20999;&#12426;&#25244;&#12367;:circle_crop&#12467;&#12510;&#12531;&#12489;
#&#20999;&#12426;&#25244;&#12365;&#24460;&#12398;&#30011;&#20687;&#12398;&#20445;&#23384;&#22580;&#25152;&#12364;&#32080;&#26524;&#12395;&#36820;&#12373;&#12428;&#12414;&#12377;
#&#20445;&#23384;&#22580;&#25152;&#12398;&#25351;&#23450;:to&#12458;&#12503;&#12471;&#12519;&#12531;;&#35373;&#23450;&#12364;&#28961;&#12369;&#12428;&#12400;&#19968;&#26178;&#12501;&#12457;&#12523;&#12480;&#12395;&#20445;&#23384;&#12373;&#12428;&#12414;&#12377;
ImageData <- circle_crop(Image, to = NULL)

#&#30011;&#20687;&#12434;&#12503;&#12525;&#12483;&#12488;
ggplot() +
  geom_image(aes(1.5, 1, image = ImageData), size = 0.3) +
  geom_image(aes(1.5, 1.1, image = Image), size = 0.5) +
  xlim(1, 2) +
  ylim(0.9, 1.2)

出力例

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