Insert percentage of values in ggplot

Question

I'm quite new in R, but I'm trying to do a facet_grid using ggplot package in R and, for better data visualization, I'd like to insert the percentage of values in each quadrant for the column groupings, like the image below:

Can be one or another, in each quadrant or in legend.

My code is this one below

ggplot(df1_final,aes(x=revenue,y=visits,col=groupings)) +
  geom_jitter(alpha=I(1/2)) + 
  xlim(c(0,20000)) + 
  facet_grid(group_lvl_1_visits ~ group_lvl_1_revenue)

Could anyone help me on this?

EDIT: Both solutions helped me a lot, very good ones.

Welcome to Stack Overflow! How to make a great R reproducible example? — zx8754
– zx8754, Commented Jul 21, 2016 at 19:57
having a dput(df1_final) pasted in to your example would help folks help you. — hrbrmstr
– hrbrmstr, Commented Jul 21, 2016 at 20:40

lukeA · Accepted Answer · 2016-07-21 20:44:11Z

3

Here's one way to do it:

library(ggplot2)
ggplot(mpg, aes(displ, hwy)) +
  geom_point() +
  facet_wrap(~class, nrow = 4) ->
  p
p + geom_text(
  data = setNames(as.data.frame(prop.table(table(mpg$class))),c("class", "lab")),
  mapping = aes(label = scales::percent(lab)), 
  x = 4, 
  y = 40
)

or, for facet_grid:

p <- ggplot(mpg, aes(displ, cty)) + geom_point()
p <- p + facet_grid(drv ~ cyl)
p + geom_text(
  data = setNames(as.data.frame(prop.table(table(mpg$drv, mpg$cyl)), stringsAsFactors = F), c("drv","cyl","lab")),
  mapping = aes(label = scales::percent(lab)),
  x=4.5, 
  y=30
)

edited Jul 21, 2016 at 20:44

answered Jul 21, 2016 at 20:30

lukeA

54.4k5 gold badges102 silver badges101 bronze badges

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

2 Comments

hrbrmstr Over a year ago

OP is using facet_grid()

hrbrmstr Over a year ago

super neat soln for the facet_wrap() use-case, tho. might want to keep it here

hrbrmstr · Accepted Answer · 2016-07-21 20:49:58Z

Here's a tidyverse + label-in-legend solution:

library(ggplot2)
library(dplyr)
library(scales)

group_by(mpg, cyl, drv) %>% 
  mutate(color=sprintf("%s-%s",cyl,drv)) %>% 
  ungroup(mpg) -> mpg

gg <- ggplot(mpg, aes(displ, cty))
gg <- gg + geom_point(aes(color=color))
gg <- gg + facet_grid(drv ~ cyl)

count(mpg, color) %>% 
  ungroup() %>% 
  mutate(pct=percent(n/sum(n)),
         lab=sprintf("%s (%s)", color, pct)) -> pct_df


gg <- gg + scale_color_discrete(name="Title", labels=pct_df$lab)
gg

Collectives™ on Stack Overflow

Insert percentage of values in ggplot

2 Answers 2

2 Comments

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Linked

Related