2017-05-25 41 views
1

我的第一篇文章到stackoverflow。希望我能得到一些幫助。使用facet_grid繪製具有不同離散值的兩個圖形

我正在查看NOAA自然事件數據庫。我想顯示一組圖表,顯示哪些財務影響是基於發生什麼類型的事件(洪水,龍捲風等)。數據庫將財務損失分爲兩類:財產損失和作物損害。我想顯示兩張圖,顯示財產和作物損失造成的總成本。有很多類別的事件(> 900),所以我只想顯示每個類別(屬性或作物損害)中排名前10位的貢獻者,並按降序排列他們。問題是,這兩個類別的頂級賽事是不同的。當我嘗試使用facet_grid繪製它時,它顯示了這兩個類別之間的所有貢獻者。

damages.graph

下面是代碼:

## 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)) 
+0

使用'facet_wrap(〜型,鱗片= 「免費」,nrow = 2)'。 – Axeman

+0

實際上,如果您切換格式以在一行中顯示圖形,您將獲得正確的類別,但第二個圖形格式不正確,無法以降序顯示? – gunga1214

+0

如果您提供可複製問題的代表性數據集,您可能會收到一些回覆。 –

回答

-1

圖像的圖形一行是更接近我一直在尋找的結果。只需要按降序排列作物數據。

image corrected to show only proper categories

相關問題