r - 在没有标签的情况下向 ggplot 添加小的中断

Question

我想在使用 ggplot() 生成的图形上添加minor 轴刻度和/或线。这是一项看似简单的任务，但事实证明非常具有挑战性。我找到了 this solution但它相对不优雅，不适合我的应用程序。我将使用不同的数据多次重新制作我的绘图，从而更改轴限制并通过 geom_vline() 打破任何手动规范。

我阅读了 scales::minor_breaks_width() 的文档，并尝试将它用于 scale_x_continuous() 的 minor_breaks 参数，但它抛出关于“循环中断”的错误。

下面是一个reprex，谁能给个建议？

library(tidyverse)

p <- mpg %>% 
  ggplot(aes(displ, hwy))+
  geom_point()

# major breaks are easy to set
p +
  scale_x_continuous(
    breaks = scales::breaks_width(width = 0.5, offset = 0))

# adding a minor breaks specification throws an error 
p +
  scale_x_continuous(
    breaks = scales::breaks_width(width = 0.5, offset = 0),
    minor_breaks = scales::minor_breaks_width(width = 0.01, offset = 0) )
#> Error in loop_breaks(range, breaks, f): argument "breaks" is missing, with no default

^{由 reprex package 创建于 2020-11-19 (v0.3.0)}

Answer 1

或者，您可能想尝试一种更简单的方法。我使用 0.1 的宽度，因为 0.01 很难看到。

library(tidyverse)
p <- mpg %>% 
  ggplot(aes(displ, hwy))+
  geom_point()

brks = seq(1.5, 7, 0.1)
lbs <- ifelse(brks%%0.5 == 0, format(brks, digits = 1, nsmall = 1), "")
p +
  scale_x_continuous(
    breaks = brks, labels = lbs)