如何在ggplot2中设置scale_colour_brewer（）的颜色范围？ （选择调色板）

Question

对不起，由于我在这个网站上的声誉有限，我无法提供图片......

我使用以下代码在R中生成折线图：

p <- ggplot()+
geom_line(data=data, aes(x, y, color=Label))+ scale_colour_brewer(palette="Oranges")

我使用了调色板“Oranges”，因为我想生成一系列具有相似但不同颜色的线条。

但是，低/高范围的颜色太浅，所以我想设置调色板的限制以避免发白。

我知道我应该指定像scale_color_gradient(low = "green", high = "red")这样的东西，但是如何找到给定调色板的指定颜色？

非常感谢！

Answer 1

由于你有一个离散比例，你应该能够手动创建颜色集并使用scale_color_manual而不会有太多麻烦。

library(ggplot2)
theme_set(theme_bw())
fake_data = data.frame(
    x = rnorm(42), 
    y = rnorm(42), 
    Label = rep(LETTERS[1:7], each = 6))

p_too_light <- ggplot()+ geom_line(data=fake_data, aes(x, y, color=Label))+ 
  scale_colour_brewer(palette="Oranges")
p_too_light

现在使用brewer.pal和http://www.datavis.ca/sasmac/brewerpal.html。

library(RColorBrewer)
my_orange = brewer.pal(n = 9, "Oranges")[3:9] #there are 9, I exluded the two lighter hues

p_better <- ggplot()+ geom_line(data=fake_data, aes(x, y, color=Label))+ scale_colour_manual(values=my_orange)
p_better

如果你有超过6个类别，你可以使用colorRampPalette和之前brewer.pal调用的边界颜色。但是，现在选择调色板方案需要更多考虑（也许为什么ggplot2不会自动为离散比例执行此操作）。

fake_data2 = data.frame(
  x = rnorm(140), 
  y = rnorm(140), 
  Label = rep(LETTERS[1:20], each = 7))

orange_palette = colorRampPalette(c(my_orange[1], my_orange[4], my_orange[6]), space = "Lab")
my_orange2 = orange_palette(20)

p_20cat <- ggplot()+ geom_line(data=fake_data2, aes(x, y, color=Label))+
  scale_colour_manual(values=my_orange2)
p_20cat