轴末端的轴刻度线与面板边框不对齐

如何解决轴末端的轴刻度线与面板边框不对齐

我知道 ggplot 默认在轴和数据之间放置“填充”。我希望轴的原点是一个实际数字，例如0. 我知道这可以使用 scale_y_continuous(expand = c(0,0)) 和 scale_x_continuous(expand = c(0,0)) 来完成，但是如果没有“填充”，刻度线不会与面板边框正确对齐。就好像它们没有正确定位一样。

考虑使用 mtcars 数据：

library(ggplot2)
p <- ggplot(mtcars,aes(mpg,wt)) + 
  geom_point() + 
  scale_y_continuous(expand =  c(0,0),breaks = seq(0,5,by = 1),limits = c(0,5)) +
  scale_x_continuous(expand = c(0,breaks = seq(10,35,by = 5),limits = c(10,35))

这将返回一个没有填充的图，但由于面板边框是白色的，因此您还不能真正确定未对齐。

现在，绘制这个（面板边框已经定义）：

p + 
  theme(
    panel.border = element_rect(size= 1,fill=NA),axis.ticks = element_line(size = 1,colour ="black"))

y 轴顶部的刻度和 x 轴右侧的刻度未对齐。现在很清楚，因为面板边框是黑色的。我想也许我可以弄乱壁虱的厚度，但这无济于事。我还认为这与面板的主要和次要线条有关，但以下内容没有区别：

p + 
  theme(
    panel.border = element_rect(size= 1,colour ="black"),panel.grid.major = element_blank(),panel.grid.minor = element_blank())

有趣的是，如果我移除面板边框并添加定义的 x 和 y 轴线，它看起来确实会好一些，因为除非你真的放大，否则很难看到错位：

  p +
  theme(
    axis.line.x = element_line(size = 0.5,linetype = "solid",colour = "black"),axis.line.y = element_line(size = 0.5,axis.ticks = element_line(size = 0.5,panel.border = element_blank())

我对 Tick marks misaligned with panel in ggplot2 [R] 中给出的答案不满意，认为一定有办法解决这个问题吗？

有什么想法吗？我在这里遗漏了一些东西...

解决方法

您链接到的问题的公认答案是正确的，这种视觉错位是由发生的面板剪裁引起的。该答案没有告诉您的是，您可以在 coord_cartesian(clip = "off") 中禁用剪裁，而该答案转而采用这种在 gtable 中调整剪裁的迂回方式。

以下是关闭剪辑的示例。

library(ggplot2)

ggplot(mtcars,aes(mpg,wt)) + 
  geom_point() + 
  scale_y_continuous(expand =  c(0,0),breaks = seq(0,5,by = 1),limits = c(0,5)) +
  scale_x_continuous(expand = c(0,breaks = seq(10,35,by = 5),limits = c(10,35)) +
  coord_cartesian(clip = "off") +
  theme(panel.border = element_rect(size = 1,fill = NA),axis.ticks = element_line(size = 1))
#> Warning: Removed 3 rows containing missing values (geom_point).

我会通知其他问题的答案 coord_cartesian() 选项。