将标记添加到parcoord（平行坐标图）

Question

在 MASS包中的parcoord功能看起来相当不错，但是如何添加刻度线 四个y轴？

代码在这里：

 ir <- rbind(iris3[,,1], iris3[,,2], iris3[,,3])
 parcoord(log(ir)[, c(3, 4, 2, 1)], col = 1 + (0:149)%/%50)

Answer 1

您是否尝试在var.label=T功能中设置parcoord？那还不够吗？

否则我没有看到任何使用默认功能更改轴的简单方法。但事实证明，功能很短，我们可以很容易地从它中窃取想法并制作我们自己的版本。这是修改它的一种方法

parcoordlabel<-function (x, col = 1, lty = 1,  lblcol="blue",...) 
{
    df <- as.data.frame(x)
    pr <- lapply(df, pretty)
    rx <- lapply(pr, range, na.rm = TRUE)
    x <- mapply(function(x,r) {
            (x-r[1])/(r[2]-r[1])
        },
        df, rx)
    matplot(1L:ncol(x), t(x), type = "l", col = col, lty = lty, 
        xlab = "", ylab = "", axes = FALSE, ...)
    axis(1, at = 1L:ncol(x), labels = colnames(x))
    for (i in 1L:ncol(x)) {
        lines(c(i, i), c(0, 1), col = "grey70")
        text(c(i, i), seq(0,1,length.out=length(pr[[i]])), labels = pr[[i]], 
            xpd = NA, col=lblcol)
    }
    invisible()
}

您可以使用

运行它

ir <- log(rbind(iris3[,,1], iris3[,,2], iris3[,,3]))[,c(3,4,2,1)]
parcoordlabel(ir, col = 1 + (0:149)%/%50)

现在我承认它有点难看。但希望你能够很好地理解这些作品，以定制你喜欢的方式