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)