Rと解析：知らない色に出会えるかも「colormod」パッケージ

#パッケージのインストール
install.packages("devtools")
devtools::install_github("briandconnelly/colormod")

#パッケージの読み込み
library("colormod")
#パッケージの読み込み
library("colormod")
#scalesパッケージがなければインストール
if(!require("scales", quietly = TRUE)){
  install.packages("scales");require("scales")
}

#指定した色を基準とした明るさの調整:darkenコマンド
#調整:amountオプション;-1から1
#amountオプションの値が逆のdarkenコマンドがあります
par(mfrow = c(3, 5))
#明るさの調整,-1から1を0.2刻みで指定
LightVec <- seq(-1, 1, 0.2)
for(n in seq(length(LightVec))){
  
  show_col(darken("#4b61ba", amount = LightVec[n]))
  
}

#指定した色を基準とした彩度の調整:saturateコマンド
#調整:amountオプション;-1から1
#amountオプションの値が逆のdesaturateコマンドがあります
par(mfrow = c(3, 5))
#明るさの調整,-1から1を0.2刻みで指定
LightVec <- seq(-1, 1, 0.2)
for(n in seq(length(LightVec))){
  
  show_col(saturate("#4b61ba", amount = LightVec[n]))
  
}

#指定した色を基準とした反転:invertコマンド
#調整:amountオプション;0から1
#amountオプションの値が逆のdesaturateコマンドがあります
par(mfrow = c(2, 5))
#色の指定
ColVec <- c("#d9bb9c", "#685432", "#4b61ba", "#8a5136", "#6e5f72")
#上段がオリジナル,下段が反転
for(n in seq(ColVec)){
  
  show_col(ColVec[n])
  
}
for(n in seq(ColVec)){