R ggplot-标签为计算增加（%）

我已经开发了一个ggplot图，但现在我正在尝试添加计算标签，显示同比增长%

我的数据框架非常简单（来自主数据集的聚合结果）

我的图形有一个代码：

library(ggplot2)
ggplot(d1, aes(x=Year, y=TotalPay)) + geom_bar(stat="identity") + 
labs(x="Year", y="Average Total Pay ($)")

现在想用stat_bin做标签？计算为实际年份-上一年*100%。我有这个，但不确定如何填充百分比（）

---

我会事先计算变化，然后用

geom_text

绘制它：

library(dplyr)
d1 <- data.frame(Year=2011:2014,TotalPay=c(71744,74112,77611,65466))
d1 <- mutate(d1,change=(TotalPay - lag(TotalPay))/lag(TotalPay))

ggplot(d1, aes(x=Year, y=TotalPay)) + geom_bar(stat="identity") + 
  labs(x="Year", y="Average Total Pay ($)") +
  geom_text(data=d1[-1,],aes(label = scales::percent(change)), vjust = 1)

库（dplyr）
d1很有趣。我在玩它，但我不知道OP到底想要什么。
stat_bin(aes (labels = paste("Total Pay" = ,scales::percent(())), vjust = 1, geom = "TexT")

library(dplyr)
d1 <- data.frame(Year=2011:2014,TotalPay=c(71744,74112,77611,65466))
d1 <- mutate(d1,change=(TotalPay - lag(TotalPay))/lag(TotalPay))

ggplot(d1, aes(x=Year, y=TotalPay)) + geom_bar(stat="identity") + 
  labs(x="Year", y="Average Total Pay ($)") +
  geom_text(data=d1[-1,],aes(label = scales::percent(change)), vjust = 1)