用R编程翻转硬币模拟

Question

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

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

它确实给了我一个直方图，但我想我希望有一个更直观的直方图。 X轴显示“头部”或“尾部”;而Y轴表示我为“头”和“尾巴”多少次。 我相信有一种方法可以在R中实现这一点。有人可以告诉我更多关于它的事吗？

Answer 1

您可以使用ggplot2包。

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