blocks|key|289404|text|library(ggplot2)
library(gridExtra)

set.seed(42)
DF+<-+data.frame(x=rnorm(100,mean=c(1,5)),y=rlnorm(100,meanlog=c(8,6)),group=1:2)

p1+<-+ggplot(DF,aes(x=x,y=y,colour=factor(group)))+%2B+geom_point()+%2B
++scale_x_continuous(expand=c(0.02,0))+%2B
++scale_y_continuous(expand=c(0.02,0))+%2B
++theme_bw()+%2B
++theme(legend.position="none",plot.margin=unit(c(0,0,0,0),"points"))

theme0+<-+function(...)+theme(+legend.position+=+"none",
+++++++++++++++++++++++++++++++panel.background+=+element_blank(),
+++++++++++++++++++++++++++++++panel.grid.major+=+element_blank(),
+++++++++++++++++++++++++++++++panel.grid.minor+=+element_blank(),
+++++++++++++++++++++++++++++++panel.margin+=+unit(0,"null"),
+++++++++++++++++++++++++++++++axis.ticks+=+element_blank(),
+++++++++++++++++++++++++++++++axis.text.x+=+element_blank(),
+++++++++++++++++++++++++++++++axis.text.y+=+element_blank(),
+++++++++++++++++++++++++++++++axis.title.x+=+element_blank(),
+++++++++++++++++++++++++++++++axis.title.y+=+element_blank(),
+++++++++++++++++++++++++++++++axis.ticks.length+=+unit(0,"null"),
+++++++++++++++++++++++++++++++axis.ticks.margin+=+unit(0,"null"),
+++++++++++++++++++++++++++++++panel.border=element_rect(color=NA),...)

p2+<-+ggplot(DF,aes(x=x,colour=factor(group),fill=factor(group)))+%2B+
++geom_density(alpha=0.5)+%2B+
++scale_x_continuous(breaks=NULL,expand=c(0.02,0))+%2B
++scale_y_continuous(breaks=NULL,expand=c(0.02,0))+%2B
++theme_bw()+%2B
++theme0(plot.margin+=+unit(c(1,0,0,2.2),"lines"))+
++
p3+<-+ggplot(DF,aes(x=y,colour=factor(group),fill=factor(group)))+%2B+
++geom_density(alpha=0.5)+%2B+
++coord_flip()++%2B+
++scale_x_continuous(labels+=+NULL,breaks=NULL,expand=c(0.02,0))+%2B
++scale_y_continuous(labels+=+NULL,breaks=NULL,expand=c(0.02,0))+%2B
++theme_bw()+%2B
++theme0(plot.margin+=+unit(c(0,1,1.2,0),"lines"))

grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
+++++++++++++arrangeGrob(p1,p3,ncol=2,widths=c(3,1)),
+++++++++++++heights=c(1,3))|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|289405|​|unstyled|289406|📷|atomic|offset|length|289407|289408|编辑：|289409|我找不到是什么导致了密度几何下面的空间。你可以摆弄图边距来避免它，但我真的不喜欢那样。|289410|p2+<-+ggplot(DF,aes(x=x,colour=factor(group),fill=factor(group)))+%2B+
++geom_density(alpha=0.5)+%2B+
++scale_x_continuous(breaks=NULL,expand=c(0.02,0))+%2B
++scale_y_continuous(breaks=NULL,expand=c(0.00,0))+%2B
++theme_bw()+%2B
++theme0(plot.margin+=+unit(c(1,0,-0.48,2.2),"lines"))+

p3+<-+ggplot(DF,aes(x=y,colour=factor(group),fill=factor(group)))+%2B+
++geom_density(alpha=0.5)+%2B+
++coord_flip()++%2B+
++scale_x_continuous(labels+=+NULL,breaks=NULL,expand=c(0.02,0))+%2B
++scale_y_continuous(labels+=+NULL,breaks=NULL,expand=c(0.00,0))+%2B
++theme_bw()+%2B
++theme0(plot.margin+=+unit(c(0,1,1.2,-0.48),"lines"))|289411|289412|289413|289414|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/87d8d033e1003776c5b29eecf67d544e.png|imageAlt|1|https://ask.qcloudimg.com/http-save/yehe-900000/a4306c5e20913aa28b076225ba76769c.png^0|0|0|0|1|0|0|0|0|0|0|0|0|1|1|0|0^^$0|@$1|2|3|4|5|6|7|16|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|17|8|@]|9|@]|A|$]]|$1|G|3|H|5|I|7|18|8|@]|9|@$J|19|K|1A|1|1B]]|A|$]]|$1|L|3|E|5|F|7|1C|8|@]|9|@]|A|$]]|$1|M|3|N|5|F|7|1D|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|1E|8|@]|9|@]|A|$]]|$1|Q|3|R|5|6|7|1F|8|@]|9|@]|A|$B|C]]|$1|S|3|E|5|F|7|1G|8|@]|9|@]|A|$]]|$1|T|3|H|5|I|7|1H|8|@]|9|@$J|1I|K|1J|1|1K]]|A|$]]|$1|U|3|E|5|F|7|1L|8|@]|9|@]|A|$]]|$1|V|3|-4|5|F|7|1M|8|@]|9|@]|A|$]]]|W|$X|$5|Y|Z|10|A|$11|12|13|-4]]|14|$5|Y|Z|10|A|$11|15|13|-4]]]]

<pre><code>library(ggplot2)
library(gridExtra)

set.seed(42)
DF &lt;- data.frame(x=rnorm(100,mean=c(1,5)),y=rlnorm(100,meanlog=c(8,6)),group=1:2)

p1 &lt;- ggplot(DF,aes(x=x,y=y,colour=factor(group))) + geom_point() +
 scale_x_continuous(expand=c(0.02,0)) +
 scale_y_continuous(expand=c(0.02,0)) +
 theme_bw() +
 theme(legend.position=&quot;none&quot;,plot.margin=unit(c(0,0,0,0),&quot;points&quot;))

theme0 &lt;- function(...) theme( legend.position = &quot;none&quot;,
 panel.background = element_blank(),
 panel.grid.major = element_blank(),
 panel.grid.minor = element_blank(),
 panel.margin = unit(0,&quot;null&quot;),
 axis.ticks = element_blank(),
 axis.text.x = element_blank(),
 axis.text.y = element_blank(),
 axis.title.x = element_blank(),
 axis.title.y = element_blank(),
 axis.ticks.length = unit(0,&quot;null&quot;),
 axis.ticks.margin = unit(0,&quot;null&quot;),
 panel.border=element_rect(color=NA),...)

p2 &lt;- ggplot(DF,aes(x=x,colour=factor(group),fill=factor(group))) + 
 geom_density(alpha=0.5) + 
 scale_x_continuous(breaks=NULL,expand=c(0.02,0)) +
 scale_y_continuous(breaks=NULL,expand=c(0.02,0)) +
 theme_bw() +
 theme0(plot.margin = unit(c(1,0,0,2.2),&quot;lines&quot;)) 
 
p3 &lt;- ggplot(DF,aes(x=y,colour=factor(group),fill=factor(group))) + 
 geom_density(alpha=0.5) + 
 coord_flip() + 
 scale_x_continuous(labels = NULL,breaks=NULL,expand=c(0.02,0)) +
 scale_y_continuous(labels = NULL,breaks=NULL,expand=c(0.02,0)) +
 theme_bw() +
 theme0(plot.margin = unit(c(0,1,1.2,0),&quot;lines&quot;))

grid.arrange(arrangeGrob(p2,ncol=2,widths=c(3,1)),
 arrangeGrob(p1,p3,ncol=2,widths=c(3,1)),
 heights=c(1,3))
</code></pre>
<img src="https://i.stack.imgur.com/iNroz.png" alt="enter image description here" />
<h1>Edit:</h1>
I couldn't find out what causes the space below the densities geoms. You can fiddle with the plot margins to avoid it, but I don't really like that.
<pre><code>p2 &lt;- ggplot(DF,aes(x=x,colour=factor(group),fill=factor(group))) + 
 geom_density(alpha=0.5) + 
 scale_x_continuous(breaks=NULL,expand=c(0.02,0)) +
 scale_y_continuous(breaks=NULL,expand=c(0.00,0)) +
 theme_bw() +
 theme0(plot.margin = unit(c(1,0,-0.48,2.2),&quot;lines&quot;)) 

p3 &lt;- ggplot(DF,aes(x=y,colour=factor(group),fill=factor(group))) + 
 geom_density(alpha=0.5) + 
 coord_flip() + 
 scale_x_continuous(labels = NULL,breaks=NULL,expand=c(0.02,0)) +
 scale_y_continuous(labels = NULL,breaks=NULL,expand=c(0.00,0)) +
 theme_bw() +
 theme0(plot.margin = unit(c(0,1,1.2,-0.48),&quot;lines&quot;))
</code></pre>
<img src="https://i.stack.imgur.com/KSWbt.png" alt="enter image description here" />

How can scatter plots with alpha transparent, scale-less histograms can be made in R, like this figure?

looks like it's not made in ggplot2.<img src="https://i.stack.imgur.com/sVEFc.png" alt="enter image description here">

does anyone know what command is used?

scatterplot with alpha transparent histograms in R

如何在R中绘制具有alpha透明、无比例直方图的散点图，如下图所示？看起来不像是ggplot2制造的。​有人知道使用的是什么命令吗？

问R中带有alpha透明直方图的散点图
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问R中带有alpha透明直方图的散点图EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问R中带有alpha透明直方图的散点图
EN