ggplot2 aşağıdaki gibi örnek marjinal çubuk ile scatterplots yaratmanın bir yolu var mı? Matlab scatterhist() fonksiyonu ve R için benzerleri de var. Ancak, ggplot2 için görmedim.

Tek grafikler oluşturarak bir girişim başladım ama düzgün düzenlemek için nasıl bilmiyorum.

 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()

ve işlevi ile düzenlenmesi here gönderildi. Ama bu uzun bir hikaye kısa yapmak için: grafikler? bu yaratmanın bir yoludur

Bu tamamen duyarlı bir cevap değil ama çok basit. Şeffaflık destekleyen grafik çıkışı için alfa düzeyleri nasıl kullanılır marjinal yoğunluğu ve aynı zamanda görüntülemek için alternatif bir yöntem göstermektedir:

scatter <- qplot(x,y, data=xy)    
         scale_x_continuous(limits=c(min(x),max(x)))   
         scale_y_continuous(limits=c(min(y),max(y)))   
         geom_rug(col=rgb(.5,0,0,alpha=.2))
scatter