ggplot2中geom_rect导出PDF仍显示边框的解决方法求助

这种深色线条并非真实边框，是半透明色块边缘重叠后，PDF渲染器叠加产生的视觉伪影，以下是几种可行的解决方法：

方法1：用geom_tile替换geom_rect #

geom_tile的布局逻辑更适配规则色块，能从根源避免边缘重叠问题：

df <- data.frame(
    x = rep(c(2, 5, 7, 9, 12), 2),
    y = rep(c(1, 2), each = 5),
    z = factor(rep(1:5, each = 2)),
    w = rep(diff(c(0, 4, 6, 8, 10, 14)), 2)
)

ggplot(df, aes(x = x, y = y + 0.5, width = w, height = 1, fill = z)) +
    geom_tile(color = NA, alpha = 0.3) +
    theme(panel.grid.major = element_blank(),
          panel.grid.minor = element_blank())

ggsave("tmp.pdf", device = "pdf")

方法2：使用Cairo PDF渲染器 #

Cairo对透明元素的渲染逻辑更友好，能有效消除伪影，用ggsave指定cairo_pdf设备即可：

# 先生成可视化对象
p <- ggplot(df, aes(xmin = x - w / 2, xmax = x + w / 2, ymin = y, ymax = y + 1, fill = z)) +
    geom_rect(color = NA, alpha = 0.3) +
    theme(panel.grid.major = element_blank(),
          panel.grid.minor = element_blank())

# 用Cairo引擎导出PDF
ggsave("tmp.pdf", plot = p, device = cairo_pdf)

方法3：关闭PDF设备的抗锯齿 #

通过基础pdf()函数的参数关闭抗锯齿，可消除伪影（注意：可能影响其他元素的平滑度）：

pdf('tmp.pdf', useDingbats = FALSE, antialias = "none")
ggplot(df, aes(xmin = x - w / 2, xmax = x + w / 2, ymin = y, ymax = y + 1, fill = z)) +
    geom_rect(color = NA, alpha = 0.3) +
    theme(panel.grid.major = element_blank(),
          panel.grid.minor = element_blank())
dev.off()

内容的提问来源于stack exchange，提问作者Jacob