R语言绘制Q-Q,P-P图

「已注销」

已于 2023-03-21 08:14:13 修改

阅读量1.1k

点赞数

分类专栏： r语言可视化可视化文章标签： r语言开发语言

于 2022-11-21 17:24:52 首次发布

本文链接：https://blog.csdn.net/m0_38127487/article/details/127968706

版权

可视化同时被 2 个专栏收录

526 篇文章 21 订阅

订阅专栏

r语言可视化

153 篇文章 7 订阅

订阅专栏

#---------------------------------------------Q-Q图---------------------------------------------------

set.seed(183)
x <- rnorm(250 , mean=10 , sd=1)
# # Compare the numbers sampled with rnorm() against normal distribution
qqnorm(x)
qqline(x)
abline(h = c(7:13)*1/2,col = "gray100",lty =1) # boe cpi target
abline(v = c(-3:3)*1/2,col = "gray100", lty = 1) # 2 year line
abline(h = c(7:13)*1,col = "gray100",lty =1) # boe cpi target
abline(v = c(-3:3),col = "gray100", lty = 1) # 2 year line
box(col="white")

在这里插入图片描述

library(CircStats)
pp.plot(x)
abline(h = c(0:10)*1/10,col = "gray100",lty =1) # boe cpi target
abline(v = c(0:10)*1/10,col = "gray100", lty = 1) # 2 year line
abline(h = c(0:10)*2/10,col = "gray100",lty =1) # boe cpi target
abline(v = c(0:10)*2/10,col = "gray100", lty = 1) # 2 year line
box(col="white")

在这里插入图片描述

#---------------------------------------------ggplot2-Q-Q图---------------------------------------------------
library(ggplot2)

df <-data.frame(x=rnorm(250 , mean=10 , sd=1))
ggplot(df, aes(sample = x))+
  geom_qq()  
  #geom_qq_line(fill = "#00AFBB",size=3)

在这里插入图片描述

#---------------------------------------------ggqqplot-Q-Q图---------------------------------------------------
library(ggpubr)
x <- rnorm(250 , mean=10 , sd=1)
ggqqplot(x,shape=21,fill="white",colour="black",
         add = "none",
         ggtheme = ggplot2::theme_grey())

在这里插入图片描述
开发工具：RStudio与微信Alt+A截屏工具
参考文献:https://download.csdn.net/download/weixin_39840588/11515554?utm_medium=notify.im.downloadSource.a&username=m0_38127487