Boxplotの凡例を軸タイトル

Question

"Follow-up 1"、 "Follow-up 2"などの行の上にセカンダリ軸のテキスト行として表示するように、boxplotの凡例を下に追加するにはどうすればよいですか？

Answer 1

あなたは、この使用して面取りのようなものを意味しますか？

# 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"); 

---

更新

x軸上のグループラベル

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");