R 在堆叠条形图顶部绘制一条线

我想在我的堆叠条形图上画一条线（或制造点）。由于我没有真正的数据点，我可以参考（只有指定的值，而不是它们的总和），我不知道如何添加这样的行。代码生成此绘图：

我想添加这条黑线（我的实际数据不是线性的）：

库（tidyverse）
##制造一些假数据
数据3您可以在
年获得
和
，并用新的
几何线绘制它

library(dplyr)
library(ggplot2)

newdata4 <- new_data3 %>%
              group_by(year) %>%
              summarise(total = sum(value))

ggplot(new_data3, aes(x = year, y = value, fill=model)) + 
   geom_bar(stat = "identity",position = "stack") + 
   geom_line(aes(year, total, fill = ""), data = newdata4, size = 2)

库（dplyr）
图书馆（GG2）
新数据4%
组别(年份)%>%
汇总（总额=总和（价值））
ggplot（新数据3，aes（x=年份，y=数值，fill=模型））+
几何图形条（stat=“identity”，position=“stack”）+
geom_线（aes（年份，总计，填充=），数据=新数据4，大小=2）

对于摘要功能，您可以使用
stat\u summary
和
sum
：

ggplot(new_data3, aes(year, value)) + 
geom_col(aes(fill = model)) + 
stat_summary(geom = "line", fun.y = sum, group = 1, size = 2)

结果:


ggplot(new_data3, aes(year, value)) + 
geom_col(aes(fill = model)) + 
stat_summary(geom = "line", fun.y = sum, group = 1, size = 2)