控制ggplot2中具有多个几何的可视对象的绘图顺序

Question

我希望ggplot以特定顺序绘制，以控制对象重叠时可见的内容。每个数据行映射到2个几何图层的合成 - 图的细节需要这样。我一直在使用循环来做这件事，但它很慢。我想知道是否有更好的方法？ e.g。

d = data.frame(x=c(1,5,2,2,4,2), y=c(1,1,4,3,3,5), grp=c(1,1,1,2,2,2))

ggplot(d, aes(x, y, group=grp)) + 
  geom_polygon(aes(fill = factor(grp))) +
  geom_line(size=1)

每条多边形线应与其多边形一起绘制 - 例如，红色多边形的线条应该被蓝色的多边形遮挡。当geom_polygon和geom_line使用相同的数据集时，有没有办法在没有循环的情况下实现这一目标？

修改：循环方法..

以下是我使用的循环方法。添加了更好的数据集来比较性能。两者都需要大约5.6秒才能在我的机器上运行。相比之下，典型方法（ggplot(d, aes(x, y, fill=factor(grp))) + geom_polygon() + geom_line(size=1)）需要0.45秒。

d = data.frame(x = sample(-30:30,99,rep=T) + rep(sample(1:100,33),each=3),
               y = sample(-30:30,99,rep=T) + rep(sample(1:100,33),each=3),
               grp = rep(1:33,each=3))

# Method 1 - for loop
p = ggplot()
for(g in unique(d$grp)){
  dat = subset(d, grp == g)
  p = p + geom_polygon(data=dat, aes(x, y, fill = factor(grp))) + 
    geom_line(data=dat, aes(x, y), size=1)
}
print(p)

# Method 2 - apply
ggplot() + lapply(unique(d$grp), FUN=function(g){
  dat = subset(d, grp == g)
  list(geom_polygon(data=dat, aes(x, y, fill = factor(grp))),
       geom_line(data=dat, aes(x, y), size=1))
})

Answer 1

我刚刚使用了您的代码并更改了ggplot2中图层的顺序 看起来像这样

d = data.frame(x=c(1,5,2,2,4,2), y=c(1,1,4,3,3,5), grp=c(1,1,1,2,2,2))

ggplot(d, aes(x, y, group=grp)) +
   geom_line(size=1)+
   geom_polygon(aes(fill = factor(grp)))

结果就是这个

另请注意，如果您移除geom_line来电，则会产生相同的结果但没有边框。