총 누적 막대 값으로 ggplot geom_bar 레이블 지정

이 코드를 실행하고 있습니다.

url <- 'http://pdet.mte.gov.br/images/Seguro-Desemprego/Segunda%20Quinzena%20de%20Maio/3-%20S%C3%A9rie%20Hist%C3%B3rica%20do%20Seguro-Desemprego%20-%202000%20a%202020%20-%20mensal.xlsx'
data <- rio::import(url, which = "Tabela 1")[-(1:4),] # import data from brazilian gov

# preparing the data
my_df <- t(data[(1),-1])
dates <- seq(as.Date('2000-01-01'), as.Date('2020-05-01'), by='1 month')
meses <- format(dates,"%b")
anos <- as.numeric(format(dates,"%Y"))
my_df <- data.frame(anos, meses, as.numeric(my_df))
colnames(my_df) <- c('year', 'month', 'amount')
my_df <- subset(my_df, month %in% c('jan', 'fev', 'mar', 'abr', 'mai'))
my_df$month <- factor(my_df$month, levels=c('jan', 'fev', 'mar', 'abr', 'mai')) 

> str(my_df)
'data.frame':   105 obs. of  3 variables:
 $ year  : num  2000 2000 2000 2000 2000 ...
 $ month : Factor w/ 5 levels "jan","fev","mar",..: 1 2 3 4 5 1 2 3 4 5 ...
 $ amount: num  343398 375906 394778 347326 386524 ...


# plot
ggplot(my_df, aes(y = year, x = amount/100000)) +
  geom_bar(aes(fill = month), stat = "identity", position = position_stack(reverse = TRUE)) +
  labs(title='Seguro-Desemprego: nº de requerimentos por mês',
       subtitle='Valores acumulados no ano (milhões), corte em maio',
       color = '', x = '', y = '') +
  theme(panel.background = element_blank(),
        panel.grid.minor = element_blank(),
        panel.grid.major = element_blank(),
        plot.background = element_rect(fill='moccasin'),
        plot.title = element_text(color = "red3", size = 19, face = "bold"),
        plot.subtitle = element_text(color = "red4", size = 12, face = "bold"),
        plot.caption = element_text(color = "red4", size = 11, face = "bold"),
        axis.line = element_blank(),
        axis.text.y = element_text(color = "red4", size = 11, face = "bold"),
        axis.text.x = element_blank(),
        axis.ticks=element_blank(),
        legend.position = "none") +
  scale_fill_brewer(palette="Set1", direction = -1) +
  scale_y_continuous(trans = "identity",
                     breaks = seq(from = 2000, to = 2020, by = 1),
                     expand = c(0,0)) +
  scale_x_continuous(expand = c(0,0)) +
  geom_text(aes(label = month), size = 4.6,  hjust = 1, vjust = .3, position = "stack", color = "white", fontface=2)

하지만 각 막대 끝에 amount변수 의 총계를 넣고 싶습니다 year. 즉, 그 위에 누적 막대 전체의 합계를 원합니다 (케이스의 경우 오른쪽에 있음).

내가 사용하려고 stat_summary하고 geom_text여러 사양하지만 원하는 결과를 얻을하지 않았다. 데이터 프레임을 수정하지 않고이를 수행 할 수있는 방법이 있습니까?

편집하다

좋은 소식입니다. 다음과 같이 stat_summary를 사용하여 예상 결과를 얻었습니다.

stat_summary (aes (label = stat (x) / 10), fun = 'sum', geom = 'text', col = 'red4', hjust = -.25, vjust = .45, fontface = 2, position = " identity ", 크기 = 3.6)