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

Question

我知道 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, 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, fill=NA),
    axis.ticks = element_line(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, linetype = "solid", colour = "black"),
    axis.ticks = element_line(size = 0.5, colour ="black"),
    panel.border = element_blank())

我对@9​​87654321@ 中给出的答案不满意，认为一定有办法解决这个问题？

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

Answer 1

您所链接的问题的公认答案是正确的，这种视觉错位是由发生的面板剪裁引起的。该答案没有告诉您的是，您可以禁用 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, 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()选项的其他问题的答案。