相关散点矩阵图与不同的点大小(在R中)

Question

我只是来了一个这个漂亮的代码,使这个散点矩阵图:

alt text http://addictedtor.free.fr/graphiques/graphiques/graph_137.png

并且希望通过使点的大小/颜色(在下三角形中)根据该类型的多少选项发生而不同(例如抖动可能给我的效果)将其实现为可能的比例变量(1到5的整数) ).

有关如何在基础绘图机制上执行此操作的任何想法？

更新:

我做了以下功能,但不知道如何让点的规模总是"好",你怎么看？

panel.smooth2 <- function (x, y, col = par("col"), bg = NA, pch = par("pch"), 
                    cex = 1, col.smooth = "red", span = 2/3, iter = 3, ...) 
{
    require(reshape)
    z <- merge(data.frame(x,y), melt(table(x ,y)),sort =F)$value
    z <- z/ (4*max(z)) 

    symbols( x, y,  circles = z,#rep(0.1, length(x)), #sample(1:2, length(x), replace = T) ,
            inches=F, bg="blue", fg = bg, add = T)

    # points(x, y, pch = pch, col = col, bg = bg, cex = cex)
    ok <- is.finite(x) & is.finite(y)
    if (any(ok)) 
        lines(stats::lowess(x[ok], y[ok], f = span, iter = iter), 
            col = col.smooth, ...)
}



a1 <- sample(1:5, 100, replace = T)
a2 <- sample(1:5, 100, replace = T)
a3 <- sample(1:5, 100, replace = T)
aa <- data.frame(a1,a2,a3)


pairs(aa , lower.panel=panel.smooth2)

Answer 1

您可以使用“符号”（类似于“lines”、“abline”等方法）

此方法将使您能够在一行代码中对符号大小和颜色进行细粒度控制。

使用“符号”，您可以设置符号大小、颜色和形状。形状和大小是通过传入每个符号大小的向量并将其绑定到“圆形”、“正方形”、“矩形”或“星形”来设置的，例如，“星形”= c(4, 3, 5, 1). 颜色用“bg”和/或“fg”设置。

symbols( x, y, circles = circle_radii, inches=1/3, bg="blue", fg=NULL) 

如果我理解你问题的第二部分，你想要合理地确定你用来缩放图中符号的函数以有意义的方式做到这一点。“符号”函数根据“z”变量（或 data.frame 列等）中的值缩放（例如）圆的半径。在下面的行中，我将最大符号大小（半径）设置为 1/ 3 英寸——除了最大的符号之外，每个符号的半径都小一些，按该数据点的值与最大值的比率进行缩放。比那个比例 这是一个好的选择吗？我不知道——在我看来，直径或特别是周长可能更好。无论如何，这都是一个微不足道的改变。总之，传入“圆”的“符号”将与“z”坐标成比例地缩放符号的半径——可能最适合连续变量。我会使用颜色（'bg'）来表示离散变量/因子。

使用“符号”的一种方法是调用绘图函数并传入 type='n'，这会创建绘图对象但禁止绘制符号，以便您接下来可以使用“符号”函数绘制它们。

我不会推荐“cex”用于此目的。“cex”是文本大小和符号大小的缩放因子，但它影响这两个绘图元素中的哪一个取决于您将其传入的时间 - 如果您通过“par”设置它，那么它会作用于出现的大部分文本在情节上；如果您在“绘图”函数中设置它，那么它会影响符号大小。