R语言绘制韦布尔分布图和泊松(Poisson)分布图，并为二项分布(泊松分布)绘制不同颜色

library(ggplot2)
# 这里的d和y都有大小顺序
d<- seq(0, 5, length.out=10000)
y<-dweibull(d, shape=5, scale=1, log = FALSE)
df<-data.frame(x=d,y)
ggplot(df,aes(x=d,y))+
  geom_area(colour="black",fill='aquamarine')+
  ggtitle("Weibull distribution \n 概率密度图")
1
2
3
4
5
6
7
8

蓝色

# 创建一个0到50的数组间隔为1
x <- seq(0,60,by = 1)

# 分别求出实现实验成功从0到50次的概率
y <- dbinom(x,60,0.5)

#画出二项分布的图像
barplot(y,col="blue",border="white")
1
2
3
4
5
6
7
8

紫罗兰色

barplot(y,col="blueviolet",border="white")
1

褐色

#画出二项分布的图像
barplot(y,col="brown",border="white")
1
2

艾利斯兰

#画出二项分布的图像
barplot(y,col="aliceblue",border="black")
1
2

碧绿色

#画出二项分布的图像
barplot(y,col="aquamarine",border="black")
1
2

天蓝色

#画出二项分布的图像
barplot(y,col="azure",border="black")
1
2

米色

#画出二项分布的图像
barplot(y,col="beige",border="black")
1
2

桔黄色

#画出二项分布的图像
barplot(y,col="bisque",border="black")
1
2

黑色

#画出二项分布的图像
barplot(y,col="black",border="white")
1
2

军兰色

#画出二项分布的图像
barplot(y,col="cadetblue",border="black")
1
2

白杏色

#画出二项分布的图像
barplot(y,col="blanchedalmond",border="black")
1
2

实木色

#画出二项分布的图像
barplot(y,col="burlywood",border="black")
1
2

黄绿色

#画出二项分布的图像
barplot(y,col="chartreuse",border="white")
1
2

巧可力色

#画出二项分布的图像
barplot(y,col="chocolate",border="white")
1
2

珊瑚色

#画出二项分布的图像
barplot(y,col="coral",border="white")
1
2

R语言实现二项分布图像