Help making a complex bar plot with ggplot2

[rhelper]

Hi so I am trying to created a bar plot using ggplot2 but I am not sure how to go about doing it. I used the following code to get the data I am trying to graph:

MouseProjectOne %>% 
  filter(protein %in% c("pERK_N","ERK_N"))%>%
  group_by(Genotype, Behavior, Treatment, protein)%>%
  summarise(AverageExpression = mean(expression, na.rm = TRUE))->MouseNew
MouseNew

Through that, I was able to get the average protein expressions that I would like to graph. I am trying to use the average expression to make the following graph, but I am not sure how to go about doing it/if it is possible:

Please help

[datavizpyr]

Not exactly what you want, but pretty close. I might have gotten the groupings wrong, but try something like.

MouseNew %>%  
  tidyr::unite("Behavior_Treatment",c(Behavior, Treatment), remove=FALSE) %>%
  ggplot(aes(x = Behavior_Treatment, y = AverageExpression, fill=protein)) +
  geom_col(position="dodge")+
  facet_wrap(~Genotype, ncol=2) +
  theme_classic()

To explain a bit, I created a new variable with unite() which is just concatenating Behaviour and Treatment. Use the new variable to make the bar plot.

[williaml]

Can you post a reproducible example of your code? The screenshot isn't that useful.

FAQ: How to do a minimal reproducible example ( reprex ) for beginners

Please feel free to improve this FAQ, just keep in mind the general goal of making it friendly for r beginners (and if possible for non native English speakers as well) EDIT: Translations to other languages are also welcome (please try to keep translation as close as posible to the original English text)

[williaml]

Something like this? (Edited)

library(tidyverse)
ggplot(df, aes(Treatment, AverageExpression, fill = protein)) +
  geom_col(position = "dodge", stat="identity") + facet_grid(~Genotype + Behavior) +
  labs(x = "Treatment", y = "Average Expression", fill = NULL) + 
  geom_text(aes(label=round(AverageExpression, 2), group=protein), position=position_dodge(width=1), size=4)