不同点大小的相关散点矩阵图（R）

我刚画了一个十字，画了这个散点矩阵图：

（来源：）

并希望通过使圆点的大小/颜色（在下三角形中）根据出现的该类型选项的数量（如抖动可能给我的效果）不同，将其实现为likret比例变量（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)

---

panel.smooth2当然，只需使用
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))

set.seed（42）
DF您可以使用“符号””（类似于“lines”、“abline”等方法。）

此方法将在一行代码中为您提供对符号大小和颜色的细粒度控制

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

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

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

使用“符号”的一种方法是调用绘图函数并传入type='n'，该函数创建绘图对象，但不绘制符号，以便下一步可以使用“符号”函数绘制符号

我不会为此推荐“cex”“cex”是文本大小和符号大小的比例因子，但它影响这两个绘图元素中的哪一个取决于传入的时间——如果通过“par”设置，则它会作用于绘图上显示的大多数文本；如果将其设置在“绘图”功能中，则会影响符号大小。
谢谢道格，我同意你的解决方案，但出现了另一个问题（我更新了原始问题）-有什么想法吗？谢谢谢恩，我实施了你的建议，并在此处发布了结果（显然有信用）：嗨，德克，谢谢。我最终使用了道格的建议，但又出现了另一个问题（我更新了原来的问题）-有什么想法吗？