[r] 색상 1 및 색상 2 범위의 n 색상 그라데이션

저는 종종 ggplot2그라디언트를 멋지게 만드는 작업을 합니다 ( 예를 보려면 여기를 클릭하십시오 ). 베이스에서 작업 할 필요가 scales있고 거기에서 컬러 그래디언트를 만드는데도 사용할 수 있다고 생각 하지만 방법에 대해 심각하게 생각하지 않습니다. 기본 목표는 x 색상에서 y 색상까지의 n 색상 팔레트를 생성하는 것입니다. 솔루션은 기본에서 작동해야합니다. 이것은 시작점 이었지만 n을 입력 할 곳이 없습니다.

 scale_colour_gradientn(colours=c("red", "blue"))

나는 잘 알고 있습니다 :

brewer.pal(8, "Spectral") 

에서 RColorBrewer. 나는 ggplot2이 두 가지 색상이 있고 15 가지 색상이 필요하다는 그라디언트를 처리 하는 방법과 유사한 접근 방식을 더 찾고 있습니다 . 어떻게 할 수 있습니까?

답변

colfunc <- colorRampPalette(c("black", "white"))
colfunc(10)
# [1] "#000000" "#1C1C1C" "#383838" "#555555" "#717171" "#8D8D8D" "#AAAAAA"
# [8] "#C6C6C6" "#E2E2E2" "#FFFFFF"

plot(rep(1,10),col=colfunc(10),pch=19,cex=3)

colfunc<-colorRampPalette(c("red","yellow","springgreen","royalblue"))
plot(rep(1,50),col=(colfunc(50)), pch=19,cex=2)

color.gradient <- function(x, colors=c("red","yellow","green"), colsteps=100) {
  return( colorRampPalette(colors) (colsteps) [ findInterval(x, seq(min(x),max(x), length.out=colsteps)) ] )
}
x <- c((1:100)^2, (100:1)^2)
plot(x,col=color.gradient(x), pch=19,cex=2)

palette(gray.colors(10, 0.9, 0.4))
plot(rep(1,10),col=1:10,pch=19,cex=3))