如何更改R中`densCols`的默认蓝色？

Question

默认情况下，

var mag2 = mousePosition.x * mousePosition.x + mousePosition.y * mousePosition.y; var radius = 0.3; if(mag2 < radius){ if(mousePosition.x <=0 && mousePosition.y >=0){ //1 quadrant camOffset.x += ((mousePosition.x - camOffset.x)-radius) * 0.1; camOffset.y += ((mousePosition.y - camOffset.y)+radius) * 0.1; }else if(mousePosition.x >0 && mousePosition.y >=0){ //2 quadrant camOffset.x += ((mousePosition.x - camOffset.x)+radius) * 0.1; camOffset.y += ((mousePosition.y - camOffset.y)+radius) * 0.1; }else if(mousePosition.x <=0 && mousePosition.y <0){ camOffset.x += ((mousePosition.x - camOffset.x)-radius) * 0.1; camOffset.y += ((mousePosition.y - camOffset.y)-radius) * 0.1; }else if(mousePosition.x >0 && mousePosition.y <0){ camOffset.x += ((mousePosition.x - camOffset.x)+radius) * 0.1; camOffset.y += ((mousePosition.y - camOffset.y)-radius) * 0.1; } camera.position.x += camOffset.x * 30; camera.position.y += camOffset.y * 30; }else{ camOffset.x += (mousePosition.x - camOffset.x) * 0.1; camOffset.y += (mousePosition.y - camOffset.y) * 0.1; camera.position.x += camOffset.x * 30; camera.position.y += camOffset.y * 30; } 作为R基础中densCols的一部分，会显示由grDevices确定的蓝色。我想知道是否有可能在保持blues9效果的同时将blues9改为任何不同的颜色？

注意，我需要一种颜色。

例如，我们如何更改以下R代码给出的图中的蓝色颜色：

densCols

Answer 1

请参阅?colorRampPalette。您可以将任何颜色名称或值的向量传递给函数。默认blues9[-(1:3)]只传递颜色值为blues9的9元素矢量的最后6个元素。

例如，使用Greens中的RColorBrewer调色板：

library(RColorBrewer)
plot(x, y, col = densCols(x, y, colramp = colorRampPalette(brewer.pal(6, "Greens"))))