如何为时间序列中的最后一个日期添加点或标记

如何解决如何为时间序列中的最后一个日期添加点或标记

在下面的代码中，我试图将每个变量的最后一个数据点转换为一个点或一个不同的标记。我应该做些什么修改才能做到这一点？

library(ggplot2)
ggplot(economics_long,aes(date,value))+ geom_line() + facet_wrap(~variable,scales = "free_y",ncol = 1)

解决方法

只需添加一个geom_point图层，即可在其中使用上一个日期过滤的数据集，例如

library(ggplot2)
library(dplyr)

ggplot(economics_long,aes(date,value)) + 
  geom_line() +
  geom_point(data = group_by(economics_long,variable) %>% filter(date == last(date))) +
  facet_wrap(~variable,scales = "free_y",ncol = 1)