使用 pdf() 处理特定情节时遇到问题答案

【问题标题】：having trouble with a specific plot using pdf()使用 pdf() 处理特定情节时遇到问题
【发布时间】：2011-05-18 01:53:01
【问题描述】：

我正在尝试创建 TukeyHSD 事后测试图的 pdf（通过 Sweave，但我也尝试过 pdf()，产生相同的结果）。虽然 Document viewer (Ubuntu 10.04) 和 Acrobat Reader 无法正确显示绘图，但 Foxit reader 没有问题。 Acrobat Reader 显示图像无法显示的错误，DV 打印出这个...“东西”（它应该有水平置信区间条和垂直虚线）。

这仅发生在 TukeyHSD 事后测试图上，所有其他数字都打印得很好（在 R 的绘图设备中打印得很好）。有没有人经历过这个或类似的事情？我还有哪些其他选择？

【问题讨论】：

标签： pdf r plot

【解决方案1】：

同样的事情发生在 Mac 上。预览可以正确显示它，但 Acrobat Reader 在带有标签的正确绘制框中没有段。尝试向调用添加 col="black 参数失败，但您可以通过在段绘图调用中使用 col="black" 重新定义 plot.TukeyHSD 来消除该行为：

plot.TukeyHSD2 <- function (x, ...) {
    for (i in seq_along(x)) {
        xi <- x[[i]][, -4, drop = FALSE]
        yvals <- nrow(xi):1
        plot(c(xi[, "lwr"], xi[, "upr"]), rep.int(yvals, 2), 
            type = "n", axes = FALSE, xlab = "", ylab = "", ...)
        axis(1, ...)
        axis(2, at = nrow(xi):1, labels = dimnames(xi)[[1L]], 
            srt = 0, ...)
        abline(h = yvals, lty = 1, lwd = 1, col = "lightgray")
        abline(v = 0, lty = 2, lwd = 1, ...)
        segments(xi[, "lwr"], yvals, xi[, "upr"], yvals, col="black", ...)
        segments(as.vector(xi), rep.int(yvals - 0.1, 3), as.vector(xi), 
            rep.int(yvals + 0.1, 3), col="black", ...)
        title(main = paste(format(100 * attr(x, "conf.level"), 
            2), "% family-wise confidence level\n", sep = ""), 
            xlab = paste("Differences in mean levels of", names(x)[i]))
        box()
    }
}

【讨论】：

如果你在卢布尔雅那，我请你喝啤酒。