R语言做帕累托图？

帕累托图以Vilfredo Pareto命名的Pareto图表是一种同时包含条形图和折线图的图表，其中各个值按降序由条形表示，累计总数或者累计百分比由直线表示。

【需要加入数据人圈子，请加微信：luqin360】

问题定义：想了解各个产品的销售额，并找到营销销售额的关键产品。

解决方案：针对这个问题，可以采用帕累托可视化分析，非常直观有效地解决这个问题。

R语言绘制帕累托图。

参考代码：

library(pacman) # R包管理器
p_load(qcc) # 加载qcc包，若是没有，就安装并加载

# 数据准备
Sales <- c(600, 400, 900, 300, 200)
names(Sales) <- c('A产品', 'B产品', 'C产品', 'D产品', 'E产品')

# 帕累托绘制
pareto.chart(
  Sales, 
  ylab="销售额",  # 左边的Label
  col=heat.colors(length(Sales)), # 颜色设置
  cumperc = seq(0, 100, by = 5),  # 右边的累积百分设置 
  ylab2 = "累积贡献度", # 邮编的Label
  main = "各产品线的销售额和累积贡献度帕累托图" # 标题
)

结果如下：

结论：

C产品，A产品和B产品，前三个产品给销售额贡献了80%的力量。

如果文章对您有用，请点赞，并且分享给您的朋友或者同事。
您任何问题或者想法，请留言和评论。

我们创建数据人网http://shujuren.org，它是数据人的家园，一个数据人学习，交流和分享的场所。欢迎您，大家一起来创造和分享数据知识，共建和共享数据智库，为智能化社会助力。

数据人才（ID：datarencai）

（一个帮助数据人才找工作的公众号，

也分享数据人才学习和生活的有趣事情。）

内容推荐