[r] ggplot2를 사용하여 R의 각 막대에 대해 geom_bar에 레이블을 배치하는 방법

나는 이것을 ggplot2로 R에서 geom_bar 위에 레이블을 붙이는 방법을 찾았 지만 하나의 막대에만 레이블 (숫자)을 넣었습니다.

여기에 각 x 축에 대해 두 개의 막대가 있다고 가정 해 보겠습니다. 동일한 작업을 수행하는 방법은 무엇입니까?

내 데이터와 코드는 다음과 같습니다.

dat <- read.table(text = "sample Types Number
sample1 A   3641
sample2 A   3119
sample1 B   15815
sample2 B   12334
sample1 C   2706
sample2 C   3147", header=TRUE)

library(ggplot2)
bar <- ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
  geom_bar(position = 'dodge') + geom_text(aes(label=Number))

그러면 다음을 얻을 수 있습니다.

숫자 텍스트도 “닷지”패턴에 배치 된 것 같습니다. 몇 가지 정보를 찾기 위해 geom_text 매뉴얼 을 검색 했지만 작동하지 않습니다.

제안?

답변

ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
     geom_bar(position = 'dodge', stat='identity') +
     geom_text(aes(label=Number), position=position_dodge(width=0.9), vjust=-0.25)

ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
 geom_bar(position = "dodge", stat = 'identity') +
 geom_text(aes(label=Number), position=position_dodge(width=0.9*86400), vjust=-0.25)