柱状图
绘制柱状图
数据准备
这里是ggplot2中的diamonds数据框中的随机抽取100条数据：
library(ggplot2)
set.seed(100)
small<-diamonds[sample(nrow(diamonds),100),]
small<-within(small,{
obj<-NA
val<-NA
obj<-c("a","b","c","d","e","f",rep(NA,94))
val<-c(2,1,3,4,7,5,rep(NA,94))}
)
画出初始图：
data1=na.omit(small[c("obj","val")])
ggplot(data=data1,mapping=aes(x=obj,y=val,fill=obj,group=factor(1)))+
geom_bar(stat="identity")
注释：
stat=”“identity”:指定了柱状图的高度（y）
fill=obj：填充的柱状图的颜色
修改柱状图的宽度
ggplot(data=data1,mapping=aes(x=obj,y=val,fill=obj,group=factor(1)))+
geom_bar(stat="identity",width=0.5)
注释：
width=0.5 
修改柱形图的顺序
data1<-within(data1,{
obj<-factor(obj,levels=c("e","f","b","c","d","a"))
})
ggplot(data=data1,mapping=aes(x=obj,y=val,fill=obj,group=factor(1)))+
geom_bar(stat="identity")
注释：
柱状图的顺序是根据因子水平顺序来排列的：
obj<-factor(obj,levels=c(“e”,”f”,”b”,”c”,”d”,”a”)) 
柱条上添加文字
ggplot(data=data1,mapping=aes(x=obj,y=val,fill=obj,group=factor(1)))+
geom_bar(stat="identity")+
geom_text(aes(label = val, vjust = -0.8, hjust = 0.5, color = obj), show.legend = TRUE)
注释：
vjust:柱条上文字的纵坐标的位置（垂直位置，以柱条顶面线为原点）
hjust:柱条上文字的横坐标的位置（水平位置，以柱条顶面线的中点为原点）
show.legend:此文本是否包含到图例之中（NA(default),FALSE,TRUE）
主题
这里需要先安装ggthemes包。
library(ggthemes)
ggplot(data=data1,mapping=aes(x=obj,y=val,fill=obj,group=factor(1)))+
geom_bar(stat="identity")+
geom_text(aes(label = val, vjust = -0.7, hjust = 0.5, color = obj), show.legend = TRUE)+
theme_economist()
注释：
在ggthemes中有很多的各种主题，在这里只使用了其中的theme_economist主题
对坐标轴进行限制
ggplot(data=data1,mapping=aes(x=obj,y=val,fill=obj,group=factor(1)))+
geom_bar(stat="identity")+
geom_text(aes(label = val, vjust = -0.7, hjust = 0.5, color = obj), show.legend = TRUE)+
theme_economist()+
ylim(min(data1$val,0)*1.1,max(data1$val)*1.1)
