R 基于条件的叠加对图

**编辑：*很抱歉，情况可能比我所说的要复杂一些。但是，这两个脚本都可以工作，尽管由于点重叠，第一个脚本对于大型数据集可能不太清晰！非常感谢Sacha

我想首先显示几个变量对，然后叠加同一数据集的选定数据。通常，可以使用

par（new=T）

实现叠加，如下所示：

h<-rnorm(nc)  # this variable was used for conditioning
x<-rnorm(nc)
y<-rnorm(nc)
z<-rnorm(nc)
m<-cbind(x,y,z)
pairs(m)
par(new=T)
pairs(m[h>0.7,],col="red")

---

h我假设
paris
必须是
成对的
？
pairs
函数没有一个
add
参数，因为绘图有9个面板（简单地做
点
将在最后一个面板中绘图），所以它可能也不是那么简单。但使用
col
在一个绘图中实现您想要的功能并不难：

nc <- 100
set.seed(1)
x<-rnorm(nc)
y<-rnorm(nc)
z<-rnorm(nc)
m<-cbind(x,y,z)

cols <- ifelse(x>0.7,"red","black")
pairs(m,col=cols)

这给出了与之前相同的图片（因为我没有设定种子，所以得到了不同的点）。简单地创建颜色向量将更容易实现这一点，但您可以将面板功能设置为您想要的大小

另外，
…
允许将其他参数传递给
点
函数：

pairs(m,panel=panelfun,pch=16)

我假设巴黎一定是成对的？
pairs
函数没有一个
add
参数，因为绘图有9个面板（简单地做
点
将在最后一个面板中绘图），所以它可能也不是那么简单。但使用
col
在一个绘图中实现您想要的功能并不难：

nc <- 100
set.seed(1)
x<-rnorm(nc)
y<-rnorm(nc)
z<-rnorm(nc)
m<-cbind(x,y,z)

cols <- ifelse(x>0.7,"red","black")
pairs(m,col=cols)

这给出了与之前相同的图片（因为我没有设定种子，所以得到了不同的点）。简单地创建颜色向量将更容易实现这一点，但您可以将面板功能设置为您想要的大小

另外，
…
允许将其他参数传递给
点
函数：

pairs(m,panel=panelfun,pch=16)

lattice:：splom
工作正常。颜色索引需要增加1，因为R索引是基于1而不是基于零的，并且逻辑向量强制为0和1

library(lttice)
nc=100; h<-rnorm(nc)  
x<-rnorm(nc)
y<-rnorm(nc)
z<-rnorm(nc)
m<-cbind(x,y,z)
splom(m, col=c("blue", "red")[1+(h>0.7)])

库（lttice）
nc=100；h
lattice:：splom
工作正常。颜色索引需要增加1，因为R索引是基于1而不是基于零的，并且逻辑向量强制为0和1

library(lttice)
nc=100; h<-rnorm(nc)  
x<-rnorm(nc)
y<-rnorm(nc)
z<-rnorm(nc)
m<-cbind(x,y,z)
splom(m, col=c("blue", "red")[1+(h>0.7)])

库（lttice）
nc=100；H