如何在水平条形图中的条形右边添加计数标签？

例如，这段代码

data <- data.frame(month = factor(c("Nov", "Dec", "Jan", "Feb")),
                   count = c(1489, 788, 823, 1002))

g <- (ggplot2::ggplot(data, ggplot2::aes(x=month, y=count))
        + ggplot2::geom_bar(stat="identity")
        + ggplot2::scale_x_discrete(limits=rev(data$month))
        + ggplot2::coord_flip())

g

...产生这个

将计数（1489、788等）添加到相应栏右侧的最简单方法是什么？

我对水平案例特别感兴趣，但是我也很想知道如何对垂直案例进行类似的操作（每个小节的顶部都计数）：

g <- (ggplot2::ggplot(data, ggplot2::aes(x=month, y=count))
        + ggplot2::geom_bar(stat="identity"))

g