R ggplot2 - 为条形图添加值

Question

遵循R 食谱中的以下示例

dat <- data.frame(
  time = factor(c("Lunch","Dinner"), levels=c("Lunch","Dinner")),
  total_bill = c(14.89, 17.23)
)

ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) +
    geom_bar(colour="black", stat="identity") +
    guides(fill=FALSE)

如何添加total_bill 的值（14.89、17.23）以显示在每个条形内部的顶部，并将值四舍五入到小数点后一位，例如 - 14.9、17.2

Answer 1

你可以这样做：

ggplot(data=dat, aes(x=time, y=total_bill, fill=time)) +
  geom_bar(colour="black", stat="identity") +
  geom_text(aes(label = sprintf("%.1f", total_bill), y= total_bill),  vjust = 3)+
  guides(fill=FALSE)

您可以调整vjust以向上或向下移动标签。