如何在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