R ggplotで棒グラフを値でソートするにはどうすればよいですか？ここ

Question

は私の簡単な資産のデータセットです：

assets <- read_excel("C:/R/SampleData.xlsx") 
g <- ggplot(assets, aes(Currency, Value)) 
g + geom_col() 

そして、これは私が手にプロットしたものである：ここで

ID Type Currency Value 
a Bond GBP   10 
b Bond EUR   20 
c Stock GBP   3 
d Stock GBP   60 
e Bond GBP   8 
f Bond USD   39 
g Stock USD   1 

がコードである

私がしようとしています同じプロットを作成しますが、値でソートされた棒グラフ（降順） これはどのようにして達成できますか？ は、私は次のコードを試してみました：

assets$Currency <- factor(assets$Currency, levels = assets$Currency[order(assets$Value)]) 

しかし、私は次の警告メッセージを取得し、グラフがまだ正しくソートされていません。

Warning message: 
In `levels<-`(`*tmp*`, value = if (nl == nL) as.character(labels) else paste0(labels, : 
duplicated levels in factors are deprecated 

ありがとう！

Answer 1

ggplot(assets, aes(reorder(Currency, -Value, sum), Value)) + 
    geom_col()