Windows下R图形中的抗锯齿(根据Mac)

Question

有没有办法从Windows版本的R中绘制抗锯齿图形？正如你从下面的两个版本中可以看到,Mac版的R打印图形抗锯齿....

....虽然Windows版本反锯齿文本,但它不会对实际图形进行反锯齿,如从提升点和网格中可以看到的:

这是代码的代码:

library(scatterplot3d) 
attach(mtcars) 
s3d <-scatterplot3d(wt,disp,mpg, pch=16, highlight.3d=TRUE,
  type="h", main="3D Scatterplot")
fit <- lm(mpg ~ wt+disp) 
s3d$plane3d(fit)

我需要最高质量的网页发布.我正在运行Windows 7并从RBloomberg中提取数据,这只能在Windows下运行.

Answer 1

这可能取决于每个平台上的渲染引擎的细节,这可能很难修改.我的建议(未经测试,因缺乏时间和访问Windows):

• 安装cairoDevice包并使用Cairo_png().根据文件:

 This functions the same as any other R graphics device. You may
 use the conventional plot commands and expect essentially the same
 output, except that everything is anti-aliased (similar to other
 vector-based devices like Quartz). Alpha-blending is supported, as
 is enhanced interactivity via ‘getGraphicsEvent’. The device
 should work the same across all supported platforms (Mac, Windows,
 and Linux).

• 以更高的分辨率渲染PNG(或从R输出数据为PDF)并使用ImageMagick(convert)或其他工具来获取所需的抗锯齿版本.

Answer 2

cairoDevice使用Cairo与png设备不再需要安装.您现在可以指定type='cairo'何时打开设备.比较以下内容:

png('test1.png', 500, 500)
s3d <- scatterplot3d(wt,disp,mpg, pch=16, highlight.3d=TRUE,
                     type="h", main="3D Scatterplot")
fit <- lm(mpg ~ wt+disp) 
s3d$plane3d(fit)
dev.off()

png('test2.png', 500, 500, type='cairo')
s3d <- scatterplot3d(wt,disp,mpg, pch=16, highlight.3d=TRUE,
                     type="h", main="3D Scatterplot")
fit <- lm(mpg ~ wt+disp) 
s3d$plane3d(fit)
dev.off()

我正在运行Win 8.1和64位R 3.2.2.

Answer 3

使用矢量设备,如pdf.首先要确保你具备这种能力,所以不出意外的capabilities功能就是检查.如果你有pdf,那么就这样做:

pdf(file="out_graph.pdf")
s3d <-scatterplot3d(wt,disp,mpg, pch=16, highlight.3d=TRUE,
  type="h", main="3D Scatterplot")
fit <- lm(mpg ~ wt+disp) 
s3d$plane3d(fit)
dev.off()

web输出的替代方案可能是png()图形设备.虽然它是一种栅格格式,但它在紧凑性和Web浏览器兼容性方面得到了很高的评价.