geom_area不显示数据，可能是由于x轴数据

如何解决geom_area不显示数据，可能是由于x轴数据

我想基于数据框创建堆积面积图。

Time <- c("W37/19","W38/19","W39/19","W40/19","W41/19")
Basis <- c(20.07,20.07,20.07)
AdStock <- c(5.88,5.60,5.34,5.09,4.86)
TV <- c(0,0.54,0.93,1.14)
display <- c(0.07,0.21,0.33,0.35,0.36)

df_graph <- data.frame(Time,Basis,AdStock,TV,display)

数据是时间序列数据，“时间”是德国日历周，应保持此顺序。

我要做的第一件事就是转换长格式的数据。

library(tidyr)    
df_graph <- pivot_longer(df_graph[,c("Time","Basis","AdStock","TV","display")],-Time)

第二，我将df_graph $ name转换为一个因子并颠倒顺序，因为我想保留堆叠的原始顺序。

library(forcats)
df_graph$name <-factor(df_graph$name,levels = c("Basis","display"))
df_graph$name <- fct_rev(df_graph$name)

然后我要绘制数据。

library(ggplot2)
p <- ggplot(df_graph,aes(x=Time,y=value,fill=name))
p <- p + geom_area()
p

该图显示了两个轴以及图例，但没有数据。

如果我只用一系列递增的数字代替“时间”中的日历周数

df_graph$Time <- seq(1:5)

它可以工作，但不能与我的X轴值一起使用。

我也不认为将“名称”转换为因数是有问题的，因为即使删除了这两行，我仍然无法获得绘图中的数据。

我尝试了长格式的其他方法（例如，收集），还尝试将数字的递增系列（1：5）用作x值，然后将其替换为scale_x_discrete，但我的区域始终消失了。

我想念什么？

非常感谢。