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

Question

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

使用 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))

这个 returns 没有填充的图，但是你还不能真正看出错位，因为面板边框是白色的。

现在，绘制此图（面板边框已定义）：

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())

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

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

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() 选项的另一个问题的答案。

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

Axes tick marks at extremes of axes do not align with panel border

r

axes

ggplot2