R的问题：使用ggplot2更改多个箱形图的标题

Question

我遇到了一个似乎无法解决的问题，在互联网上搜索了24小时后，我决定在这里询问。

我有一个用ggplot2制作的4箱线图。 每个箱线图均以数据变量命名。 但是为了使读者更容易理解，我想更改每个箱形图的标题（而不更改数据集中的名称）。 这可能吗？ 我尝试使用“ ggtitle”，“ rename”，“ main =“和其他一些建议，我在互联网上发现了这些建议。

这是我完成的编码：

d11 <- droplevels(subset(d, time=="Baseline" | time=="Pre-ECT" | time=="1st Period Post-ECT" | time=="2nd Period Post-ECT"))

ggplot(melt(d11, id.vars= c("subj", "time", "time.num", "intervention","order", "age", "sex", "diagn", "diagn2"), measure.vars = c("HR", "BPsys", "BPdia", "CO")), aes(x=time, y = value, fill = intervention)) + 
  geom_boxplot()  +
  theme(axis.text.x = element_text(angle=90, hjust=1, vjust=0.5)) + 
  facet_wrap(~variable, scales= "free")

我希望方框图中的标题改为“心率”，“收缩压”，“舒张压”，“心输出量”。

对某个功能有什么建议可能可行？

Answer 1

您需要使用labeller的参数facet_wrap 。 使用它的最简单方法是使用as_labeller和一个命名向量。

ggplot(iris, aes(x = Petal.Length, y = Petal.Width)) +
  geom_point() +
  facet_wrap(~Species, 
    labeller = as_labeller(c("setosa" = "I. setosa", "versicolor" = "I. versicolor",  "virginica" = "I. virginica")))