在 ggplot2 的兩個方面之一中添加 annotation_ticks

Question

是否可以使用annotation_ticks將刻度添加到刻面的一側？ 此命令為我的兩個方面添加刻度。 我使用facet_wrap來顯示 2020 年和 2021 年的數據，並且只想要 2020 年左邊的刻度

annotation_logticks(base = 10,
                        sides = "l",
                        outside = TRUE,
                        long = unit(0.1, "cm")) 

Answer 1

library(tidyverse)
library(patchwork)

iris %>%
  nest(-Species) %>%
  mutate(
    do_logticks = row_number() == 1,
    plt = data %>% map2(do_logticks, ~{
      plt <- qplot(Sepal.Length, Sepal.Width, data = .x)
      if(.y) {
        plt <- plt + annotation_logticks(sides = "l")
      }
      plt
    })
  ) %>%
  pull(plt) %>%
  wrap_plots(nrow = 1)
#> Warning: All elements of `...` must be named.
#> Did you want `data = c(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width)`?

^{由reprex package (v2.0.1) 創建於 2021-10-06}