dplyr() and ggolot2()::geom_tile, filtering a group of summary statistics

Question

I've got a data frame (df) with three categorical variables called site, purchase, and happycustomer.

I'd like to use gglot2's geom_tile function to create a heat-map of customer experience. I'd like site on the x-axis, purchase on the y-axis, and happycustomer as the fill. I'd like the heat map to feature the percentages for the happy customers grouped by site and purchase (ie the ones for which the value of happycustomer is y).

My problem's that at the moment the plot features both the happy and the unhappy customers.

Any help would be much appreciated.

Starting point (df):

df <- data.frame(site=c("GA","NY","BO","NY","BO","NY","BO","NY","BO","GA","NY","GA","NY","NY","NY"),purchase=c("a1","a2","a1","a1","a3","a1","a1","a3","a1","a2","a1","a2","a1","a2","a1"),happycustomer=c("n","y","n","y","y","y","n","y","n","y","y","y","n","y","n"))

Current code:

library(ggplot2) 
library(dplyr)
df  %>% 
      group_by(site, purchase,happycustomer) %>% 
      summarize(bin = sum(happycustomer==happycustomer)) %>%
      group_by(site,happycustomer) %>%
      mutate(bin_per = (bin/sum(bin)*100)) %>%
      ggplot(aes(site,purchase)) + geom_tile(aes(fill = bin_per),colour = "white") + geom_text(aes(label = round(bin_per, 1))) +
      scale_fill_gradient(low = "blue", high = "red")

Answer 1

Here is the solution with two data frames.

happyDF <- df  %>% 
 filter(happycustomer == "y") %>%
 group_by(site, purchase) %>% 
 summarise( n = n() ) 

totalDF <- df  %>%
 group_by(site, purchase) %>% 
 summarise( n = n() ) 

And the ggplot code:

merge(happyDF, totalDF, by=c("site", "purchase") ) %>%
 mutate(prop = 100 * (n.x / n.y) ) %>%
 ggplot(., aes(site, purchase)) +
  geom_tile(aes(fill = prop),colour = "white") +
  geom_text(aes(label = round(prop, 1))) +
 scale_fill_gradient(low = "blue", high = "red")