R语言在使用plot_time_series时显示value出错，如何解决？

问题遇到的现象和发生背景

R语言在使用plot_time_series时显示value出错

问题相关代码，请勿粘贴截图

Demand <- read_csv("data/Demand.csv")
library(ggplot2)
head(Demand)
tdemand<-ts(Demand$Demand,start = c(2000,1),frequency = 12)
tdemand

glimpse(tdemand)
tdemand<-ts(Demand$Demand,start = c(2000,1),frequency = 12)
tdemand
glimpse(tdemand)
plot_time_series(Demand,date, value, .interactive = F)

运行结果及报错内容

plot_time_series(Demand,date, value, .interactive = F)
Error in dplyr::mutate():
! Problem while computing .value_mod = value.
x .value_mod must be a vector, not a function.

我想要达到的结果

如何改这里的函数使程序顺利运行

把报错发给我看看