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

Question

例如这段代码

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

Answer 1

您正在寻找geom_text。您也不应该在每次调用 ggplot2 包中的函数时都指定该包(尽管我不知道您还加载了哪些内容!)。您应该注意的水平和垂直之间的唯一区别是 hjust 与 vjust 参数，它们水平或垂直调整标签的位置。 (我将它们放入是因为默认位置似乎与栏的边缘重叠。)

ggplot(data, aes(x=month,y=count)) + 
    geom_bar(stat="identity") +
    scale_x_discrete(limits=(data$month)) +
    geom_text(aes(label=count), vjust=-0.7)

ggplot(data, aes(x=month,y=count)) +
    geom_bar(stat="identity") + 
    scale_x_discrete(limits=(data$month)) + 
    geom_text(aes(label=count), hjust=-0.3) +
    coord_flip()