#正态分布曲线
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分布
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分布
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分布
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分布
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分布
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分布
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")