Rで解析：プロットからカラーデータを取得する例の紹介

プロットからカラーコードを取得する簡単な例を紹介します。使用パッケージは「grid」、「KaradaColor」パッケージです。ポイントは「grid」パッケージです。忘れないように記録です。

各パッケージは紹介時点で最新、実行コマンドはR version 4.2.3で確認しています。

実行コマンド

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

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

#&#25351;&#23450;&#12375;&#12383;&#33394;&#12391;&#12488;&#12521;&#12452;&#12450;&#12489;&#12539;&#12459;&#12521;&#12540;&#12434;&#20316;&#25104;:KaradaColor::kg_create_tc&#12467;&#12510;&#12531;&#12489;
#&#12463;&#12522;&#12483;&#12463;&#12375;&#12383;&#24231;&#27161;&#12363;&#12425;&#21462;&#24471;&#12377;&#12427;&#12487;&#12540;&#12479;&#12434;&#20316;&#25104;
img <- kg_create_tc(basecols = "green")

#&#25551;&#20889;:grid::grid.newpage, grid::grid.raster&#12467;&#12510;&#12531;&#12489;
grid.newpage()
grid.raster(as.matrix(t(img)), width = 1,
            height = unit(0.5, "npc"), interpolate = F)

#&#12463;&#12522;&#12483;&#12463;&#12487;&#12540;&#12479;&#12398;&#21462;&#24471;:grid::grid.locator&#12467;&#12510;&#12531;&#12489;
GetValue <- grid.locator("npc")

#&#12487;&#12540;&#12479;&#12363;&#12425;&#33394;&#12467;&#12540;&#12489;&#12434;&#21462;&#24471;
col_code <- img[trunc(GetValue$x * nrow(img) + unit(1, "npc")), 1]

#&#33394;&#12467;&#12540;&#12489;&#12434;&#12467;&#12531;&#12477;&#12540;&#12523;&#12395;&#34920;&#31034;:KaradaColor::kg_show_console&#12467;&#12510;&#12531;&#12489;
kg_show_console(col_code)

出力例

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