我想绘制一个能够在三种颜色间渐变的方框。它应该在左上角为红色,在右上角为蓝色,在底部为白色。
这是我尝试过的:
##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")