绘制 geom_line() 和 geom_point() - 不同长度的数据

我试图在 ggplot 中绘制时间序列，以便每年的值与 geom_line() 连接，并且总数在 x 轴的最右侧显示为单独的 geom_point()。

我试图在美学中对数据进行子集化，但得到错误：

Aesthetics must be either length 1 or the same as the data (1): x, y

我也尝试使用两个不同的数据框，但得到了类似的错误。对不起，如果这是一个基本问题，但我没有找到解决方案的运气。

请参阅下面的虚拟数据集和 ggplot2 脚本。我希望最终的情节看起来像这样，但没有连接“2017”和“总计”的线，最好不必求助于在 Adob​​e Illustrator 中编辑输出！

任何帮助表示赞赏。

library(ggplot2)

##synthetic data
Year <- seq(1996,2017)
var1 <- sample(0:10,length(Year), replace=TRUE)
var2 <- sample(0:10,length(Year), replace=TRUE)
var3 <- sample(0:10,length(Year), replace=TRUE)
var4 <- sample(0:10,length(Year), replace=TRUE)
total <- c("total",sample(0:10,4, replace=TRUE))


dat <- data.frame(Year, var1,var2,var3,var4)
dat <- rbind(dat,total)


plt <- ggplot(data=dat, aes(x=Year))
plt <- plt +
    geom_point(aes(y=var1, colour = "var1")) +
    geom_point(aes(y=var2, colour = "var2")) +
    geom_point(aes(y=var3, colour= "var3")) +
    geom_point(aes(y=var4, colour = "var4")) +
    geom_line(aes(y=var1, group=1, colour = "var1")) +
    geom_line(aes(y=var2, group=1, colour="var2")) +
    geom_line(aes(y=var3, group=1, colour="var3"))+
    geom_line(aes(y=var4, group=1, colour= "var4")) +
    scale_colour_manual("",
        breaks = c("var1", "var2", "var3", "var4"),
        values = c("#d7191c","#fdae61","#abd9e9","#2c7bb6"))