Question

下面的代码在png中产生不同的线宽，但在postscript和pdf设备中的线宽相同。在OS X 10.10中查看pdf时会发生这种情况，但是在OS或Ubuntu下生成。（以下三个样本图片）

我发现unhelpful thread on r-help表明这应该不是问题。但确实如此。

为什么？

devices <- list(png=png,
        eps=function(...) postscript(..., horizontal=TRUE),
        pdf=pdf)

for(d in names(devices)){
  devices[[d]](file=paste0('test.', d))

  par(mfrow = c(2, 2))
  for (LW in c(0.05, 0.1, .25, .5)){
    plot(height ~ age, data=Loblolly, pch='')
    for(sd in unique(Loblolly$Seed))
      lines(height ~ age, data = subset(Loblolly, Seed == sd), lwd = LW)
    title(LW)
  }
  dev.off()
}