ggplot2 - scale_fill_brewer() не работает

Question

У меня есть следующие данные испытаний и график:

fixed <- rep(0.125,8)
fixed[,2] <- c("1","2","3","4","5","6","7","8")
colnames(fixed) <- c("Percentage", "Test")

p <- ggplot(fixed,aes(x=Test,y=Percentage))+
  geom_bar(stat="identity")+
  scale_y_continuous(limits = c(0, 1))+
  theme_bw()+
  xlab("Test")+
  ylab("Test")+
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_rect(fill = "grey92", colour = NA),
        plot.background = element_rect(fill = "grey92", colour = NA))+
  theme(aspect.ratio=1)+
  scale_fill_brewer(palette="Greens")

Однако я не понимаю, почему не работает последний аргумент для изменения цвета полос. Что я делаю неправильно?