ggplot箱线图+填充+颜色布鲁尔光谱

Question

我似乎无法使用 color Brewer 用连续值填充箱线图，而且我知道它一定只是在某个地方进行简单的语法交换，因为我可以根据连续值调整框的轮廓。这是我正在使用的数据：

data <- data.frame(
    value = sample(1:50),
    animals = sample(c("cat","dog","zebra"), 50, replace = TRUE),
    region = sample(c("forest","desert","tundra"), 50, replace = TRUE)
)

我想制作一个镶板箱线图，按中值“值”排序，每个框的颜色填充深度随着“值”的增加而增加（我知道这是多余的，但为了示例请耐心等待）

（数据排序）：

orderindex <- order(as.numeric(by(data$value, data$animals, median)))
data$animals <- ordered(data$animals, levels=levels(data$animals)[orderindex])

如果我用面板创建箱线图，我可以调整轮廓的颜色：

library(ggplot2)
first <- qplot(animals, value, data = data, colour=animals)
second <- first + geom_boxplot() + facet_grid(~region)
third <- second + scale_colour_brewer()
print(third)

但我想对轮廓进行同样的操作，但要填充每个框（因此随着“值”的增加，每个框都会变暗）。我认为这可能是将“scale_colour_brewer()”参数放在 geom_boxplot 的美学参数中的问题，即

second <- first + geom_boxplot(aes(scale_colour_brewer())) + facet_grid(~region)

但这似乎并不能解决问题。我知道这是这个“scale_colour_brewer”参数的定位问题；我只是不知道它去哪里了！

（这里有一个类似的问题，但它不完全是我想要的，因为盒子的颜色不会沿着具有某些连续值的光谱/梯度增加；看起来这些值基本上是因素：将颜色添加到boxplot - “连续值提供给离散比例”错误，并且 ggplot 站点上带有 cars 包的示例： http://docs.ggplot2.org/0.9.3.1/geom_boxplot.html当我设置时似乎不起作用“填充”到“值”...我收到错误：单位错误（tic_pos.c，“mm”）：“x”和“单位”必须具有长度> 0））

Answer 1

如果您需要为箱线图设置填充，则不要color=animals使用fill=animals 并以相同的方式替换scale_color_brewer()为scale_fill_brewer()。

qplot(animals, value, data = data, fill=animals)+ 
  geom_boxplot() + facet_grid(~region) + scale_fill_brewer()