R语言绘制不一样的条形图

绘制条形图的方法有很多，这里介绍如果用R语言绘制一个不一样的条形图
准备数据，这里为了方便，我们使用已经存在于gcookbook包中的一个数据集
首先需要调用该包，如果该包不存在，可以使用下面的方式安装该包

install.packages('gcookbook')

#调用该包
library(gcookbook) 
#查看该数据
cabbage_exp

绘制基本的条形图

ggplot(cabbage_exp,aes(x=Date, y=Weight, fill=Cultivar))+
  geom_bar(stat='identity',position="dodge")

#绘制堆积图

ggplot(cabbage_exp,aes(x=Date, y=Weight, fill=Cultivar))+
  geom_bar(stat='identity')

#成圈

ggplot(cabbage_exp,aes(x=Date, y=Weight, fill=Cultivar))+
  geom_bar(stat='identity')+ coord_polar(theta = 'y')

#加标签

ggplot(cabbage_exp,aes(x=Date, y=Weight, fill=Cultivar))+
  geom_bar(stat='identity')+ coord_polar(theta = 'y')+
  geom_text(hjust=1,size=3,aes(x=Date,y=0,
                               label=Date,color=Date))

去x轴和y轴的标签，背景，网格等

ggplot(cabbage_exp,aes(x=Date, y=Weight, fill=Cultivar))+
  geom_bar(stat='identity')+ coord_polar(theta = 'y')+
  geom_text(hjust=1,size=3,aes(x=Date,y=0,
                                 label=Date,color=Date))+
  labs(x='',y='')+theme(axis.text = element_blank(), #去刻度标签
                        axis.title = element_blank(), #去标题
                        axis.ticks = element_blank(), #去刻度
                        panel.background = element_blank(), #去背景
                        panel.grid = element_blank(), #去网格线
                        axis.text.y=element_blank())

去图例

ggplot(cabbage_exp,aes(x=Date, y=Weight, fill=Cultivar))+
  geom_bar(stat='identity')+ coord_polar(theta = 'y')+
  geom_text(hjust=1,size=3,aes(x=Date,y=0,
                               label=Date,color=Date))+
  labs(x='',y='')+theme(axis.text = element_blank(), #去刻度标签
                        legend.position = 'none',
                        axis.title = element_blank(), #去标题
                        axis.ticks = element_blank(), #去刻度
                        panel.background = element_blank(), #去背景
                        panel.grid = element_blank(), #去网格线
                        axis.text.y=element_blank())

#其他
南丁格尔玫瑰图

ggplot(cabbage_exp,aes(x=Date, y=Weight, fill=Cultivar))+
  geom_bar(stat='identity')+ coord_polar(theta = 'x')