R - 在splom中的注释点和自定义对角线图

Question

我在R中有一个小例子：

myData <- data.frame(x=runif(10),y=runif(10),z=runif(10),bin= factor(sample(0:1, 20, replace = TRUE),labels = c("yes", "no") ))

splom(myData[c("x","y","z")],  diag.panel = function(x, ...) {
  yrng <- current.panel.limits()$ylim
  d <- density(x)
  d$y <- with(d, yrng[1] + 0.95 * diff(yrng) * y / max(y) )
  panel.lines(d)
 })
 #diag.panel from: http://homepage.stat.uiowa.edu/~luke/classes/295-vis/splomdiag.html

我想做两件事。

1. 颜色（并填充）每个散点图中的点：红色为bin =＆＃34;是＆＃34;并且灰色表示bin =＆＃34; no＆＃34;

2. 绘制bin的百分比（是/否）并将其覆盖在对角线直方图上以评估bin的百分比与x，y，z的距离的相关性

有人已经实现了这个并愿意分享代码吗？