# 创建一个0到60的数组间隔为1
x <- seq(0,60,by = 1)
# 分别求出实现实验成功从0到60次的概率
y <- dbinom(x,60,0.5)
#画出二项分布的图像
barplot(y,col="dimgray",border="white")
#画出二项分布的图像
barplot(y,col="dodgerblue",border="white")
#画出二项分布的图像
barplot(y,col="firebrick",border="white")
#画出二项分布的图像
barplot(y,col="floralwhite",border="black")
#画出二项分布的图像
barplot(y,col="forestgreen",border="white")
#画出二项分布的图像
barplot(y,col="gainsboro",border="black")
#画出二项分布的图像
barplot(y,col="ghostwhite",border="black")
#画出二项分布的图像
barplot(y,col="gold",border="white")
#画出二项分布的图像
barplot(y,col="goldenrod",border="white")
#画出二项分布的图像
barplot(y,col="gray",border="white")
#画出二项分布的图像
barplot(y,col="green",border="white")
#画出二项分布的图像
barplot(y,col="greenyellow",border="white")
#画出二项分布的图像
barplot(y,col="honeydew",border="black")
百度搜索:R语言实现二项分布图像
温布尔分布介绍
二项分布泊松分布介绍
开发环境:RStudio和微信截屏工具