如何為 ggplot2 的每一列添加 y 軸 label？

Question

例如我想在第二列 y 軸上添加一個 log10(Sepal.Width) label

data(iris)
iris$Sepal.Width[iris$Species=="versicolor"] <- log10(iris$Sepal.Width[iris$Species=="versicolor"])
p <- iris %>% 
  ggplot(aes(x = Sepal.Length, y = Sepal.Width)) +
  theme_classic()+
  geom_point()
p+  facet_wrap(~Species,scales = "free")

Answer 1

向每個面板（或我知道的唯一一個）添加標題的一種選擇是創建單獨的圖並使用例如patchwork將它們粘合在一起。 為此，我按分面變量split數據，使用自定義繪圖 function 最后使用Map循環拆分數據和軸標題向量：

library(ggplot2)
library(patchwork)

iris2 <- iris
iris2$Sepal.Width[iris2$Species == "versicolor"] <- log10(iris2$Sepal.Width[iris2$Species == "versicolor"])

plot_fun <- function(.data, y) {
  ggplot(.data, aes(x = Sepal.Length, y = Sepal.Width)) +
    theme_classic() +
    geom_point() +
    facet_wrap(~Species, scales = "free") +
    labs(y = y)
}

y_title <- c("Sepal.Width", "log10(Sepal.Width)", "Sepal.Width")
iris_split <- split(iris2, iris2$Species)

Map(plot_fun, iris_split, y_title) |> 
  wrap_plots()