Boxplot图例为轴标题

Question

如何在底部添加boxplot的图例，以便它们显示为＆＃34;后续1＆＃34;，＆＃34;后续2＆＃34上方的辅助轴文本行;等等？

Answer 1

你的意思是使用facetting这样的东西吗？

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