채우기 위치에 따라 geom_bar 라벨을 추가

Question

나는 다음과 같은 데이터가 있습니다

set.seed(1) 
df <- data.frame(type=c("A","B","D","A","C","D","B","C","D","E"), 
       count=as.integer(runif(10,100,200)), 
       sample=c(1,1,1,2,2,2,3,3,3,3),stringsAsFactors=F) 
df$type <- factor(df$type,levels=unique(sort(df$type))) 

내가 geom_bar를 사용하여 플롯 :

require(ggplot2) 
ggplot(df,aes(x=sample,y=count,fill=type))+geom_bar(stat="identity",position="dodge")+theme(legend.position="none") 

내 질문이 방법으로 df$type를 추가됩니다 각 막대 위에 레이블을 붙이시겠습니까?

추가 :

분명히

geom_text(aes(label=type,hjust=0),position=("dodge")) 

이

Answer 1

작동하지 않습니다이 작동합니다 :의

ggplot(df,aes(x=sample,y=count,fill=type))+ 
    geom_bar(stat="identity",position="dodge")+ 
    geom_text(aes(label=type,hjust=0, vjust=-0.1),position=position_dodge(width = 1))+ 
    theme(legend.position="none")