刻度线与ggplot2 [R]中的面板未对齐

Question

在刻度线的结束位置和面板的开始位置之间似乎总是存在一些小但明显的偏移。

当指定轴限制以使轴以刻度结束时，这一点更加明显（见上文）。 例如，在y轴上，最高刻度太高，最低刻度太低。

要重现的代码：

library(ggplot2) p <- ggplot(mtcars,aes(mpg, wt)) + geom_point() + scale_y_continuous(limits=c(1,5),expand=c(0,0)) p <- p + theme_few() p <- p + theme(axis.ticks=element_line(size=0.5),axis.ticks.length = unit(0.5, "cm")) # enlarged for clarity, although this happens regardless 我该如何解决这个问题？

编辑：

在对我自己的数据使用接受的答案时，我注意到这也改变了轴极值点的剪裁方式。有没有办法正确对齐刻度和面板，但不改变这种行为？我不想删除这些点，只是仍然隐藏面板外的部分。

Answer 1

不是位置关闭，而是面板边框被剪裁，

library(ggplot2)
p <- ggplot(mtcars,aes(mpg, wt)) + geom_point() + scale_y_continuous(limits=c(1,5),expand=c(0,0))
p <- p + theme_bw()
p <- p + theme(axis.ticks=element_line(size=3),
               panel.border = element_rect(size = 3),
               axis.ticks.length = unit(0.5, "cm"))

g <- ggplotGrob(p)

g$layout$clip <- "off"
library(gridExtra)
grid.arrange(p, g, ncol=2)

编辑：上述观察并不是一个解决方案；如 cmets 所述，关闭整个面板的剪裁对于从面板区域泄漏的点来说是有问题的。一种可能的解决方法是向 gtable 添加一个新的 grob，例如通过从面板中提取它并将其添加到顶部而不剪辑。

library(ggplot2)
p <- ggplot(mtcars,aes(mpg, wt)) + geom_point(size=20) + scale_y_continuous(limits=c(1,5),expand=c(0,0))
p <- p + theme_bw()
p <- p + theme(axis.ticks=element_line(size=2),
               panel.border = element_rect(size = 2),
               axis.ticks.length = unit(0.5, "cm"))

g <- ggplotGrob(p)
panel_id <- g$layout$name == "panel"
border <- tail(g$grobs[panel_id][[1]][["children"]], 1)
g <- gtable::gtable_add_grob(g, border, 
                             t = min(g$layout$t[panel_id]),
                             l = min(g$layout$l[panel_id]),
                             name = "border",
                             clip = "off")

library(gridExtra)
grid.arrange(p, g, ncol=2)