색상 16 진 코드 행렬 플롯

Question

3 가지 색상이 희미 해지는 상자를 그려 봅니다. 왼쪽 상단은 빨간색, 오른쪽 상단은 파란색, 하단은 흰색이어야합니다.

##Change from red to blue as move left to right, fade to white as move from top to bottom 

data<-matrix(1:(255*255),ncol=255,nrow=255) 

rb<-colorRampPalette(c("red","blue"))(255) 

colsMat<-matrix(nrow=255,ncol=255) 

for(col in rb){ 
    idx<-which(rb==col) 
    colsMat[idx,]<-colorRampPalette(c(col,"blue"))(255) 
} 

colsVec<-as.vector(colsMat) 

image(data,col=colsVec,xaxt="n",yaxt="n") 

내가이 빨간색에서 파란색으로 가고 얻을 수 있습니다 (하지만 흰색을 추가해야합니다) 다음과 같이 :

data<-matrix(1:255,ncol=255,nrow=255) 
image(data,col=rb,xaxt="n",yaxt="n") 

Answer 1

rb<-colorRampPalette(c("red","blue"))(255) 
trans<-sapply(seq(from=0,to=1,length.out=255),function(op) rgb(1,1,1,op)) 

image(matrix(1:255,ncol=255,nrow=255),col=rb,xaxt="n",yaxt="n") 
par(new=T) 
image(t(matrix(255:1,ncol=255,nrow=255)),col=trans,xaxt="n",yaxt="n")