Adjusting percentage decimals for a bar plot with facet_grid()

user_11598009 0
Viewed 167

I have the following line:

p1 <- ggplot(mtcars, aes(x= cyl)) + geom_bar(aes(fill = vs), stat = "count") + geom_text(aes(label = scales::percent(..prop..), ymax= ..prop..), stat = "count", vjust = -0.5) +  theme_classic() + ylab("Count") + facet_grid(vs ~ .) + ylim(0, 15)

which gives this plot. This is a plot where I want to keep the count integers on the y-axis, but I want the percentages displayed above each bar.

enter image description here

I would like to edit the number of decimals over each bar plot. However, when using the line below:

p2 <- ggplot(mtcars, aes(x= cyl)) + geom_bar(aes(fill = vs), stat = "count") + geom_text(aes(label = scales::percent(round((..count..)/sum(..count..),1)), ymax= ((..count..)/sum(..count..))), stat="count",  vjust = -.25) + theme_classic() + ylab("Count") + facet_grid(vs ~ .) + ylim(0, 15)

The percentages are now off (see below), displaying the percentages for the whole plot, and not the separated facets. Is there a way to round the percentages without compromising the numbers?

enter image description here

percentage ggplot2 bar-chart r
2 Answers

You can use accuracy = 2 in the scales::percent function:

p1 <- ggplot(mtcars, aes(x= cyl)) + geom_bar(aes(fill = vs), stat = "count") +
  geom_text(aes(label = scales::percent(..prop.., accuracy = 2), ymax= ..prop..), stat = "count", vjust = -0.5) + 
  theme_classic() + ylab("Count") + facet_grid(vs ~ .) + ylim(0, 15)
p1
user_47215700

There is an accuracy option in scales::percent:

p1 <- ggplot(mtcars, aes(x= cyl)) + 
geom_bar(aes(fill = vs), stat = "count") + 
geom_text(aes(label = scales::percent(..prop..,accuracy=2)), 
stat = "count", vjust = -0.5) +  
theme_classic() + ylab("Count") + facet_grid(vs ~ .) + ylim(0, 15)

enter image description here

user_122584590
Related