R语言自定义函数，利用QQ图和shaprio.test检验正态分布
代码
#自定义函数
norm.test<-function(data,alpha=0.05,pic=TRUE){ #alpha为显著性水平，这里的默认值为0.05
if(pic==TRUE){#画图形
dev.new()
par(mfrow=c(2,1))
qqnorm(data,main="qq图")
qqline(data)
hist(data,freq=F,main="直方图和密度估计曲线")
lines(density(data),col="blue")#密度估计曲线
x<-c(round(min(data)):round(max(data)))
lines(x,dnorm(x,mean(data),sd(data)),col="red")#正态分布曲线
}
sol<-shapiro.test(data)
if(sol$p.value>alpha){
print(paste("success:服从正态分布,p.value=",sol$p.value,">",alpha))
}else{
print(paste("error:不服从正态分布,p.value=",sol$p.value,"<=",alpha))
}
sol
}
#函数调用
data<-rnorm(100,mean=5,sd=3)#数据为随机生成的满足正态分布的数据集，个数为100，平均值为5，标准差为5
norm.test(data)
################
说明
1、norm是正态分布，dnorm是正态分布的概率密度函数，rnorm是生成正态分布的随机数，pnorm是分布函数
2、关于QQ图
（1）QQ图用于检验指标样本是否服从某种分布状态，样本越是服从某种分布规则，绘制的QQ图越会趋于一条直线
（2）qqnorm函数绘制正态分布的QQ图
（3）qqline函数用于绘制QQ图的近似直线，其解析式为
，其中a是正态分布的标准差，截距b为均值
3、关于shapiro.test函数
该函数的参数为要检验的数据集，返回值为一个对象，对象的属性p.value与显著性水平相比（一般与0.05相比），如果p.value值大，则可以说其服从正态分布，该值越接近1越好。
运行结果
数据分析咨询请扫描二维码
若不方便扫码，搜微信号：CDAshujufenxi
又到一年年终时，各位打工人也迎来了展示成果的关键时刻 —— 年终述职。一份出色的年终述职报告，不仅能全面呈现你的工作价值， ...
2025-01-23“用户旅程分析”概念 用户旅程图又叫做用户体验地图，它是用于描述用户在与产品或服务互动的过程中所经历的各个阶段、触点和情 ...
2025-01-22在竞争激烈的商业世界中，竞品分析对于企业的发展至关重要。今天，我们就来详细聊聊数据分析师写竞品分析的那些事儿。 一、明确 ...
2025-01-22在数据分析领域，Excel作为一种普及率极高且功能强大的工具，无疑为无数专业人士提供了便捷的解决方案。尽管Excel自带了丰富的功 ...
2025-01-17在这个瞬息万变的时代，许多人都在寻找能让他们脱颖而出的职业。而数据分析师，作为大数据和人工智能时代的热门职业，自然吸引了 ...
2025-01-14Python作为一门功能强大的编程语言，已经成为数据分析和可视化领域的重要工具。无论你是数据分析的新手，还是经验丰富的专业人士 ...
2025-01-10完全靠数据决策，真的靠谱吗？ 最近几年，“数据驱动”成了商界最火的关键词之一，但靠数据就能走天下？其实不然！那些真正成功 ...
2025-01-09SparkSQL 结构化数据处理流程及原理是什么？Spark SQL 可以使用现有的Hive元存储、SerDes 和 UDF。它可以使用 JDBC/ODB ...
2025-01-09在如今这个信息爆炸的时代，数据已然成为企业的生命线。无论是科技公司还是传统行业，数据分析正在深刻地影响着商业决策以及未来 ...
2025-01-08“数据为王”相信大家都听说过。当前，数据信息不再仅仅是传递的媒介，它成为了驱动经济发展的新燃料。对于企业而言，数据指标体 ...
2025-01-07在职场中，当你遇到问题的时候，如果感到无从下手，或者抓不到重点，可能是因为你掌握的思维模型不够多。 一个好用的思维模型， ...
2025-01-06在现代企业中，数据分析师扮演着至关重要的角色。每天都有大量数据涌入，从社交媒体到交易平台，数据以空前的速度和规模生成。面 ...
2025-01-06在职场中，许多言辞并非表面意思那么简单，有时需要听懂背后的“潜台词”。尤其在数据分析的领域里，掌握常用术语就像掌握一门新 ...
2025-01-04在当今信息化社会，数据分析已成为各行各业的核心驱动力。它不仅仅是对数字进行整理与计算，而是在数据的海洋中探寻规律，从而指 ...
2025-01-03又到一年年终时，各位打工人也迎来了展示成果的关键时刻 —— 年终述职。一份出色的年终述职报告，不仅能全面呈现你的工作价值， ...
2025-01-03在竞争激烈的商业世界中，竞品分析对于企业的发展至关重要。今天，我们就来详细聊聊数据分析师写竞品分析的那些事儿。 一、明确 ...
2025-01-03在数据分析的江湖里，有两个阵营总是争论不休。一派信奉“大即是美”，认为数据越多越好；另一派坚守“小而精”，力挺质量胜于规 ...
2025-01-02数据分析是一个复杂且多维度的过程，从数据收集到分析结果应用，每一步都是对信息的提炼与升华。可视化分析结果，以图表的形式展 ...
2025-01-02在当今的数字化时代，数据分析师扮演着一个至关重要的角色。他们如同现代企业的“解密专家”，通过解析数据为企业提供决策支持。 ...
2025-01-02数据分析报告至关重要 一份高质量的数据分析报告不仅能够揭示数据背后的真相，还能为企业决策者提供有价值的洞察和建议。 年薪 ...
2024-12-31
