In R language package `ggmosaic`, how to add weight percent label to the columns

Question

In package ggmosaic, how to add weight percent label to the columns ? I want to add the percent value of each column (every column totla percent equalt 100%). Thanks!

library(tidyverse)
library(ggmosaic)

ggplot(data = titanic) +
  geom_mosaic(aes(x = product(Class), fill = Survived)) +
  geom_mosaic_text(size=5,aes(x = product(Class), fill = Survived))

score 1 · Accepted Answer · answered Dec 22 '22 at 10:45

1

you can use ggplot_build to calculate the percentage per class of each total count values like this:

library(tidyverse)
library(ggmosaic)

p <- ggplot(data = titanic) +
  geom_mosaic(aes(x = product(Class), fill = Survived)) +
  geom_mosaic_text(size=5,aes(x = product(Class), fill = Survived))

p + geom_text(data = ggplot_build(p)$data[[1]] %>% 
                group_by(x__Class) %>%
                mutate(pct = .wt/sum(.wt)*100), 
              aes(x = (xmin+xmax)/2, y = (ymin+ymax)/2, label=round(pct, 2)))

^{Created on 2022-12-22 with reprex v2.0.2}

answered Dec 22 '22 at 10:45

Quinten

35,235
5
20
53

1

Thanks , this is very useful to know 'ggplot_build(p)' – anderwyang Dec 23 '22 at 00:50
Hi @anderwyang, Yes `ggplot_build` can be very useful in some situations! – Quinten Dec 23 '22 at 08:26

In R language package `ggmosaic`, how to add weight percent label to the columns

1 Answers1