Rで解析：画像からカラーパレットを作成「MakeYourPalette」パッケージ

KMeansを利用して画像からカラーパレットを作成するパッケージの紹介です。画像はパソコンに保存されている保存場所だけでなく、URLでも指定できます。なお、画像のフォーマットは「jpeg」、「png」は確認しました。他フォーマットの画像は試していません。

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

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

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

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

実行コマンド

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

・参考画像：https://www.karada-good.net/wp/wp-content/uploads/2022/06/IMG_8456-320×427.jpg

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

#&#21442;&#32771;:&#12497;&#12477;&#12467;&#12531;&#20445;&#23384;&#12398;&#30011;&#20687;&#12501;&#12449;&#12452;&#12523;&#12434;&#35501;&#12415;&#36796;&#12415;
Image <- paste0(as.character(tkgetOpenFile(title = "&#30011;&#20687;&#12434;&#36984;&#25246;",
                                           filetypes = '{"&#30011;&#20687;&#12501;&#12449;&#12452;&#12523;" {".jeg"}}',
                                           initialfile = "*.*")))                  

#&#30011;&#20687;&#12363;&#12425;&#12459;&#12521;&#12540;&#12497;&#12524;&#12483;&#12488;&#12434;&#20316;&#25104;:MakePalette&#12467;&#12510;&#12531;&#12489;
#&#30011;&#20687;&#12434;&#25351;&#23450;:photo&#12458;&#12503;&#12471;&#12519;&#12531;
#&#20316;&#25104;&#12497;&#12524;&#12483;&#12488;&#25968;:n&#12458;&#12503;&#12471;&#12519;&#12531;
GetCol <- MakePalette(photo = Image, n = 8)
#URL&#12391;&#25351;&#23450;
#GetCol <- MakePalette("https://www.karada-good.net/wp/
#wp-content/uploads/2022/06/IMG_8456-320x427.jpg", n = 4)

#&#30906;&#35469;:&#12467;&#12531;&#12477;&#12540;&#12523;&#12395;&#33394;&#20184;&#12365;&#12391;&#34920;&#31034;&#12373;&#12428;&#12414;&#12377;
GetCol
<colors>
  #1F2E31FF #102C0BFF #C3D3E5FF #5A6669FF #5C5A42FF
  #BEBBACFF #59454BFF #789AC7FF 

###&#12362;&#12414;&#12369;:&#12459;&#12521;&#12540;&#12497;&#12524;&#12483;&#12488;&#12434;ggplot2&#12391;&#34920;&#31034;#####
#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")
}
#&#12487;&#12540;&#12479;&#12434;&#28310;&#20633;
ColData <- tibble(ColCode = factor(GetCol, levels = GetCol))
#&#12503;&#12525;&#12483;&#12488;
ggplot(ColData, aes(x = ColCode, fill = ColCode, label = ColCode)) +
  geom_bar() + geom_text(y = .5, angle = 90, color = "red", size = 10) + 
  scale_fill_manual(values = levels(ColData$ColCode),
                    guide = "none") +
  theme_void()