r - 将x或y轴与刻度标签一起移动到单个ggplot的中间(无构面)

Question

我在Excel中进行了以下绘制:



但是后来我想我可以通过使用ggplot使它更漂亮。我得到了这么远:



如果您感到好奇，那么数据基于我的answer here，尽管并不重要。该图是具有某种修饰的标准ggplot2构造，并且通过p + geom_hline(aes(yintercept=0))(p是ggplot对象)可以实现穿过中间x轴的粗线。

我觉得Excel绘图中的轴配置更好。它强调了0行(当数据是金钱时很重要)，并且由于不必从底部一直跟踪行，因此查找截距要容易得多。这也是人们在纸或板上绘图时绘制轴的方式。

轴也可以像这样在ggplot中移动吗？我不仅需要线，还希望刻度线标签也移动。如果是，怎么办？如果否，原因是技术性还是设计性的？如果是设计使然，那么为什么要做出决定呢？

Answer 1

尝试这个，

shift_axis <- function(p, y=0){
  g <- ggplotGrob(p)
  dummy <- data.frame(y=y)
  ax <- g[["grobs"]][g$layout$name == "axis-b"][[1]]
  p + annotation_custom(grid::grobTree(ax, vp = grid::viewport(y=1, height=sum(ax$height))), 
                        ymax=y, ymin=y) +
    geom_hline(aes(yintercept=y), data = dummy) +
    theme(axis.text.x = element_blank(), 
          axis.ticks.x=element_blank())

}

p <- qplot(1:10, 1:10) + theme_bw() 
shift_axis(p, 5)