facet_wrap和缩放点大小

Question

简而言之: 我想为使用的双面板绘图的每个"面板"分别设置图例facet_wrap.facet_wrap(scales="free")当我想要不同的轴刻度时,使用工作正常,但不适用于点的大小.

背景: 我有几个样本的数据,每个样本有三个测量:x,y和z.每个样本来自1类或2类.x和y在每个类中具有相同的分布.但是,1级的所有z测量值都小于1.0; 第2类的z测量值范围为0到100.

我被卡住的地方:分别在x和y轴上 绘制x和y.使每个点的面积与其z值成比例.

d = matrix(c(runif(100),runif(20)*100),ncol=3)
e = data.frame( gl(2,20), d )
colnames(e) = c("class","x","y","z")
ggplot( data = e, aes(x=x, y=y, size=z) ) + 
  geom_point() + scale_area() +
  facet_wrap( ~ class, ncol=1, scales="free" )

问题: 请注意,第一个面板上的点很难看到,因为它们位于用于单个图例的刻度的最低端,范围从0到100.甚至可以有两个单独的图例(每个图例都有一个不同的范围)或者我应该制作两个图并将它们与视口组合？

Answer 1

使用的解决方案grid.arrange.我留下了电话,facet_wrap所以strip.text遗体.你可以轻松删除它.

# plot for class 1
c1 <- ggplot(e[e$class==1,], aes(x=x,y=y,size=z)) + geom_point() + scale_area() + facet_wrap(~class)
# plot for class 2
c2 <- c1 %+% e[e$class==2,]

library(gridExtra)

grid.arrange(c1,c2, ncol=1)