R語言統計分布核密度圖

正態分布核密度圖

#正態分布曲線
x1<-round(rnorm(100,mean = 80,sd=7));x1
density(x1)
plot(density(x1),main="正態分布核密度圖")
polygon(density(x1),col="red",border = "blue")
rug(x1,col="brown")

 

均勻分布核密度圖

#均勻分布
x2<-round(runif(100,min=1,max=2));x2
plot(density(x2),main="均勻分布核密度圖")
polygon(density(x2),col=2,border="red")
rug(x2,col="brown")

 

泊松分布核密度圖

#泊松分布
x3<-round(rpois(100,lambda = 4));x3
plot(density(x3),main = "泊松分布核密度圖")
polygon(density(x3),col=2,border = "red")
rug(x3,col="blue")

 

指數分布核密度圖

#指數分布
x4<-round(rexp(100,rate=2));x4
plot(density(x4),main="指數分布核密度圖")
polygon(density(x4),col=4,border = "yellow")
rug(x4,col="red")

 

T分布核密度圖

#T分布
x5<-round(rt(1:100,df=1));x5
plot(density(x5),main="T分布核密度圖")
polygon(density(x5),col=2,border = "blue")
rug(x5,col="black")

 

二項分布核密度圖

#二項分布
x6<-round(rnbinom(500,mu=4,size= 100));x6
plot(density(x6),main = "二項分布核密度圖")
polygon(density(x6),col=6,border = "red")
rug(x6,col="black")

 

幾何分布核密度圖

 

#幾何分布
x7<-round(rgeom(100,prob = 0.2));x7
plot(density(x7),main = "幾何分布核密度圖")
polygon(density(x7),col=6,border = "red")
rug(x7,col="black")

 

分布核密度圖

#X2分布
x8<-round(rchisq(100,df=1));x8
plot(density(x8),main = "X2分布核密度圖")
polygon(density(x8),col=6,border = "red")
rug(x8,col="black")

 

F分布核密度圖

#F分布
x9<-round(rf(100,df1=1,df2=2));x9
plot(density(x9),main = "F分布核密度圖")
polygon(density(x9),col=6,border = "red")
rug(x9,col="black")

 

對數正態分布核密度圖

#對數正態分布
x10<-round(rlnorm(100,meanlog = 0,sdlog = 1));x10
plot(density(x10),main = "對數正態分布核密度圖")
polygon(density(x10),col=6,border = "red")
rug(x10,col="black")

 

gamma核密度圖

#gamma分布
x11<-round(rgamma(100,shape=1,scale = 1));x11
plot(density(x11),main = "gamma分布核密度圖")
polygon(density(x11),col=7,border = "red")
rug(x11,col="black")

 

超幾何分布核密度圖

#超幾何分布
x12<-round(rhyper(nn=100,m=2,n=77,k=10));x12
plot(density(x12),main = "超幾何分布核密度圖")
polygon(density(x12),col=7,border = "red")
rug(x12,col="black")

 

logisitic分布核密度圖

#logisitic分布
x13<-round(rlogis(100,location = 0,scale = 2));x13
plot(density(x13),main = "logisitic分布核密度圖")
polygon(density(x13),col=7,border = "red")
rug(x13,col="black")

 

Weibull分布核密度圖

#Weibull分布
x14<-round(rweibull(100,shape = 2,scale = 5));x14
plot(density(x14),main = "Weibull分布核密度圖")
polygon(density(x14),col=7,border = "red")
rug(x14,col="black")

 

Cauchy分布核密度圖

#Cauchy分布
x15<-round(rcauchy(100,location = 1,scale = 2));x15
plot(density(x15),main = "Cauchy分布核密度圖")
polygon(density(x15),col=7,border = "red")
rug(x15,col="black")

 

備注：參考《R語言實戰》一書中的填色代碼，結合R語言幫助文檔共同完成，如有轉載，注明出處，僅供學習而用