以下是我的数据集的简化版本：

df <- data.frame(
  category = c(1,2,3,4,5), 
  yend = c(13, 15, 4, 18, 6), 
  stringsAsFactors = FALSE)

字符串
我想用相同的yend值对y进行变异，但下面是一个类别。我想有多种方法可以做到这一点，我想要的输出是这样的：

category yend  y
1        1   13  0
2        2   15 13
3        3    4 15
4        4   18  4
5        5    6 18

型
我一直在尝试的是：

df_test <- df |>
  mutate(y=case_when(
    category=='1' ~ '0'),
    category=='2' ~ [[[TAKE VALUE FROM yend, category=1]]]

型
但我不知道如何写最后一行。我会做同样的类别2至5。我想有多种方法来解决这个问题，我可能是复杂的太多。
多谢了！