# 创建一个0到60的数组间隔为1
x <- seq(0,60,by = 1)
# 分别求出实现实验成功从0到60次的概率
y <- dbinom(x,60,0.5)
#画出二项分布的图像
barplot(y,col="olivedrab",border="white")
#画出二项分布的图像
barplot(y,col="orange",border="white")
#画出二项分布的图像
barplot(y,col="orangered",border="white")
#画出二项分布的图像
barplot(y,col="orchid",border="white")
#画出二项分布的图像
barplot(y,col="palegoldenrod",border="black")
#画出二项分布的图像
barplot(y,col="palegreen",border="white")
#画出二项分布的图像
barplot(y,col="paleturquoise",border="black")
#画出二项分布的图像
barplot(y,col="palevioletred",border="white")
#画出二项分布的图像
barplot(y,col="papayawhip",border="black")
#画出二项分布的图像
barplot(y,col="peachpuff",border="white")
#画出二项分布的图像
barplot(y,col="peru",border="white")
百度百科:R语言实现二项分布图像
温布尔分布介绍
二项分布泊松分布介绍
开发环境:RStudio和微信截屏工具