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)
(一个帮助数据人才找工作的公众号,
也分享数据人才学习和生活的有趣事情。)
内容推荐
请关注“恒诺新知”微信公众号,感谢“R语言“,”数据那些事儿“,”老俊俊的生信笔记“,”冷🈚️思“,“珞珈R”,“生信星球”的支持!