r - 如何在ggplot2中设置固定的连续颜色值

Question

我正在绘制很多图形，我希望所有图形都具有相同的色标，以便我可以将它们相互比较。这是我的代码:

myPalette <- colorRampPalette(rev(brewer.pal(11, "Spectral")))
print(ggplot(mydata, aes(x= X, y= Y, colour= Z)) + geom_point(alpha=.5,size = 6) + scale_colour_gradientn(colours = myPalette(100)) + ylim(.1,.4) + xlim(1.5,2) + ggtitle(title))

有办法设置这个色阶吗？

Answer 1

我的理解正确吗？您有两个图，其中色标的值被映射到不同图上的不同颜色，因为这些图中没有相同的值。

library("ggplot2")
library("RColorBrewer")
ggplot(subset(mtcars, am==0), aes(x=wt, y=mpg, colour=carb)) + 
  geom_point(size=6)

ggplot(subset(mtcars, am==1), aes(x=wt, y=mpg, colour=carb)) + 
  geom_point(size=6)

在顶部的一个中，深蓝色为 1，浅蓝色为 4，而在底部的一个中，深蓝色(仍然)为 1，但浅蓝色现在为 8。

您可以通过为比例提供 limits 参数来修复颜色条的末端；它应该覆盖任何图中数据可以采用的整个范围。此外，您可以将此比例分配给一个变量并将其添加到所有绘图中(以减少冗余代码，以便定义仅在一个位置而不是在每个绘图中)。

myPalette <- colorRampPalette(rev(brewer.pal(11, "Spectral")))
sc <- scale_colour_gradientn(colours = myPalette(100), limits=c(1, 8))

ggplot(subset(mtcars, am==0), aes(x=wt, y=mpg, colour=carb)) + 
  geom_point(size=6) + sc

ggplot(subset(mtcars, am==1), aes(x=wt, y=mpg, colour=carb)) + 
  geom_point(size=6) + sc