单个渐变填充Facet Wrap

Question

我正在尝试实现一个输出，其中填充渐变在每个直方图上是独立的。我知道我可以创建单独的图，然后使用grid.arrange组合它们，但我希望这可以处理任意列数的数据集。

感谢任何帮助。

P.S。我会包含一张图片，但我没有声望点。

# rm(list=ls())

var_his <- function(this_data){
    this_data <- melt(this_data)
    ggplot(this_data, aes(x = value)) + 
        geom_histogram(aes(x = value, y = ..density.., fill = ..count..), position="identity") +  
        facet_wrap(~variable, scales = "free") +
        scale_fill_gradient('count', low='lightblue', high='steelblue')
}

data(Seatbelts)
data <- data.frame(Seatbelts)
var_his(data)