使用map2（〜ggplot ...時如何設置y軸限制？

Question

使用purrr::map2時，如何在每個圖中設置不同的y軸限制？

我想將y軸下限設置為最大y軸值的一半，例如： max(y-axis value/2) 。

data(mtcars)

library(tidyverse)

mtcars_split <- 
  mtcars %>%
  split(mtcars$cyl)


plots <- map2(
  mtcars_split,
  names(mtcars_split),
  ~ggplot(data = .x, mapping = aes(y = mpg, x = wt)) + 
    geom_jitter() +
    ggtitle(.y)+
  scale_y_continuous(limits=c(max(.y)/2,NA))

)

plots

max（.y）/ 2中的錯誤：二進制運算符的非數字參數

Answer 1

.y是數據框的名稱，這就是為什么max(.y)/2會給您該錯誤的原因。 這應該給您您想要的：

plots <- imap(
  mtcars_split,
  ~ggplot(data = .x, mapping = aes(y = mpg, x = wt)) + 
    geom_jitter() +
    ggtitle(.y) +
    scale_y_continuous(limits=c(max(.x$mpg)/2,NA))
)

請注意， imap(x, ...)只是map2(x, names(x), ...)簡寫。

Answer 2

這基於y軸值不起作用，但是如果您不介意兩次指定y列，則可以完成工作：

plots <- map2(
  mtcars_split,
  names(mtcars_split),
  ~ggplot(data = .x, mapping = aes(y = mpg, x = wt)) + 
    geom_jitter() +
    ggtitle(.y)+
  scale_y_continuous(limits=c(max(.x$mpg)/2,NA))

)

或更安全的選擇：

plots <- map2(
    mtcars_split,
    names(mtcars_split),
    ~{
        ploty <- 'mpg'
        plotx <- 'wt'
        ggplot(data = .x, mapping = aes_string(y = ploty, x = plotx)) + 
        geom_jitter() +
        ggtitle(.y)+
        scale_y_continuous(limits=c(max(.x[[ploty]])/2,NA))
    }
)