百分比標籤

Question

我想製作一個圖形與此類似：

我開始使用此代碼：

library(ggplot2) 
library(scales) #needed for labels=percent 

var1 <- sample(0:20,78,replace = TRUE) 

var2 <- cut(var1, breaks = seq(0,20,5),include.lowest = TRUE) 
df<-as.data.frame(var2) 

ggplot(df, aes(x= var2)) + 
     geom_bar(aes(y = ..prop..,group=1),fill="dodgerblue3")+ 
     scale_y_continuous(labels=percent)+ 
     labs(x = NULL,y = NULL)+ 
     theme(axis.ticks.x = element_blank(), 
      axis.text = element_text(size=7)) 

但我不能把標籤中劇情。

我試圖按照this example：

ggplot(df, aes(x= var2, group=1)) + 
    geom_bar(aes(y = ..density..)) + 
    geom_text(aes(label = format(100*..density.., digits=2, drop0trailing=TRUE), 
       y= ..density..), stat= "bin", vjust = -.5) + 
    scale_y_continuous(labels=percent) 

但我得到這個錯誤（我用GGPLOT2版本2.0.0）：

Error: StatBin requires a continuous x variable the x variable is discrete. Perhaps you want stat="count"?

最後我做了這個代碼的情節：

per <- df %>% group_by(var2) %>% summarise(freq = n()/nrow(df)) 

ggplot(data=per, aes(x=var2,y=freq)) + 
     geom_bar(stat="identity",fill="dodgerblue3")+ 
     geom_text(aes(label=percent(freq)),vjust=1.5,colour="white")+ 
     scale_y_continuous(labels=percent)+ 
     labs(x = NULL,y = NULL)+ 
     theme(axis.ticks.x = element_blank(), 
      axis.text = element_text(size=7)) 

然而，是否有可能使它像this example，沒有nee d爲per dataframe並直接在ggplot中？

Answer 1

你可以試試這個，它取自here並自定義。

ggplot(df, aes(factor(var2))) + 
    geom_bar(fill="dodgerblue3")+ 
    labs(x = NULL,y = NULL)+ 
    stat_bin(aes(label = paste(prop.table(..count..) * 100, "%", sep = "")), 
      vjust = 1, geom = "text", position = "identity", color ="white") 

，並提供：

編輯：

在新ggplot 2.0.X版本，stat_count應使用不stat_bin。從help

stat_count, which counts the number of cases at each x posotion, without binning. It is suitable for both discrete and continuous x data, whereas stat_bin is suitable only for continuous x data.

ggplot(df, aes(factor(var2))) + 
     geom_bar(fill="dodgerblue3")+ 
     labs(x = NULL,y = NULL)+ 
     stat_count(aes(label = paste(prop.table(..count..) * 100, "%", sep = "")), 
       vjust = 1, geom = "text", position = "identity", color ="white")