R语言二项分布条形图定制：指定条着色与底部数字添加方法

嘿，我来帮你搞定这个问题！咱们先拆解你的需求：一是给特定条形自定义颜色，二是在每个条形下方标注对应的x值（0到n）。下面我一步步给你演示怎么实现：

1. 基础二项分布条形图 #

先确认你已经有了基础代码，比如假设n=10，P=0.5：

n <- 10
P <- 0.5
x_vals <- 0:n
prob <- dbinom(x = x_vals, size = n, prob = P)

用barplot()画基础图的时候，一定要把返回值存下来——这个返回值是每个条形中心的x坐标，后面加标签会用到：

bar_pos <- barplot(prob, main = "二项分布概率条形图", ylab = "概率")

2. 给特定条形添加颜色 #

要给特定的x值（比如x=3）对应的条形上色，你需要创建一个颜色向量：先把所有条形的默认颜色设为你喜欢的基础色（比如"lightblue"），然后把目标位置的颜色替换掉。注意：因为R的索引从1开始，而x从0开始，所以x=3对应的是第4个条形（索引是3+1=4）：

# 创建颜色向量，默认全是lightblue
col_vec <- rep("lightblue", length(x_vals))
# 给x=3的条形改成红色
target_x <- 3
col_vec[target_x + 1] <- "red"

# 重新画图，指定col参数
bar_pos <- barplot(prob, main = "二项分布概率条形图", ylab = "概率", col = col_vec)

如果要给多个条形上色，比如x=2和x=5，直接修改对应索引就行：

target_xs <- c(2,5)
col_vec[target_xs + 1] <- "red"

3. 在底部添加数字标签 #

用text()函数，把x_vals的数值放在每个条形的正下方。bar_pos是每个条形的中心x坐标，y轴位置设为负数（让标签在条形下方），你可以调整数值让位置更美观：

# 添加底部标签
text(x = bar_pos, y = -0.01 * max(prob), labels = x_vals, pos = 1, cex = 0.8)

这里y = -0.01 * max(prob)是把标签放在略低于y轴0点的位置，你可以根据自己的图调整这个系数，让标签和条形的间距更合适。

完整代码示例 #

把上面的步骤整合起来，完整代码如下：

n <- 10
P <- 0.5
x_vals <- 0:n
prob <- dbinom(x = x_vals, size = n, prob = P)

# 创建颜色向量，给x=3的条形上色
col_vec <- rep("lightblue", length(x_vals))
col_vec[3 + 1] <- "red"

# 画条形图，保存条形位置，顺便扩大y轴范围避免重叠
bar_pos <- barplot(
  prob,
  main = "二项分布概率条形图",
  ylab = "概率",
  col = col_vec,
  ylim = c(0, max(prob) * 1.1)
)

# 添加底部数字标签
text(
  x = bar_pos,
  y = -0.01 * max(prob),
  labels = x_vals,
  pos = 1,
  cex = 0.8
)

这样你就能得到一个带有特定颜色条形，底部标注了对应x值的二项分布条形图啦！如果需要调整颜色、标签大小或者位置，直接修改对应的参数就行~

内容的提问来源于stack exchange，提问作者cubefox