GGplot2：将任意数量的直方图和散点图绘制为方面？

Question

我想创建一个方便地接受数据帧的函数，然后，对于数据框中的每个向量，绘制直方图。对于每个额外的向量（超出第一个），我的函数也应该打印几个散点图：向量参数列表中的每个其他向量上的附加向量。

结果应该是三角形的图形阵列，理想情况下是刻面的。

这让我很难过。到目前为止，我有以下几点：

library(ggplot2)
library(reshape2)

scatterHistoChart <- function(data) {

    require(ggplot2)
    require(reshape2)

    #data <- data.frame(...)
    data <- melt(data)

    graph <- ggplot(data,aes(x=value)) + 
             geom_histogram() +
            # geom_point(aes(x=value)) +
             facet_wrap(~variable,scales = "free_x")

    return(graph)

}


scatterHistoChart(diamonds)

修改

其中*是直方图，+是散点图，以下是预期结果的说明：

1-vec| *
2-vec| * +
3-vec| * + +
4-vec| * + + +
5-vec| * + + + +

等。请注意，图的排序无关紧要; *和+可以混合在一起。