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

结果应该是一个三角形的图形阵列，理想的是刻面 .

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

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| * + + + +

请注意，地块的排序无关紧要; * 和 + 可以混合在一起 .

r ggplot2 facet-wrap