Boxplot-Legende als Achsentitel

Question

Wie füge ich die Legenden des Boxplots unten hinzu, so dass sie als sekundäre Achsen-Textzeile über der Zeile "Follow-up 1", "Follow-up 2" usw. erscheinen?

Answer 1

Sie so etwas wie dieses mit Facettierung bedeuten Sie?

# Sample data 
set.seed(123); 
df <- cbind.data.frame(
     y = rnorm(20), 
     Group = sample(c("UT", "F", "T"), 20, replace = TRUE), 
     x = sample(c("Follow-up 1", "Follow-up 2"), 20, replace = TRUE)) 


# Plot 
gg <- ggplot(df, aes(x = x, y = y, fill = Group)); 
gg <- gg + geom_boxplot(); 
gg <- gg + facet_wrap(~ x, ncol = 3, scales = "free_x"); 
gg <- gg + theme(
    axis.text.x = element_blank(), 
    axis.ticks.x = element_blank()); 
gg <- gg + labs(x = "x axis label", y = "y axis label"); 

---

aktualisieren

Mit Gruppe Etiketten auf der x-Achse

gg <- ggplot(df, aes(x = Group, y = y, fill = Group)); 
gg <- gg + geom_boxplot(); 
gg <- gg + facet_wrap(~ x, ncol = 3, scales = "free_x"); 
gg <- gg + labs(x = "x axis label", y = "y axis label");