Analysis in R: Presents an example of obtaining color data from a plot

Here is a simple example of how to get a color code from a plot. The packages used are “grid” and “KaradaColor”. The key is the “grid” package.

Each package is up to date at the time of introduction, and execution commands are verified with R version 4.2.3.

＜おすすめのRに関する書籍です＞

Rによるやさしい統計学 | 山田 剛史, 杉澤 武俊, 村井 潤一郎

Amazonで山田 剛史, 杉澤 武俊, 村井 潤一郎のRによるやさしい統計学。アマゾンならポイント還元本が多数。

www.amazon.co.jp

Example

See the command and package help for details.

#Install the grid package if it is not already present
if(!require("grid", quietly = TRUE)){
  install.packages("grid");require("grid")
}
#Install the KaradaColor package if it is not already present
if(!require("KaradaColor", quietly = TRUE)){
  install.packages("KaradaColor");require("grid")
}

#Create triad color with specified color:KaradaColor::kg_create_tc command
#Create data to be retrieved from clicked coordinates
img <- kg_create_tc(basecols = "green")

#Plot: grid::grid.newpage, grid::grid.raster command
grid.newpage()
grid.raster(as.matrix(t(img)), width = 1,
            height = unit(0.5, "npc"), interpolate = F)

#Capturing click data: grid::grid.locator command
GetValue <- grid.locator("npc")

#Get color code from data
col_code <- img[trunc(GetValue$x * nrow(img) + unit(1, "npc")), 1]

#Display color codes on console: KaradaColor::kg_show_console command
kg_show_console(col_code)

Output Example

I hope this makes your analysis a little easier !!

＜おすすめのRに関する書籍です＞

遺伝統計学の基礎―Rによる遺伝因子解析・遺伝子機能解析― | 山田 亮

Amazonで山田 亮の遺伝統計学の基礎―Rによる遺伝因子解析・遺伝子機能解析―。アマゾンならポイント還元本が多数。山田 亮作品ほか、お急ぎ便対象商品は当日お届けも可能。

www.amazon.co.jp