05.第5课数据展现3柱形图点图饼图直方图案例销售可视化

1、用 R 代码实现本周 PPT 第 111 页上下两幅图效果（形状，颜色等）越接近越好，提交你的代码，和结果抓图提示：这道题目不容易，可能需要综合运用比较多的知识，大家可以阅读R Graphic Cookbook或其它 R 作图的书，扩展知识面，多搜索，多和同学交流，可以更快做出来解答：本次作业参考了其他同学的不少做法，但是按的做法每次数据变化都要进行不少的调整，非程序员解决之道，因此本次作业使用 JSON 数据设计了数据格式，作为案例本次解决方案可向MongoDB 的方向延伸。1 数据结构id: 3,/数据ver: verson3, /版本信息created: 2012-08-15 15:20

2、:30,/创建日期 length: 50,/长度content: /内容tile: Fist,/标题auth:mary, /作者 modi:martin,/协助修改者 body: aaaa.,/内容uptime: 2012-10-18 11:11：30,/修改时间 lsp: 0,/上次文本起始偏移量 默认-1lep: 20, /上次文本结束偏移量 默认-1 csp: 0, /文本起始偏移量cep: 20, /文本结束偏移量weight: 3 /权重 体现本段文字的时间价值，其他略.,2 程序require(RJSONIO)jsondata1 - fromJSON(paste(readLines

3、(1.json),collapse=) jsondata2 - fromJSON(paste(readLines(2.json),collapse=) jsondata3 - fromJSON(paste(readLines(3.json),collapse=)jsondata4 - fromJSON(paste(readLines(4.json),collapse=)draw 1) & (contenti$lsp =0)polle - 180polygon(c(xaxl-1,xaxl-1,xaxl,xaxl),-c(contenti$lsp,contenti$lep,contenti$cep

4、,contenti$csp), col=colorcontenti$auth,density=c(100),angle = c(-polle, polle)if (!polyflag)lines(c(xaxl,xaxl),-c(contenti$csp,contenti$cep), col=linecolorcontenti$auth,lwd=3)maxlen - max(jsondata1$length,jsondata2$length,jsondata3$length,jsondata4$length)linecolor - c(mary=#f06705,suzanne=#32b7fa,m

5、artin=#7aeb2f) color - c(mary = #934726,suzanne = #2c678e,martin =#4c752f) windowsFonts(A=宋体)par(family=A,font=2); #选择字体为宋体 par(bg=grey27);#设置背景色 #par(mfrow=c(2,1)plot(0,0,xlim=c(0,4.3),ylim=c(-maxlen,10),axes=F,pch=,ann=F);#ann 控制默认的标题和tx=c(1:4);ty=c(6.4);text(tx,ty,labels=c(paste(ver,1:4,sep=),cex=1,col=white);text(0,-c(maxlen-20,maxlen-10,maxlen),labels=c(mary,suzanne,martin),col=c(#D95F02,#2B8CBE,#6CD02A),cex=1.3,adj=0);draw(jsondata1,1,T)draw(jsondata2,2,T) draw(jsondata3,3,T) draw(jsond