facet_gridを使用して異なる離散値を持つ2つのグラフをプロットする

Question

私の最初の投稿をstackoverflowに送ってください。私はいくつかの助けを得ることができるといいですね。

私はNOAA自然イベントデータベースを探しています。財務的影響がどのような種類のイベント（洪水、竜巻など）に基づいているかを示す一連のグラフを表示したいと思います。データベースは財務的損害を財産損害と作物被害の2つのカテゴリに分けます。私は財産と作物の被害による総コストを示す2つのグラフを表示したいと思います。多くのカテゴリのイベント（> 900）がありますので、上位10人の貢献者を各カテゴリ（プロパティまたは作物のダメージ）に表示し、降順で個別にランク付けしたいと思います。問題は、上位のイベントが2つのカテゴリで異なることです。 facet_gridを使ってプロットしようとすると、2つのカテゴリ間のすべてのコントリビュータが表示されます。ここ

コードである：一列のグラフと

## Melt results into usable format 
type.melt <- melt(by_event_dmg, measure.vars=c("prop","crop"), variable.name="type") 
melt.arrange <- arrange(type.melt, type, desc(value)) 
melt.arrange <- melt.arrange[c(1:10,986:995),] 
z <- ggplot(melt.arrange, aes(x= reorder(EVTYPE, -value),y = value)) 
z + geom_bar(stat='identity') + 
    facet_grid(type ~ ., scales="free") + 
    theme(axis.text.x=element_text(angle=90,hjust=1))+ 
    ggtitle("Damages from Natural Events") + 
    theme(plot.title = element_text(hjust=0.5)) 

Answer 1

画像Iが探していた結果に近いです。作物データを降順で並べ替えるだけです。