R ggplot2：数据以周为单位，但我想以年份为单位显示X轴

如何解决R ggplot2：数据以周为单位，但我想以年份为单位显示X轴

在此问题上需要帮助。我的数据是这样的。

week   status  dist
0       1       44%
0       2       47%
0       3       9%
1       1       46%
1       2       46%
1       3        8%

young = g_young %>%
  ggplot()+
  geom_area(aes(x = week,y=dist,fill = factor(status),position = "stack",width = 1),stat = "identity",show.legend=FALSE) + 
  scale_fill_brewer(labels = c("Not listed","Listed","Removed","Transplanted","Died"),palette = "Blues") +
  scale_x_continuous(breaks=seq(0,208,52)) + 
  theme_classic()

数据是这样的4年（即208周）。

出来的数字是这样的：

但是在上图中，我希望X轴的年份为0、1、2、3、4。

我尝试过：

g_young$year = cut(g_young$week,breaks=c(-Inf,52,104,156,208),labels = c("1","2","3","4"))

young = g_young %>%
  ggplot()+
  geom_area(aes(x =year,show.legend=FALSE) + 
  scale_x_discrete(breaks=seq(0,4,1)) + 
  theme_classic()

我得到的数字是：

有什么想法可以使用以周为单位的数据（以便获得平滑曲线），而可以使用以年为单位的X轴吗？

非常感谢您的帮助。非常感谢。