1

TukeyHSD 関数は、title関数内にラップされたタイトル「alpha% family-wise trust level」を出力します。したがって、main = ""アプローチを使用してタイトルを削除すると、エラー メッセージが表示されます。

x <- rnorm(20,5,6)
y <- factor(c(rep("d", 5), rep("i",5), rep("t",5), rep("l",5)))

z <- aov(x ~ y)

plot(TukeyHSD(z), main = "")

Error in plot.default(c(xi[, "lwr"], xi[, "upr"]), rep.int(yvals, 2),  : 
  formal argument "main" matched by multiple actual arguments

Joris Meys はmain = ""、plot.TukeyHSD 関数に配置することを提案しています。ただし、関数を手動で編集しようとすると、エラー メッセージも表示されます。

tukey.edit <- function (x, ...) 
{
    for (i in seq_along(x)) {
        xi <- x[[i]][, -4, drop = FALSE]
        yvals <- nrow(xi):1
        dev.hold()
        on.exit(dev.flush())
        plot(c(xi[, "lwr"], xi[, "upr"]), rep.int(yvals, 2), 
            type = "n", axes = FALSE, xlab = "", ylab = "", main = "", # changed main = NULL to main = ""
            ...)
        axis(1, ...)
        axis(2, at = nrow(xi):1, labels = dimnames(xi)[[1L]], 
            srt = 0, ...)
        abline(h = yvals, lty = 1, lwd = 0.5, col = "lightgray")
        abline(v = 0, lty = 2, lwd = 0.5, ...)
        segments(xi[, "lwr"], yvals, xi[, "upr"], yvals, ...)
        segments(as.vector(xi), rep.int(yvals - 0.1, 3), as.vector(xi), 
            rep.int(yvals + 0.1, 3), ...)
        title(xlab = paste("Differences in mean levels of", 
            names(x)[i])) # removed main from here
        box()
    }
}

tukey.edit(z)

Error in x[[i]][, -4, drop = FALSE] : incorrect number of dimensions

私は何を間違えましたか、またプロットのタイトルを削除するにはどうすればよいですか?

4

1 に答える 1

1

うーん、これはちょっと恥ずかしい。TukeyHSDプロット関数内では使用しませんでした。これは機能します：

tukey.edit(TukeyHSD(z))
于 2012-12-03T10:03:34.150 に答える