使用 R 编程进行抛硬币模拟

Question

我是 R 的新手，正在做一道练习题。模拟掷硬币 200 次，然后绘制数据直方图。我做了：

outcomes      <- c("heads", "tails")
sim_fair_coin <- sample(outcomes, size = 200, replace = TRUE)
hist(table(sim_fair_coin))

它确实给了我一个直方图，但我想我希望得到一个更直观的直方图。用X轴表示"heads"或"tails"； Y 轴显示我得到了 "heads" 和 "tails" 的次数。我相信有一种方法可以在 R 中完成此操作。有人可以告诉我更多相关信息吗？

Answer 1

您可以使用 ggplot2 包。

x <- as.data.frame(sim_fair_coin)
ggplot(x, aes(factor(sim_fair_coin))) + geom_bar(width=.5)

Flip coin simulation with R programming