각 막대 위에 백분율 레이블을 표시하는 방법

Question

저는 RI에 초보자입니다. ggplot을 사용하여 막대 그림을 표시하고 있습니다. 모든 막대의 맨 위 백분율을 표시하고 싶습니다. y 축을 백분율 레이블로 변환하고 싶지 않습니다. . 오히려 나는 y 축에 주파수를 표시하고 막대 위에 모든 그룹의 비율을 표시하려고합니다.

내 데이터 니펫

입니다 그리고 내 원하는 출력 조각은 상관

Answer 1

음모 이런 종류의 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)