【原创】R语言吊炸天的图表技能秀，办公室菜鸟华丽转身“白骨精”

支持楼主发学习经验~

第二回：极具商务气质的条形图。
其实我越来越发现，我是在教大家美工，因为R语言画图部分实在是比较简单，基本上就是英文意思懂就可以写了，下面讲一讲怎么做条形图吧，先上图。

1. setwd("c:/r/")
   
2. library(ggplot2)
   
3. library(XLConnect)#本例用的是64位系统的xls导入包，32位系统请做相应修改
   
4. library(XLConnectJars)
   
5. library(plyr)
   
6. library(grid)
   
7. windowsFonts(CA=windowsFont("微软雅黑"),CB=windowsFont("黑体"),CC=windowsFont("Calibri"))
   
8. 
   
9. #颜色模板
   
10. focus = c("#52596B","#BD2010","#E7BA10","#639629","#9C55AD","#CDC3C6")
    
11. #导入数据
    
12. bb <- loadWorkbook("c:/r/test.xls")
    
13. aa <- readWorksheet(bb, sheet = "1", region = "A2:C14")
    
14. mydata <- rbind(
    
15.   data.frame(a = aa[, 1], b = aa[, 2], d = "余额"),
    
16.   data.frame(a = aa[, 1], b = aa[, 3], d = "增量")
    
17. 
    
18. )
    
19. 
    
20. 
    
21. #画图表-直方图
    
22. p<-ggplot(mydata, mapping = aes(x = a, y = b, fill = d))
    
23. p<-p+ geom_bar(stat ="identity", position = "dodge",width = 0.8)
    
24. p<-p+ scale_fill_manual(values = focus )#柱形图配色，这是FOCUS的经典配色
    
25. #p<-p+geom_text(aes(label=b),  vjust=-0.5,hjust=0.5,size=2.5,position=position_dodge(width = 1))  
    
26. p<-p+ggtitle("图1：江苏某银行部分地区存款情况（亿元）\n")#图表标题
    
27. p<-p+theme(panel.background=element_rect(fill="white"),#图表背景
    
28.            panel.grid.major.x=element_line(colour="grey"),#X主网格颜色
    
29.            #panel.grid.minor.x=element_line(colour="grey"),#X次网格颜色
    
30.            plot.title=element_text(size=12.5,colour="#000000",hjust=0,family = "CA"),#图表标题外观
    
31.            axis.text.y=element_text(family = "CA",size=rel(1.2)),#y轴字体
    
32.            axis.text.x=element_text(family = "CC",size=rel(1.2)),#x轴字体
    
33.            axis.line=element_line(colour="grey"),#坐标轴颜色
    
34.            axis.title.y=element_blank(),#y轴标题为空
    
35.            axis.title.x=element_text(hjust = 0,family = "CB",size=rel(0.9)),#x轴标题字体
    
36.            legend.title=element_blank(),#图例标题字体
    
37.            legend.text=element_text(family = "CA",size=rel(0.8))#图例字体
    
38.            )
    
39. p<-p+coord_flip()+scale_y_continuous(name="资料来源:某银行年度报表",breaks = c(seq.int(0,2000,200)))
    
40. p

复制代码

其实目前我觉得如果是仅仅做报表的话，Excel，SQL Server那个系列，SAP BO， Oracle等这些都可以，所以R做报表的优势请楼主在帮忙分析，另外由于不能离开R的环境，那是否可以把这个报表放到Web上，供别人查看呢？

xiaocai_82 发表于 2016-5-27 23:21
R语言制作图表的步骤很简单，一般无非是以下流程，很多人想不明白为什么必须要用R语言来画图，有两个优点： ...

Excel可以作地图的,请参见刘万祥老师的Excel用地图说话

fafazai 发表于 2016-5-29 12:45
其实目前我觉得如果是仅仅做报表的话，Excel，SQL Server那个系列，SAP BO， Oracle等这些都可以，所以R做报 ...

跟EXCEL比强在数据处理，跟其他数据库比强在图形展示。仅做图表方面，可能杀鸡用牛刀，但所有东西都是自动化的不是很好，一张报表好做，难得是做数以百计的报表，几十年如一日的做报表，这时候R语言可以将这些机械的动作都程序化，一天节省一小时做表，那么日积月累时间就很可观了。

第三回：极简代码画出股票走势图。这个例子让我认识到r语言package的强大，quantmod包可以快速获得股票的行情数据，包括全球各大股市的，代码简单的让人发指了。

1. library(quantmod)
   
2. getSymbols("^SSEc")
   
3. candleChart(to.monthly(SSEC),theme = "white")

复制代码

xiaocai_82 发表于 2016-5-30 20:05
第三回：极简代码画出股票走势图。这个例子让我认识到r语言package的强大，quantmod包可以快速获得股票的行 ...

下面是部分综合指数的代码，供参考。

xiaocai_82 发表于 2016-5-30 20:11
下面是部分综合指数的代码，供参考。

谢谢楼主分享，正在学习，你做的太精彩了，赞一个！！

好文共賞