如果您希望结转每个人的最后一个值，您可以

d$seq=ave(d$id,d$id,FUN=seq_along)
d=merge(
  d,
  merge(
    aggregate(value~id,data=d,FUN=tail,1),
    data.frame("seq"=1:max(table(d$id))),
    how="cross"
  ),
  by=c("id","seq"),
  all.y=T
)
d$value=ifelse(is.na(d$value.x),d$value.y,d$value.x)
d=d[,!grepl("value.",colnames(d))]

   id seq value
1   1   1    10
2   1   2    11
3   1   3    12
4   1   4    12
5   1   5    12
6   2   1     5
7   2   2     9
8   2   3     9
9   2   4     9
10  2   5     9
11  3   1    55
12  3   2    14
13  3   3    12
14  3   4    20
15  3   5     7

这里有一个tidyverse的解决方案，如果我们用seq_along创建一个变量来保存ID内的计数，那么我们可以用complete和fill来扩展表并填充缺失的值。

d |> group_by(id) |> 
     mutate(n = seq_along(value)) |>
     ungroup() |>
     complete(id, n) |>
     fill(value) |> 
     select(-n)

# A tibble: 15 × 2
      id value
   <dbl> <dbl>
 1     1    10
 2     1    11
 3     1    12
 4     1    12
 5     1    12
 6     2     5
 7     2     9
 8     2     9
 9     2     9
10     2     9
11     3    55
12     3    14
13     3    12
14     3    20
15     3     7