ggplot2を使って棒グラフにy軸を配置する方法

Question

私は以下のデータフレームを持っています。棒グラフをプロットしようとしています。

country <- c('AUD','USD','GBP','ROW','EUR') 
count <- c(58, 28, 8, 4, 2) 
data <- data.frame(country, count) 

    ggplot(data = data , aes(x = 'COUNTRY', y = reorder(count, -count), fill = country))+ 
    geom_bar(stat = "identity")+ 
    xlab("COUNTRY")+ 
    ylab("TOTAL")+ 
    theme_minimal()+ 
    geom_text(aes(label = country), vjust = -0.5, size = 3)+ 
    scale_fill_brewer(palette="Paired")+ 
    theme(legend.position = "bottom", 
     legend.title = element_blank()) 

このコードで生成されたプロットには、軸と点のラベルが順番に含まれていません。 以下のプロットが生成されます。

私はこの軸を再配置し、ラベルをカウントする助けを必要としています。

Answer 1

出力がどのように見えるかはっきりしません。このようなものは大丈夫でしょうか？

ggplot(data = data , aes(x = 'COUNTRY', y = count, 
         fill = reorder(country, count)))+ 
    geom_bar(stat = "identity")+ 
    xlab("COUNTRY")+ 
    ylab("TOTAL")+ 
    theme_minimal()+ 
    geom_text(aes(label = sprintf("%s (%d)", country, count), 
       y = cumsum(count) - 0.5*count), size = 3)+ 
    scale_fill_brewer(palette="Paired")+ 
    theme(legend.position = "bottom", 
     legend.title = element_blank())