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