#import ggplot2 library library(tidyverse) library(readr) rem_data <- read_csv("H:/Work/Chandoo.org/Charting/panel-charts-pain/rem-data.csv") #group rem data by group, branch and rating rem_pivot <- rem_data %>% group_by(Group, Branch, Rating) %>% summarize(cnt=n(), spend = sum(Hike)) %>% group_by(Group, Branch) %>% mutate(Bcount = sum(cnt)) %>% group_by(Rating, add=TRUE) %>% mutate(pct = cnt / Bcount) #create a panel chart, using custom order of levels ggplot(data=rem_pivot) + geom_bar(aes(x=Rating, y=pct), stat="identity")+ scale_x_discrete(limits = c("NME","AME","SP","OP","NR"))+ facet_wrap(Group~Branch)+ theme(strip.text.x = element_text(size = 8))