0

我正在尝试使用 R 创建我的数据的高分辨率图像。黄土曲线和半透明置信区间使用 gplot 打印。这行得通。当我在其周围放置一个包装器以打印 eps 图像时，出现以下错误：“警告消息：在 grid.Call.graphics(L_polygon, x$x, x$y, index) 中：不支持半透明这个设备”

生成的 *.eps 图像没有置信区间。

我不一定要留在 gplot。我还可以切换到 *.tif 或期刊出版物广泛接受的另一种高分辨率图像类型。或者我可以从半透明切换到实心 CI，并在顶部绘制黄土曲线。我已经为最后一个想法编写了多行代码，最终可能会奏效，但我希望有人知道更直接的解决方案。

谢谢，肖娜

    ##--- HiRes 
    setwd("C:/temp")
    require(graphics)
    setEPS()
    postscript("tmp.eps", height=8, width=8)

    ##--- Plot and print the curves with their CI's
    p <- qplot(P, D, data=DF, geom=c("smooth"),
            method="loess", formula=y~x,
            group=Solution:TestDate, color=Solution, shape=TestDate,
            xlab="Pressure (mmHg)", ylab="Diameter (mm)"
    )
    p <- p + theme(panel.grid.major = element_blank(), 
            #panel.grid.minor = element_blank(), 
            panel.background = element_blank(), 
            axis.line = element_line(colour = "black"))
    p

    dev.off()


    ##--- Dataframe
    TestDate Solution    P    D
    23-Jul-13    krebs  9.6 1.38
    23-Jul-13    krebs 15.0 1.45
    23-Jul-13    krebs 20.2 1.51
    23-Jul-13    krebs 24.9 1.60
    23-Jul-13    krebs 29.9 1.68
    23-Jul-13    krebs 35.3 1.75
    23-Jul-13    krebs 40.3 1.80
    23-Jul-13    krebs 45.1 1.85
    23-Jul-13    krebs 50.2 1.89
    23-Jul-13    krebs 55.3 1.92
    23-Jul-13    krebs 50.2 1.89
    23-Jul-13    krebs 45.0 1.86
    23-Jul-13    krebs 40.1 1.83
    23-Jul-13    krebs 35.0 1.80
    23-Jul-13    krebs 30.2 1.74
    23-Jul-13    krebs 25.0 1.68
    23-Jul-13    krebs 20.1 1.60
    23-Jul-13    krebs 14.9 1.50
    23-Jul-13    krebs  9.7 1.43
    23-Jul-13    krebs  4.8 1.34
    23-Jul-13      hik 10.2 1.31
    23-Jul-13      hik 15.2 1.35
    23-Jul-13      hik 20.2 1.41
    23-Jul-13      hik 25.2 1.47
    23-Jul-13      hik 30.1 1.52
    23-Jul-13      hik 35.3 1.59
    23-Jul-13      hik 40.2 1.64
    23-Jul-13      hik 45.2 1.75
    23-Jul-13      hik 50.1 1.81
    23-Jul-13      hik 55.0 1.83
    23-Jul-13      hik 50.1 1.80
    23-Jul-13      hik 45.2 1.77
    23-Jul-13      hik 40.2 1.70
    23-Jul-13      hik 35.1 1.62
    23-Jul-13      hik 30.2 1.56
    23-Jul-13      hik 25.0 1.48
    23-Jul-13      hik 20.2 1.42
    23-Jul-13      hik 15.2 1.36
    23-Jul-13      hik 10.2 1.32
    9-Aug-13    krebs  7.5 1.48
    9-Aug-13    krebs 15.0 1.62
    9-Aug-13    krebs 20.1 1.78
    9-Aug-13    krebs 25.1 1.99
    9-Aug-13    krebs 30.1 2.27
    9-Aug-13    krebs 35.1 2.49
    9-Aug-13    krebs 40.0 2.62
    9-Aug-13    krebs 45.0 2.70
    9-Aug-13    krebs 50.0 2.74
    9-Aug-13    krebs 55.0 2.77
    9-Aug-13    krebs 50.0 2.75
    9-Aug-13    krebs 45.1 2.73
    9-Aug-13    krebs 40.0 2.71
    9-Aug-13    krebs 34.9 2.60
    9-Aug-13    krebs 30.0 2.44
    9-Aug-13    krebs 25.1 2.17
    9-Aug-13    krebs 20.1 1.90
    9-Aug-13    krebs 15.1 1.69
    9-Aug-13    krebs  9.8 1.56
    9-Aug-13      hik  9.9 1.41
    9-Aug-13      hik 14.9 1.49
    9-Aug-13      hik 20.0 1.56
    9-Aug-13      hik 25.0 1.69
    9-Aug-13      hik 30.1 1.84
    9-Aug-13      hik 35.3 2.04
    9-Aug-13      hik 40.1 2.29
    9-Aug-13      hik 45.1 2.53
    9-Aug-13      hik 50.0 2.66
    9-Aug-13      hik 55.1 2.73
    9-Aug-13      hik 50.1 2.69
    9-Aug-13      hik 44.9 2.58
    9-Aug-13      hik 40.0 2.37
    9-Aug-13      hik 35.2 2.08
    9-Aug-13      hik 30.1 1.81
    9-Aug-13      hik 24.9 1.61
    9-Aug-13      hik 19.8 1.48
    9-Aug-13      hik 14.6 1.39
    9-Aug-13      hik 10.0 1.32
4

1 回答 1

0

您可以使用 svg 格式（标量矢量图形），它是矢量的，在每个缩放级别始终具有最高分辨率并支持 alpha 透明度。或者也是pdf格式。

R 中的函数是svg()，它们位于基本 GNU R 中已有pdf()的包中。grDevice

于 2014-08-10T21:53:10.327 回答