柱状图r程序示例1

library(ggplot2)
#读取csv文件
MyData <- read.csv(file="j:/jinchukou.csv",header=TRUE,sep=",")
yyy=MyData$数值
zzz=MyData$类别
xxx=MyData$指标


bar<-ggplot(MyData,aes(x=xxx,y=yyy,fill=zzz)) + 
geom_bar(position='dodge', stat='identity',width=1) +
#scale_fill_discrete(labels=c("a","b"))
guides(fill=guide_legend(title=NULL))+#移除图例标题# 
geom_text(aes(y = yyy ,label = yyy),
angle=35,
size=5,
check_overlap =FALSE, 
position=position_dodge(0.8),alpha=0.8)
bar