Jak wyświetlić procent etykiety na górze każdego paska

Question

Jestem początkującym dla RI używam ggplot do wyświetlania wykresu słupkowego.Chcę wyświetlić procent górnej części każdego paska.Nie chcę konwertować osi Y na procent etykiety .Raczej chcę wyświetlić częstotliwość na osi y i procent każdej grupy na górze paska.

Moje dane Snippet jest

A mój pożądany fragment wyjście jest

Wszelkie pomaga są mile widziane

Answer 1

Ten rodzaj działki można łatwo tworzyć z ggplot2 .

dat <- data.frame(Frequency = c(10, 5, 97, 47, 50), 
        Fruits = gl(5, 1, labels = c("Mango", "Apple", "Orange", 
               "Guava", "Papaya"))) 


library(ggplot2) 
ggplot(dat, aes(x = Fruits, y = Frequency)) + 
    geom_bar(stat = "identity") + 
    geom_text(aes(label = sprintf("%.2f%%", Frequency/sum(Frequency) * 100)), 
      vjust = -.5)