R ggplot2-為條形圖增加值

Question

遵循以下R Cookbook中的示例

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），使其顯示在每個小節的頂部，並且四舍五入到小數點后1位，例如-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向上或向下移動的標簽。