使用Base R绘制线图时为何出现点状痕迹？如何解决？

原因 #

这是macOS平台上R默认Quartz绘图设备的渲染缺陷：当线条宽度（lwd）大于1且使用半透明颜色时，密集小步长的连续线段在渲染时，相邻线段的重叠区域会产生视觉上的点状痕迹。步长越小，数据点越密集，这种重叠渲染的视觉效果越明显；步长为1时数据点间距足够大，重叠效应消失，因此看不到痕迹。

解决办法 #

• 更换绘图设备：使用Cairo绘图设备替代默认的Quartz，能彻底解决该渲染问题。
  示例代码（导出为图片）：

  library(Cairo)
  # 初始化Cairo设备
  Cairo(file = "transparent_line_plot.png", type = "png", bg = "white", width = 800, height = 600)
  s <- seq(1,100, by = 0.1)
  plot(s, type="l", col=scales::alpha("black",0.3), lwd=3)
  # 关闭设备
  dev.off()
  

  如果是交互式绘图，可先设置默认设备为Cairo：

  library(Cairo)
  options(device = Cairo)
  # 之后直接绘图即可
  s <- seq(1,100, by = 0.1)
  plot(s, type="l", col=scales::alpha("black",0.3), lwd=3)
  

• 调整线条宽度：若业务允许，适当减小lwd参数值，能缓解点状痕迹，但可能无法满足视觉需求。

• 降采样数据：对极密集的序列进行降采样（增大步长），减少数据点密度，但会损失数据精度，仅适合对精度要求较低的场景。

• 改用ggplot2绘图：ggplot2的渲染引擎在处理半透明线条时更稳定，无此类问题。
  示例代码：

  library(ggplot2)
  df <- data.frame(x = seq_along(s), y = s)
  ggplot(df, aes(x, y)) + 
    geom_line(color = scales::alpha("black", 0.3), linewidth = 3)
  

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