Диаграмма рассеяния с маргинальными гистограммами в ggplot2

Есть ли способ создания диаграмм рассеяния с маргинальными гистограммами, как в примере ниже вggplot2? В Matlab этоscatterhist() функция и существуют эквиваленты для R, а также. Однако я не видел его для ggplot2.

Я начал попытку с создания отдельных графиков, но не знаю, как их правильно расположить.

 require(ggplot2)
 x<-rnorm(300)
 y<-rt(300,df=2)
 xy<-data.frame(x,y)
     xhist <- qplot(x, geom="histogram") + scale_x_continuous(limits=c(min(x),max(x))) + opts(axis.text.x = theme_blank(), axis.title.x=theme_blank(), axis.ticks = theme_blank(), aspect.ratio = 5/16, axis.text.y = theme_blank(), axis.title.y=theme_blank(), background.colour="white")
     yhist <- qplot(y, geom="histogram") + coord_flip() + opts(background.fill = "white", background.color ="black")

     yhist <- yhist + scale_x_continuous(limits=c(min(x),max(x))) + opts(axis.text.x = theme_blank(), axis.title.x=theme_blank(), axis.ticks = theme_blank(), aspect.ratio = 16/5, axis.text.y = theme_blank(), axis.title.y=theme_blank() )


     scatter <- qplot(x,y, data=xy)  + scale_x_continuous(limits=c(min(x),max(x))) + scale_y_continuous(limits=c(min(y),max(y)))
none <- qplot(x,y, data=xy) + geom_blank()

и расположив их с помощью функцииВот, Но вкратце: есть ли способ создания этих графиков?

Ответы на вопрос(9)

Ваш ответ на вопрос