如何标注折线图中的最后一点

Question

我正在使用下面的代码生成下面的图表。我想添加一个标签，以显示图表中最后一个数据点的值。谢谢。

min<-as.Date("2003-01-01")
add_columns_data %>%
  ggplot(aes(Index,MTM))+
  geom_line(col="steelblue", size=1.5)+
  theme(axis.text.x=element_text(angle =- 90, vjust = 0.5),
        plot.title = element_text(hjust=0.5)) +
  scale_x_date(limits = c(min, NA), date_breaks = "6 months", expand=c(0,0))+
  scale_y_continuous(breaks=seq(-4,4,0.5))+
  labs(y="Percentage (%)",
       x="",
       title= "Monetary Tightness Measure")+
  geom_hline(yintercept = 0, color = "black")

Answer 1

将geom_text与要绘制的仅包含最后日期的数据子集一起使用。TimeSeries[which.max(TimeSeries[,"Date"]),]本质上是从数据集中最大的日期子集。请在下面查看我的虚假数据和绘图代码。

Date<-seq(as.Date("2014/09/04"), by = "day", length.out = 50)
Value<-sample(-50:50,50)

TimeSeries<-data.frame(Date,Value)

library(ggplot2)
ggplot(data = TimeSeries,aes(x=Date,y=Value))+
  geom_line()+
  geom_text(data = TimeSeries[which.max(TimeSeries[,"Date"]),],aes(label=Value))