возникли проблемы с конкретным сюжетом с использованием pdf ()

Question

Я пытаюсь создать pdf-файл тестового графика TukeyHSD (через Sweave, но я тоже пробовал pdf(), что дало тот же результат).В то время как Просмотрщик документов (Ubuntu 10.04) и Acrobat Reader не могут отображать график должным образом, Foxit reader не имеет проблем.Acrobat Reader отображает ошибку, что изображение не может быть отображено, и DV печатает эту ... «вещь» (она должна иметь горизонтальные доверительные интервалы и вертикальную пунктирную линию).

Это происходит только для тестовых графиков TukeyHSD, все остальные рисунки печатаются просто отлично (график печатается нормально в устройстве построения графиков R).Кто-нибудь испытывал это или что-то подобное?Какие у меня есть другие варианты?

Answer 1

То же самое происходит на Mac. Предварительный просмотр отображает его правильно, но Acrobat Reader не имеет сегментов внутри правильно нарисованного поля с метками. Попытка добавить аргумент col = "black к вызову завершилась неудачно, но вы можете убрать поведение, переопределив plot.TukeyHSD с col =" black "в вызовах построения сегмента:

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