Rで解析：ベーシックなカラーパレットです「colorRamps」パッケージ

#パッケージのインストール
install.packages("colorRamps")

#パッケージの読み込み
library("colorRamps")

##プロット準備
par(mfrow = c(12, 1), mar = c(0, 10, 1, 0))
n <- 100
########

#各カラーパレットのコマンド実行
for(i in 1:12){
  
  #blue2red
  image(1:n, 1, matrix(1:n, n), lwd = 2,
        col = blue2red(n), axes = FALSE,
        xlab = "", ylab = "",)
  mtext("blue2red", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2)  
  #blue2green
  image(1:n, 1, matrix(1:n, n),
        col = blue2green(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("blue2green", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2)  
  #green2red
  image(1:n, 1, matrix(1:n, n),
        col = green2red(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("green2red", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2) 
  #blue2yellow
  image(1:n, 1, matrix(1:n, n),
        col = blue2yellow(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("blue2yellow", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2) 
  #cyan2yellow
  image(1:n, 1, matrix(1:n, n),
        col = cyan2yellow(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("cyan2yellow", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2) 
  #magenta2green
  image(1:n, 1, matrix(1:n, n),
        col = magenta2green(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("magenta2green", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2) 
  #matlab.like
  image(1:n, 1, matrix(1:n, n),
        col = matlab.like(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("matlab.like", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2) 
  #matlab.like2
  image(1:n, 1, matrix(1:n, n),
        col = matlab.like2(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("matlab.like2", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2) 
  #blue2green2red
  image(1:n, 1, matrix(1:n, n),
        col = blue2green2red(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("blue2green2red", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2)
  #ygobb
  image(1:n, 1, matrix(1:n, n),
        col = ygobb(n), axes = FALSE,
        xlab = "", ylab = "")
  mtext("ygobb", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2)
  #primary.colors
  image(1:n, 1, matrix(1:n, n),
        col = primary.colors(100), axes = FALSE,
        xlab = "", ylab = "")
  mtext("primary.colors", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2)
  #rgb.tables
  image(1:n, 1, matrix(1:n, n),
        col = rgb.tables(n = n,
                         red = c(0.75, 0.25, 1),
                         green = c(0.5, 0.25, 1),
                         blue = c(0.25, 0.25, 1)), axes = FALSE,
        xlab = "", ylab = "")
  mtext("rgb.tables", line = 1, srt = -45,
        side = 2, cex.lab = 1, las = 2)
}