R语言—帕累托图

本文的主要目的有两个一个是学习如何在R中绘制帕累托图,另一个是如何绘制双坐标图,其中前三个例子是用绘制双坐标的方式绘制帕累托图的,其余为直接生成的帕累托图

@ 不用包

par(mar=c(5,5,4,5)+0.1) bar <- barplot(absolute,ylab="总数",col="skyblue",col.axis="skyblue",col.lab="skyblue") mtext(LETTERS[1:8],side=1,line=1,at=bar,col="black") #mtext(" ",side=1,line=3,col="black") par(new=T) plot(bar,cum_per,axes=F,xlab="",ylab="",col="red",type="b") axis(4,col="red",col.ticks="red",col.axis="red") mtext("累计百分比%",side=4,line=3,col="red") title(main = '帕累托图')

@ plotix

library(plotrix) type <- 1:8 absolute <- c(15,18,23,28,18,9,7,13) cum_per <- cumsum(absolute)/sum(absolute) twoord.plot(lx = type, ly = absolute, rx = type, ry = cum_per, type=c('bar','l'), lcol = 'skyblue', rcol = 'red', ylab = '总数', rylab = '累计百分比%', main = '帕累托图', xtickpos=type, xticklab = LETTERS[1:8])

@ TeachingDemos包

par(mar=c(5,5,4,5)+0.1) library(TeachingDemos) bar <- barplot(absolute,ylab="总数",col="skyblue",col.axis="skyblue",col.lab="skyblue") updateusr(1:2,range(min(absolute),max(absolute)),1:2,range(min(cum_per), max(cum_per))) lines(bar,cum_per,type="b",col="red") axis(4,col="red",col.ticks="red",col.axis="red") mtext("累计百分比%",side=4,line=3,col="red") mtext(LETTERS[1:8],side=1,line=1,at=bar,col="black") title(main = '帕累托图')

@ qcc包

library(qcc) absolute <- c(15,18,23,28,18,9,7,13) names(absolute) <- LETTERS[1:8] pareto.chart(absolute, ylab = "总数",ylab2 = "累计百分比%", main='帕累托图')

@ qualityTools包

library(qualityTools) #artifical defects dataset absolute <- c(15,18,23,28,18,9,7,13) names(absolute) <- LETTERS[1:8] cum_per <- cumsum(absolute)/sum(absolute) paretoChart(absolute,cum_per,main='帕累托图',ylab = "总数")

@ qicharts包

library(qicharts) x <- rep(LETTERS[1:9], c(256, 128, 64, 32, 16, 8, 4, 2, 1)) paretochart(x)

@ fdth

library(fdth) x <- rep(LETTERS[1:9], c(256, 128, 64, 32, 16, 8, 4, 2, 1)) dc <- fdt_cat(x) plot(dc,type='pa',col=c('skyblue','red'))

文章选摘:EasyCharts公众号,来源:R语言社区

原文发布于微信公众号 - PPV课数据科学社区(ppvke123)

原文发表时间:2018-03-09

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏量子位

后期修图还能调节景深和视角?英伟达和UCSB的计算变焦帮你实现

安妮 编译整理 量子位 出品 | 公众号 QbitAI 无需PS,你的拍照水平又能Level up了。 近日,加州大学芭芭拉分校(UCSB)和英伟达的研究人员创...

3149
来自专栏机器之心

业界 | 微软亚研20周年,微软ResNet等AI技术突破盘点

2016 年,《财富》杂志在文章《Why deep learning is suddenly changing your life》曾如此描述这波 AI 浪潮的...

771
来自专栏CreateAMind

巨量奇幻炫酷照片来袭 - 人工智能艺术照片赏析

神经网络在计算机视觉取得了巨大的发展,让我们在图片效果上面的想象力有了更好的展示方式,想象力从图片效果扩展开来,人类的想象力有了更好的表达。从场景到人物,从游戏...

1122
来自专栏腾讯大数据可视化设计团队的专栏

遇见大数据可视化 : 【云图】让数据可见

今天,即使你不熟悉云计算,大数据是什么。但是这些词汇已经充斥在我们的身边。我们被超负荷的信息和过多的数据折磨。谁没被定义成数字?

2.3K1
来自专栏CreateAMind

语义学习-通用智能的切入点-实现路径v0.01

《思想本质》一书通过语言和认知对人的思想认知等进行了分析,前部分有一个核心观点是(李德毅院士也提过):语言是认知的语义索引,语言只是符号,语言表达的含义即语言背...

1312
来自专栏新智元

AI 字体世界地图:用 AI 和机器学习辨析各种字体的审美特征

【新智元导读】著名设计机构 IDEO 项目负责人 Kevin Ho 受到李飞飞高徒 Andrej Karpathy 做的“图像地图”的启发,用机器学习算法通过...

3605
来自专栏机器之心

前沿 | 一块玻璃也可以是相机,新型无镜头相机助力计算机视觉

以前的相机配备自己的专门设备,如镜头和胶卷,而且照相得去照相馆。后来,手机、平板电脑、笔记本电脑和视频游戏机都有了自己的照相功能。现在,相机似乎会在某天变得和玻...

881
来自专栏上善若水

CG006读《什么是计算机图形学》

计算机图形学(computer Graphics) 是研究计算机世界中图形的学问。

1882
来自专栏CreateAMind

语义学习-通用类人智能的切入点-实现路径v0.03+视频+解释

《思想本质》一书通过语言和认知对人的思想认知等进行了分析,前部分有一个核心观点是(李德毅院士也提过):语言是思想认知体系的语义索引,语言只是符号,语言表达的含义...

1112
来自专栏机器之心

开源 | 谷歌开放大规模音频数据集 AudioSet,加速音频识别研究

选自Google Research 机器之心编译 参与:李亚洲、晏奇、微胖 近日,谷歌开放了一个大规模的音频数据集 AudioSet。该数据集包含了 632 类...

44010

扫码关注云+社区

领取腾讯云代金券