RColorbrewer不会更改geom_bar上的绘图颜色-R

Question

我正在处理一个图，其中我的数据集是一列简单的数字，

count1 -> c(10,10,10,10,9,8,6,4,4,3,3,3) 

y轴为

，而y轴仅列出房间号。由于房间编号无关紧要，因此安排数据时应将count1的最高值放在左侧。我正在尝试使用一种调色板，该调色板将根据其编号为条形着色，即10比8更重要，比4更重要，等等。

我将列设置为as.numeric（count1），并尝试了一些方法。加载了RColorbrewer，我得到的是一些随机的，不好看的颜色，表明RColorbrewer根本没有激活。

这是我的情节代码，也许有人可以找到我的错误？我想房间号（x轴）的数据类型应该无关紧要。

ggplot(fumeNumber3, aes(x = reorder(Location, -count1), y = count1)) + 
        theme(axis.text.x = element_text(angle = 85, hjust = 1)) +
        geom_bar(stat = "identity", fill = (fumeNumber3$count1)) +
        labs(x = "Lab Location", y = "Number of Fume Hoods in lab") +
         scale_fill_brewer(palette = "Blues")