如何用R语言&EXCEL绘制瀑布图

这期内容当中小编将会给大家带来有关如何用R语言&EXCEL绘制瀑布图，文章内容丰富且以专业的角度为大家分析和叙述，阅读完这篇文章希望大家可以有所收获。

创新互联公司是一家集网站建设,沈阳企业网站建设,沈阳品牌网站建设,网站定制,沈阳网站建设报价,网络营销,网络优化,沈阳网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

瀑布图是反映在诸多原因和因素下，使得一个状态演变成另一个状态的过程图表，这个过程中我们可以了解哪些是导致该变化结果的主要因素，以及产生影响的强弱，R语言中一共有三个包可以做，它们分别是waterfall，waterfalls基于ggplot2绘图系统,rAmCharts(绘制动态交互瀑布图)，最后介绍如何用EXCEL绘制瀑布图。

一、waterfall包绘制

这个包绘制的是最简单的瀑布图，对图片的属性修改不够灵活，不推荐大家使用只做了解即可

library(waterfall)
mydata=data.frame(Item=as.factor(c('Before','Factor A','Factor B','Factor C','Factor D',
'Factor E','Factor F','Factor G')),
data=c(325,-32,-105,38,86,97,232,389))
waterfallchart(Item~data,data=mydata)

如何用R语言&EXCEL绘制瀑布图

二、waterfalls包

这个包是基于ggplot2编写的，因此ggplot2的所有函数及其扩展包中的函数都可以用来修饰瀑布图，另一个原因是这个包只有一个函数waterfallchart该函数包含了20几个参数基本满足了绘制瀑布图的要求，如果还想进一步对图片进行美化可以参考ggplot2族中的其他函数

library(waterfalls)
library(ggplot2)
library(ggthemes)
waterfall(.data = mydata ,
   rect_text_labels = paste(levels(mydata$Item),'\n',mydata$data),
      fill_colours = c('darkslateblue','chocolate','chocolate','chartreuse',
   'chartreuse','chartreuse','chartreuse','chartreuse'),
   calc_total = TRUE, total_rect_color = "darkslateblue",
   total_rect_text = paste('After','\n',sum(mydata$data)),
   total_rect_text_color = "black",
   total_axis_text = "After",
   rect_width = 0.9,
   draw_axis.x = "behind",
   rect_border = "white",
      fill_by_sign = FALSE)+
theme_map()+
geom_hline(yintercept = 0, colour = 'skyblue')

如何用R语言&EXCEL绘制瀑布图

三、rAmCharts

这个包可以做出动态的瀑布图，难点在于数据形式的构造，多出一列符号列

mydata=data.frame(label=c('Before','Factor A','Factor B','Factor C','Factor D',
   'Factor E','Factor F','Factor G','After'),
   value=c(325,32,105,38,86,97,232,389,1030),
        operation=c('total','minus','minus','plus','plus','plus','plus','plus','total'))
amWaterfall(data = mydata, show_values = TRUE

如何用R语言&EXCEL绘制瀑布图