pdf（）を使用して特定のプロットで問題が発生しました

Question

私はTukeyHSDのポストホックテストプロットのPDFを作成しようとしています（Sweaveを通じて、私はpdf()も同じ結果を出しています）。ドキュメントビューア（Ubuntu 10.04）とAcrobat Readerではプロットを正しく表示できませんが、Foxitリーダーは問題ありません。 Acrobat Readerは、画像を表示できず、DVがこれを印刷するというエラーを表示します。「もの」（水平信頼区間バーと垂直点線を持つ必要があります）。

これはのみTukeyHSD事後試験区、うまく他のすべての数字の印刷（プロットはRの作図デバイスで正常に印刷します）のために起こります。誰かがこれを経験しましたか？私の他の選択肢は何ですか？

Answer 1

Macでは同じことが起こります。プレビューで正しく表示されますが、Acrobat Readerには、ラベル付きの適切に描かれたボックス内にセグメントがありません。 COL =追加しようとすると、「呼び出しが失敗に黒引きをしますが、動作がCOLで= 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() 
    } 
}