将颜色添加到百分比直方图R

我有一个数据集，其中已经有我将使用的内置百分比，我只想将它们绘制在直方图中

数据集如下所示：

Drug    Percentage
Quinolone   44.4
Cephalosporins  33.3
Piperacillin/Tazobactam 18.5
Metronizadole   33.3
Vancomycin  11

library(ggplot2)
cbPalette6 <- c("#E69F00", "#009E73", "#F0E442", "#D55E00", "#CC79A7")
df <- read.table("reports.txt", stringsAsFactors = F, sep = '\t', header = T)
ggplot(df, aes(x=Drug, y=Percentage, colour=Drug, fill=Drug, group=Drug, binwidth=10)) +
    ggtitle("Previous semester antibiotic treatment") +
    theme_bw() +
    theme(axis.line = element_line(size=1, colour = "black"),
          panel.grid.major = element_line(colour = "#D2D2D2"),
          panel.grid.minor = element_blank(),
          panel.grid.major.x = element_blank(),
          panel.border = element_blank(), panel.background = element_blank(),
          plot.title = element_text(size = 14, family = "Tahoma", face = "bold", hjust=0.5),
          text=element_text(family="Tahoma"),
          axis.title.x = element_text(size=15),
          axis.text.x = element_blank(),
          axis.ticks.x = element_blank(),
          axis.title.y = element_text(size=15),
          axis.text.y = element_text(colour="black", size = 15)) +
    geom_bar(stat="identity") + 
    geom_text(aes(y=Percentage + 1), size = 6, color = 'black', label = df$Percentage) +
    scale_colour_manual(values=cbPalette6)

生成直方图的代码如下所示：

Drug    Percentage
Quinolone   44.4
Cephalosporins  33.3
Piperacillin/Tazobactam 18.5
Metronizadole   33.3
Vancomycin  11

library(ggplot2)
cbPalette6 <- c("#E69F00", "#009E73", "#F0E442", "#D55E00", "#CC79A7")
df <- read.table("reports.txt", stringsAsFactors = F, sep = '\t', header = T)
ggplot(df, aes(x=Drug, y=Percentage, colour=Drug, fill=Drug, group=Drug, binwidth=10)) +
    ggtitle("Previous semester antibiotic treatment") +
    theme_bw() +
    theme(axis.line = element_line(size=1, colour = "black"),
          panel.grid.major = element_line(colour = "#D2D2D2"),
          panel.grid.minor = element_blank(),
          panel.grid.major.x = element_blank(),
          panel.border = element_blank(), panel.background = element_blank(),
          plot.title = element_text(size = 14, family = "Tahoma", face = "bold", hjust=0.5),
          text=element_text(family="Tahoma"),
          axis.title.x = element_text(size=15),
          axis.text.x = element_blank(),
          axis.ticks.x = element_blank(),
          axis.title.y = element_text(size=15),
          axis.text.y = element_text(colour="black", size = 15)) +
    geom_bar(stat="identity") + 
    geom_text(aes(y=Percentage + 1), size = 6, color = 'black', label = df$Percentage) +
    scale_colour_manual(values=cbPalette6)

库（ggplot2）
cbPalette6是否要添加
scale\u fill\u手册（values=cbPalette6）
@RichardTelford yeap。就是那个！