Resolved: Facet wrap with more than one variable

Question:

I am trying to facet wrap with two variables, but once I add the variable “Group” I get this error: Error in sanitise_dim(nrow) : object 'Group' not found
Here is my dataframe:

dput(df)
structure(list(Condition = c("A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "B", "B", "B", 
"B", "B", "B", "B", "B", "B", "B"), Gate = structure(c(1L, 1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 
4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 1L, 1L, 2L, 2L, 
3L, 3L, 4L, 4L, 5L, 5L), .Label = c("Gate 0", "Gate 1", "Gate 2", 
"Gate 3", "Full"), class = "factor"), Modality = c("AO", "AO", 
"AO", "AV", "AV", "AV", "AO", "AO", "AO", "AV", "AV", "AV", "AO", 
"AO", "AO", "AV", "AV", "AV", "AO", "AO", "AO", "AV", "AV", "AV", 
"AO", "AO", "AO", "AV", "AV", "AV", "AO", "AV", "AO", "AV", "AO", 
"AV", "AO", "AV", "AO", "AV"), Participant = c(1, 2, 4, 1, 2, 
4, 1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 
4, 1, 2, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3), Group = c("Group 2", 
"Group 1", "Group 2", "Group 2", "Group 1", "Group 2", "Group 2", 
"Group 1", "Group 2", "Group 2", "Group 1", "Group 2", "Group 2", 
"Group 1", "Group 2", "Group 2", "Group 1", "Group 2", "Group 2", 
"Group 1", "Group 2", "Group 2", "Group 1", "Group 2", "Group 2", 
"Group 1", "Group 2", "Group 2", "Group 1", "Group 2", "Group 1", 
"Group 1", "Group 1", "Group 1", "Group 1", "Group 1", "Group 1", 
"Group 1", "Group 1", "Group 1"), Accuracy = c(0, 0.5, 0, 0, 
0, 0.3, 0, 0.5, 0.7, 0.1, 0.5, 0.7, 0.2, 0.8, 0.7, 0.2, 0.8, 
0.9, 0.2, 0.9, 0.9, 0.4, 0.9, 1, 0.4, 1, 0.9, 0.3, 1, 1, 0, 0, 
0.2, 0.2, 0.2, 0.4, 0.6, 0.7, 0.6, 0.7), se = c(0, 0.166666666666667, 
0, 0, 0, 0.152752523165195, 0, 0.166666666666667, 0.152752523165195, 
0.1, 0.166666666666667, 0.152752523165195, 0.133333333333333, 
0.133333333333333, 0.152752523165195, 0.133333333333333, 0.133333333333333, 
0.1, 0.133333333333333, 0.1, 0.1, 0.163299316185545, 0.1, 0, 
0.163299316185545, 0, 0.1, 0.152752523165195, 0, 0, 0, 0, 0.133333333333333, 
0.133333333333333, 0.133333333333333, 0.163299316185545, 0.163299316185545, 
0.152752523165195, 0.163299316185545, 0.152752523165195)), class = c("grouped_df", 
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -40L), groups = structure(list(
    Condition = c("A", "A", "A", "A", "A", "A", "A", "A", "A", 
    "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", 
    "A", "A", "A", "A", "A", "A", "A", "A", "A", "B", "B", "B", 
    "B", "B", "B", "B", "B", "B", "B"), Gate = structure(c(1L, 
    1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 
    3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 1L, 
    1L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 5L), .Label = c("Gate 0", 
    "Gate 1", "Gate 2", "Gate 3", "Full"), class = "factor"), 
    Modality = c("AO", "AO", "AO", "AV", "AV", "AV", "AO", "AO", 
    "AO", "AV", "AV", "AV", "AO", "AO", "AO", "AV", "AV", "AV", 
    "AO", "AO", "AO", "AV", "AV", "AV", "AO", "AO", "AO", "AV", 
    "AV", "AV", "AO", "AV", "AO", "AV", "AO", "AV", "AO", "AV", 
    "AO", "AV"), Participant = c(1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 
    2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 4, 1, 2, 
    4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3), .rows = structure(list(
        1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 
        14L, 15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 
        25L, 26L, 27L, 28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 
        36L, 37L, 38L, 39L, 40L), ptype = integer(0), class = c("vctrs_list_of", 
    "vctrs_vctr", "list"))), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -40L), .drop = TRUE))

And here is the code I am running:

df%>%
  group_by(Condition, Gate = fct_inorder(Gate), Modality, Group) %>% 
  dplyr::summarize(Proportion_Correct = mean(Accuracy), #item-level: Accuracy = mean(Correct) --> participant-level: Proportion_Correct = mean(Accuracy)
                   standarderror = (sd(Accuracy, na.rm = TRUE)/sqrt(n()))) %>% 
  ggplot(aes(x = Gate, y = Proportion_Correct, color = Modality, group = Modality)) + 
  geom_line() + 
  geom_errorbar(aes(ymin = Proportion_Correct - standarderror, ymax = Proportion_Correct + standarderror), color = "Black", size = .15, width = .3) + 
  geom_point(size = 2)+ 
  scale_y_continuous(labels = scales::percent)+ 
  labs(y= "Accuracy", x = "Gate")+
  facet_wrap(~Condition, Group) + 
  theme_minimal() + 
  scale_color_brewer(palette = "Set1")+
  ggtitle("Performance")

When I run this code, I get that error. I am hoping to get three graphs side by side. There should be two conditions for Group 1, and only one condition for Group 2. Any ideas are appreciated. Thank you!!

Answer:

I believe that in the facet wrap condition, when you use multiple variable names you separate them with “+” sign and not a comma. So, your code should be:

df%>%
  group_by(Condition, Gate = fct_inorder(Gate), Modality, Group) %>% 
  dplyr::summarize(Proportion_Correct = mean(Accuracy), #item-level: Accuracy = mean(Correct) --> participant-level: Proportion_Correct = mean(Accuracy)
                   standarderror = (sd(Accuracy, na.rm = TRUE)/sqrt(n()))) %>% 
  ggplot(aes(x = Gate, y = Proportion_Correct, color = Modality, group = Modality)) + 
  geom_line() + 
  geom_errorbar(aes(ymin = Proportion_Correct - standarderror, ymax = Proportion_Correct + standarderror), color = "Black", size = .15, width = .3) + 
  geom_point(size = 2)+ 
  scale_y_continuous(labels = scales::percent)+ 
  labs(y= "Accuracy", x = "Gate")+
  facet_wrap(~Condition+Group) + 
  theme_minimal() + 
  scale_color_brewer(palette = "Set1")+
  ggtitle("Performance")

If you have better answer, please add a comment about this, thank you!

Resolved: Facet wrap with more than one variable

Resolved: Using AWK to count multiple patterns in a file

Resolved: significance letter above bar graphic in wrong order

Resolved: VBA – Applying border around the areas with value/text

Leave A Reply