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='aliceblue')+
  ggtitle("Weibull distribution \n 概率密度图")

古董白

ggplot(df,aes(x=d,y))+
  geom_area(colour="black",fill='antiquewhite')+
  ggtitle("Weibull distribution \n 概率密度图")

天蓝色

ggplot(df,aes(x=d,y))+
  geom_area(colour="black",fill='azure')+
  ggtitle("Weibull distribution \n 概率密度图")

ggplot(df,aes(x=d,y))+
  geom_area(colour="black",fill='beige')+
  ggtitle("Weibull distribution \n 概率密度图")

桔黄色

ggplot(df,aes(x=d,y))+
  geom_area(colour="black",fill='bisque')+
  ggtitle("Weibull distribution \n 概率密度图")

黑色

ggplot(df,aes(x=d,y))+
  geom_area(colour="black",fill='black')+
  ggtitle("Weibull distribution \n 概率密度图")

白杏色

ggplot(df,aes(x=d,y))+
  geom_area(colour="blanchedalmond",fill='black')+
  ggtitle("Weibull distribution \n 概率密度图")

蓝色

ggplot(df,aes(x=d,y))+
  geom_area(colour="black",fill='blue')+
  ggtitle("Weibull distribution \n 概率密度图")

紫罗兰色

ggplot(df,aes(x=d,y))+
  geom_area(colour="black",fill='blueviolet')+
  ggtitle("Weibull distribution \n 概率密度图")

菊兰色

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

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

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

米绸色

画出二项分布的图像
barplot(y,col="cornsilk",border="black")

青色

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

暗蓝色
#画出二项分布的图像
barplot(y,col=“darkblue”,border=“white”)

暗青色

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

暗金黄色

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

暗灰色

画出二项分布的图像
barplot(y,col="darkgray",border="white")

暗绿色

画出二项分布的图像
barplot(y,col="darkgreen",border="white")

暗黄褐色

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

暗洋红

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

暗橄榄绿

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

暗桔黄色

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

暗紫色

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

暗红色

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

暗肉色

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

暗海兰色

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

暗灰蓝色

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

墨绿色

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

暗宝石绿

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

暗紫罗兰色

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

深粉红色

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

深天蓝色

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

百度搜索：R语言实现二项分布图像
温布尔分布介绍
二项分布泊松分布介绍

开发环境：RStudio和微信截屏工具