ggplot2で複数のジオメトリを持つビジュアルオブジェクトのプロット順序を制御する

Question

ggplotを特定の順序でプロットして、オブジェクトが重なったときに表示されるものを制御します。各データ行は、2つのジオメトリレイヤーのコンポジットにマップされます。プロットの詳細には、これが必要です。私はこれを行うためにループを使用してきましたが、それは非常に遅いです。もっと良い方法があるのだろうか？例えば

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

私はちょうどあなたのコードを使用し、それはこの

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

のように見え、結果はこの1つ

ある ggplot2 にレイヤーの順序を変更

geom_line呼び出しを削除すると、同じ結果が得られますが、境界線は生成されません。