想做这样的BarChart  

其实就是条形图 表示二分类的  颜色不同的表示分错

对R基本不懂，求人给的代码

roc <- as.data.frame(logistic_ROC)
p <- ggplot(roc, aes(x=label,
                     xlab="Bar Chart",
                     y=Radscore,
                     fill=Levels,
                     color=c("1","4"),
                     width=0.8)) +
  geom_bar(stat="identity", color="white", alpha=0.5)
跑不出来图 请老师们给指个方向 我查了网上没有这样图的代码 谢谢啦

这是数据（roc）




求老师指点 怎么看哪里的问题 怎么画出这样的图  谢谢老师！！！