Generating an equivalent barplot using ggplot2

Question

I have this data:

df <- structure(list(Study = 1:5, contributions = c(10L, 15L, 20L, 
50L, 5L)), .Names = c("Study", "contributions"), class = "data.frame", row.names = c(NA, 
-5L))

I want to generate a barplot. I am able to do that using this code:

par(mar = c(5, 10, 5, 5))
barplot(df$contributions, names = df$Study,
        xlim = c(0, 60), las = 2, horiz = T,
        col = "royalblue")

I need help in reproducing the plot generated by the above code but using using ggplot2 library. This would make it easier for me to save and select proper resolution for the plot.

I reviewed this and tried:

library(ggplot2)
plotobj <- NULL 
plotobj <- ggplot(df,aes(x=contributions,y=Study)) 
plotobj <- plotobj + geom_bar(stat="identity",fill="royalblue") 
plotobj

But it didn't work.

@Pascal plotobj <- NULL plotobj <- ggplot(df,aes(x=contributions,y=Study)) plotobj <- plotobj + geom_bar(stat="identity",fill="royalblue") plotobj — daragh
– daragh, Commented Oct 26, 2015 at 2:24
Does ggplot(df, aes(x=Study, y=contributions)) + geom_bar(stat="identity", fill="royalblue") + coord_flip() do what you want? — user3710546
– user3710546, Commented Oct 26, 2015 at 2:33

user3710546 · Accepted Answer · 2015-10-26 02:47:04Z

1

You can use coord_flip function:

library(ggplot2)
ggplot(df, aes(x=Study, y=contributions)) + 
  geom_bar(stat="identity", fill="royalblue") + 
  coord_flip()

answered Oct 26, 2015 at 2:47

user3710546

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Generating an equivalent barplot using ggplot2

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related