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

时间:2010-04-07 15:16:13

标签: r matrix plot scatter-plot

我刚刚来了一个交叉this nice code,它产生了这个散射矩阵图:

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)

2 个答案:

答案 0 :(得分:3)

你可以使用'符号'(类似于方法'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'来创建绘图对象,但是禁止绘制符号,以便你可以使用'symbols'函数绘制它们。

我不会为此目的推荐'cex'。 'cex'是文本大小和符号大小的缩放系数,但它影响的两个绘图元素中的哪一个取决于您何时传入它 - 如果您通过'par'设置它然后它会对出现的大部分文本起作用在情节上;如果你在'plot'函数中设置它,那么它会影响符号大小。

答案 1 :(得分:2)

当然,只需使用cex

set.seed(42)
DF <- data.frame(x=1:10, y=rnorm(10)*10, z=runif(10)*3) 
with(DF, plot(x, y, cex=z))

为您提供不同的圆圈尺寸。颜色可以简单地成为第四个维度。