r二项分布条形图

Question

我想创建一个这样的图表：

据我所知，基本结构是

barplot(dbinom(x=0:n,size=n, prob=P))

但是如何为特定条添加颜色以及如何在底部添加数字？

Answer 1

x轴的标签取自数据名称。因此，您只需要使用适当的名称定义数据向量：

n <- 10
P <- 0.3
data <- dbinom(x=0:n,size=n, prob=P)
names(data) <- 0:n

颜色可以作为颜色名称的矢量传递。您可以创建一个填充了"grey"的向量，然后只需为您想要红色的条插入"red"：

cols <- rep("grey", n + 1)
cols[3] <- "red"

最后，情节：

barplot(data, col = cols)

Answer 2

barplot(dbinom(x=0:n,size= n, prob=p), names.arg = 0:n, col= ifelse(0:n==k,"red","grey"))

- ＆GT;我不小心将细节放在了dbinom括号中，这就是为什么我花了很长时间才弄清楚