如何使用ggplot2复现给定的二项分布概率条形图

完整复现代码 #

# 加载依赖包
library(ggplot2)

# 构造绘图数据集
plot_data <- data.frame(
  boy_count = 0:6,
  probability = dbinom(0:6, size = 6, p = 0.512)
)

# 绘制图形
ggplot(plot_data, aes(x = boy_count, y = probability)) +
  geom_col(fill = "firebrick", width = 1) +
  labs(
    x = "Number of boys",
    y = "Probability"
  ) +
  theme_classic() +
  theme(
    axis.text.y = element_text(angle = 0, hjust = 1)
  )

参数对应说明 #

• width = 1：消除条形之间的空隙，对应原base R代码中的space=0参数
• fill = "firebrick"：和原代码的填充色完全一致
• axis.text.y的参数设置对应原代码的las=1，实现y轴刻度文字水平显示的效果
• theme_classic()匹配base R默认的白底、无网格的绘图背景风格，整体效果和原图完全一致

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