相关图（对）内的高密度图（hexbin）

Question

我想使用R函数对（）构建一个相关图。在下面的面板中，我想表示使用hexbin（）生成的高密度图。但是，我有问题将六边形图定位在下面板的正确位置。

这是生成每个hexbin图的函数：

density_pts<- function(x,y,...){
  bin <- hexbin(x, y, xbins=50)
  plot(bin, main="", xlab="", ylab="",legend=F,newpage = FALSE)
}

问题是density_pts生成的每个绘图都不适合下面板框。我可以使用哪些参数来正确定位它们？

这里和问题的例子：

data<-data.frame(A = sample(1:1000),B = sample(1:1000),C = sample(1:1000),D = sample(1:1000))

density_pts<- function(x,y,...){
  bin <- hexbin(x, y, xbins=50)
  plot(bin, main="", xlab="", ylab="",legend=F)
}

# default scatterplot
pairs(data,upper.panel = NULL)

# custom high density plot ::: problem :::
pairs(data,lower.panel=density_pts,upper.panel = NULL)

非常感谢提前！

Answer 1

您可以使用hexplom()功能，hexbin版splom()：

density_pts<- function(x,y,...){
  bin <- hexbin(x, y, xbins=50)
  plot(bin, main="", xlab="", ylab="",legend=F,newpage = FALSE)
}
data<-data.frame(A = sample(1:1000),B = sample(1:1000),C = sample(1:1000),D = sample(1:1000))

density_pts<- function(x,y,...){
  bin <- hexbin(x, y, xbins=50)
  plot(bin, main="", xlab="", ylab="",legend=F)
}

# default scatterplot
pairs(data,upper.panel = NULL)

# custom high density plot ::: problem solved :::
hexplom(data, upper.panel = NULL)

导致：