Excel中图表如下：
今天折腾了大半天，在ggplot2中，要不是堆积图要么就是非堆积的，没法像Excel中做到分组堆积(也许有办法，但我目前还不知道该如何实现-_-！）
只能是在R中做了个类似的，但问题很多。。。
R中图形如下：
因为是模拟出来的，还没法对A，B，C，D进行调整间隔，如果不看对应的Y轴标签无法很清淅的从图表上看出谁和谁是一组的
R中代码如下：
channel <- read.xlsx("c:/myR/channel.xlsx",sheetName="Sheet2",encoding="UTF-8")
ggplot(channel, aes(x = as.numeric(interaction(Left,Name)), y = Amount, fill =Type,group=Name)) #把x轴的显示的内容处理下分组序号
+ geom_bar(stat = "identity")
+ scale_x_continuous(breaks=c(1.5,3.5,5.5,7.5),labels=c("A","B","C","D"))#主要靠这里来定制X轴的显示内容，
+theme( panel.grid.major=element_blank(),panel.grid.minor=element_blank())
+coord_flip() #翻转如果不加这句则图像为柱状图
数据如下：
| Name | Type | Amount | Left |
| A | 期初库存 | 842 | L |
| A | 采购 | 96,907 | L |
| A | 期末库存 | 3,250 | R |
| A | 销售 | 94,541 | R |
| B | 期初库存 | 493 | L |
| B | 采购 | 58,210 | L |
| B | 期末库存 | 381 | R |
| B | 销售 | 58,321 | R |
| C | 期初库存 | 1,215 | L |
| C | 采购 | 56,999 | L |
| C | 期末库存 | 3,373 | R |
| C | 销售 | 54,540 | R |
| D | 期初库存 | 1,293 | L |
| D | 采购 | 56,699 | L |
| D | 期末库存 | 6,206 | R |
| D | 销售 | 51,785 | R |
结果并不如意，或许还有好办法，再研究研究。。。。
原文：http://www.cnblogs.com/LearningForR/p/4648777.html