avoir des problèmes avec un intrigue spécifique en utilisant pdf()

Question

J'essaie de créer un pdf d'un tracé de test post hoc TukeyHSD (par le biais de Sweave, mais j'ai aussi essayé pdf(), donnant le même résultat). Alors que la visionneuse de document (Ubuntu 10.04) et Acrobat Reader ne peuvent pas afficher correctement le tracé, le lecteur Foxit n'a aucun problème. Acrobat Reader affiche une erreur indiquant que l'image ne peut pas être affichée et que DV imprime cette "chose" (elle doit avoir des barres d'intervalle de confiance horizontales et une ligne pointillée verticale).

Cela se produit uniquement pour TukeyHSD post hoc des parcelles d'essai, tous les autres chiffres d'impression très bien (terrain dans le Tirage dispositif de traçage de la R). Est-ce que quelqu'un a connu cela ou quelque chose de similaire? Quelles sont mes autres options?

Answer 1

La même chose arrive sur un Mac. L'aperçu l'affiche correctement, mais Acrobat Reader ne comporte aucun segment dans une boîte correctement dessinée avec des étiquettes. Tentative d'ajout d'un col = « argument noir à l'appel a échoué, mais vous pouvez faire le comportement disparaître en redéfinissant plot.TukeyHSD avec col = » noir » dans le segment des appels: complotant

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() 
    } 
}