Rでコマンド：カラーパレット作成の参考になるかも「colorRampPaletteAlpha」のコード

カラーパレット作成の参考になるかも「colorRampPaletteAlpha」のコードを紹介します。取得コードは#の後ろ2つが透明度を示しています。

・GitHub「colorRampPaletteAlpha」のページ
　https://github.com/mylesmharrison/colorRampPaletteAlpha

実行コマンドはR version 4.2.2で確認しています。

実行コマンド

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

#Github&#12363;&#12425;&#12477;&#12540;&#12473;&#12434;&#35501;&#12415;&#36796;&#12415;
install.packages("devtools")
devtools::source_url("https://raw.githubusercontent.com/mylesmharrison/colorRampPaletteAlpha/master/colorRampPaletteAlpha.R")

#scales&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
#show_col&#12467;&#12510;&#12531;&#12489;&#12391;&#12503;&#12525;&#12483;&#12488;&#12375;&#12414;&#12377;
library("scales")

#&#25351;&#23450;&#12375;&#12383;&#36879;&#26126;&#24230;&#12392;&#33394;&#12398;&#12459;&#12521;&#12540;&#12467;&#12540;&#12489;&#12434;&#21462;&#24471;:addalpha&#12467;&#12510;&#12531;&#12489;
#&#36879;&#26126;&#24230;&#12398;&#25351;&#23450;:alpha&#12458;&#12503;&#12471;&#12519;&#12531;
show_col(addalpha("red", alpha = 0.1))
###&#12467;&#12540;&#12489;&#20869;&#23481;#####
function(colors, alpha=1.0) {
  r <- col2rgb(colors, alpha=T)
  # Apply alpha
  r[4,] <- alpha*255
  r <- r/255.0
  return(rgb(r[1,], r[2,], r[3,], r[4,]))
}

#&#25351;&#23450;&#12375;&#12383;&#33394;&#12391;&#12464;&#12521;&#12487;&#12540;&#12471;&#12519;&#12531;&#12497;&#12524;&#12483;&#12488;&#12434;&#20316;&#25104;:colorRampPaletteAlpha&#12467;&#12510;&#12531;&#12489;
#&#35036;&#23436;&#26041;&#27861;&#12434;&#25351;&#23450;:interpolate&#12458;&#12503;&#12471;&#12519;&#12531;;"spline","linear"&#12364;&#25351;&#23450;&#21487;&#33021;
show_col(colorRampPaletteAlpha(c("red", "yellow", "blue"), n = 20, interpolate = "spline"))
###&#12467;&#12540;&#12489;&#20869;&#23481;#####
function(colors, n=32, interpolate='linear') {
  # Create the color ramp normally
  cr <- colorRampPalette(colors, interpolate=interpolate)(n)
  # Find the alpha channel
  a <- col2rgb(colors, alpha=T)[4,]
  # Interpolate
  if (interpolate=='linear') {
    l <- approx(a, n=n)
  } else {
    l <- spline(a, n=n)
  }
  l$y[l$y < 255] <- 255 # Clamp if spline is < 255
  cr <- addalpha(cr, l$y/255.0)
  return(cr)
}