R programming Flip coin simulation

Question

I'm a new bee to the R language and I'm trying to solve a query. I need to simulate rolling a fair coin 200 times and then plot a histogram of the data. So I performed:

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

This does give me a histogram, but I think I expect a more detailed one. With the X-axis shows "heads" or "tails"; and the Y-axis shows how many times I got for "heads" and "tails". I believe there is a way to accomplish this in R. 

Is there any way or code that I can implement to achieve this?

Answer 1

Make use of the ggplot2 package.

Start by installing and loading it into your R environment and then try this:

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