如果有兩個變量，如何編輯 facet_wrap/grid 的標簽？

Question

在 ggplot 我有兩個變量（ tau和z ），但只能更改第一個的 label ：

df<-data.frame(x=runif(1e3),y=runif(1e3),tau=rep(c("A","aBc"),each=500),z=rep(c("DDD","EEE"),each=500))

tauNames <- c(
  `A` = "10% load",
  `aBc` = "40% load"
)



df%>%
  ggplot(aes(x=x,y=y))+
  geom_point(alpha=0.4)+
  xlab(label = "Time[s]")+
  ylab(label = "Dose")+
  facet_grid(tau~z,labeller = as_labeller(tauNames))+
  ggpubr::theme_pubclean()

如您所見，我可以更改其中一個標簽，但不能同時更改兩者。 任何想法都非常感謝

Answer 1

在?as_labeller的文檔中，您可以在示例中找到如何獲取多個分面變量的標簽。

library(tidyverse)

df<-data.frame(x=runif(1e3),y=runif(1e3),tau=rep(c("A","aBc"),each=500),z=rep(c("DDD","EEE"),each=500))

tauNames <- c(
  `A` = "10% load",
  `aBc` = "40% load"
)

df%>%
  ggplot(aes(x=x,y=y))+
  geom_point(alpha=0.4)+
  xlab(label = "Time[s]")+
  ylab(label = "Dose")+
  facet_grid(tau~z,labeller = labeller(tau = tauNames, 
                                       z = c("DDD" = "D", "EEE" = "E")))+
  ggpubr::theme_pubclean()