r - 如何在ggplot2中创建交叉刻度线

Question

我正在尝试在 ggplot2 中创建一个折线图，该折线图具有穿过轴的刻度线，而不仅仅是轴的内部或外部。

我目前的代码是:

library(ggplot2)    
data("economics", package = "ggplot2")

ggplot(economics, aes(x = date, y = uempmed)) + 
  geom_line() + 
  scale_x_date(breaks = seq.Date(from = as.Date("1968-12-31"), to = as.Date("1978-12-31"), by = "12 months"),
               limits = as.Date(c("1968-01-01", "1978-12-31")), labels = scales::date_format("%y")) +
  scale_y_continuous(limits = c(4,10)) +
  theme_bw()

这给了我以下结果:



在创建自己的主题时，我可以让刻度在内部或外部，但不能同时进行。

这是我试图完成的一个例子:

Answer 1

首先，您似乎已经知道:How do I make my axis ticks face Inwards in ggplot2

但是刻度线可以穿过轴吗？ 事实证明，不，他们不能。

这是来自 ggplot2 Github repo 的相关文章.您会看到线段总是从轴开始绘制。

可能有 ggplot2扩展使这变得容易，但我不知道。