散点图矩阵

Question

我有一个矩阵 mat[n,m]，我想使用 splom 来绘制 mat[,"col4"] 的散点图，作为所有其他列值的函数。此外，我想为存储在rownID[] 中的某些行号的点添加不同的颜色。我见过使用 splom 的示例，但它们会针对所有变量绘制所有变量，并使用列组来更改点的颜色。是否可以使用 splom （或其他 R 函数）做我想做的事？

例子：

set.seed(1)
mat <-  matrix(sample(0:100, 16), ncol=4)

dimnames(mat) <- list(rownames(mat, do.NULL = FALSE, prefix = "row"),
                          colnames(mat, do.NULL = FALSE, prefix = "col"))

mat
     col1 col2 col3 col4
row1   26   19   58   61
row2   37   86    5   33
row3   56   97   18   66
row4   89   62   15   42

rowID <- matrix(c(1,3), ncol=1, nrow=2)

感谢https://stackoverflow.com/a/16033003/1262767

我一直在使用 caret 包的 featurePlot 功能，但我不知道如何更改某些特定点的颜色（这就是我对 splom):

featurePlot(mat, mat$col4, plot = "scatter",
            ## Add some space between the panels
            between = list(x = 1, y = 1), main = "testSet",
            ## Add a background grid ('g') and a smoother ('smooth')
            type = c("g", "p", "s"))

Answer 1

这似乎不太适合splom。我认为你最好重塑你的数据并使用标准xyplot。例如

library(reshape2)
mm<-melt(cbind(data.frame(mat), high=1:nrow(mat) %in% rowID), c("col4","high"))
xyplot(col4~value|variable, mm, groups=high)

给了