使用facet_grid绘制具有不同离散值的两个图形

Question

我的第一篇文章到stackoverflow。希望我能得到一些帮助。

我正在研究NOAA自然事件数据库。我想展示一组图表，根据发生的事件类型（洪水，龙卷风等）显示财务影响。数据库将财务损失分为两类：财产损失和作物损害。我想显示两张图表，显示由于财产和作物损坏造成的总成本。有许多类别的事件（＆gt; 900），因此我只想显示每个类别中的前10名贡献者（财产或作物损坏）并按降序对它们进行单独排名。问题是，两个类别的顶级事件是不同的。当我尝试使用facet_grid绘制它时，它会显示两个类别之间的所有贡献者。

以下是代码：

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

图中一行的图片更接近我想要的结果。只需要按降序排序裁剪数据。