r - バーの上に置かれていないggplot geom_text

Question

一部のグループがすべての月に表示されないデータがあります。これを棒グラフにプロットしていますが、数値を示すテキスト ラベルが付いていますが、テキストは各バーの上にはありません。ラベルに「覆い焼き」の位置を使用しようとしましたが、成功しませんでした。

以下は再現可能な例です。

library(ggplot2)
library(dplyr)
library(scales)

data.frame(Month = as.Date(c("2015-01-01", "2015-01-01","2015-01-01",
"2015-02-01","2015-02-01","2015-02-01")),
       types = rep(LETTERS[1:3],2),
       percent = c(0.2,NA,NA,.39,.89,.59)) %>%
  ggplot( aes(x = Month, y = percent, fill = types)) +  
  geom_bar(stat = "identity", position = "dodge") + 
  scale_y_continuous(labels = percent) +
  scale_x_date(labels = date_format("%Y-%b")) +
  geom_text(stat = 'identity', 
        aes(label = ifelse(percent > .02,
                           paste(round(percent*100,0),"%",sep = "") ,'')))

これは次のようになります。