r - facet_wrap log_transforming 一列中的轴

Question

我有一个由 facet_grid 创建的 2 x 2 网格带有自由比例尺(参见示例)。我想为网格第二行中的数字而不是第一行中的数字设置对数刻度。

示例代码:

data("mtcars")

ggplot(data = mtcars, aes(y = mpg, x = as.factor(cyl))) + geom_boxplot() + facet_wrap(~ vs + am, nrow = 2, scales = "free")

scale_y_log10()似乎做了一些奇怪的事情。这是可能的还是我必须使用类似 grid.arrange 的东西？ ?

Answer 1

我们可以变换然后绘制:

library(ggplot2)
library(dplyr)

# manual transform
plotDat <- mtcars %>% 
  mutate(mpg = if_else(vs == 1, log10(mpg), mpg), 
         cyl = as.factor(cyl))

# then plot
ggplot(data = plotDat, aes(y = mpg, x = cyl)) +
  geom_boxplot() +
  facet_wrap(~ vs + am, nrow = 2, scales = "free")