R 合并后返回列表的数据帧列表

我有一个数据帧列表，其中有不同的行数，但只有id行

set.seed(1)
f <- function(){
  m <- matrix(1:40,ncol = 4, dimnames = list(NULL, paste0("x",1:4)))
  m <- cbind.data.frame(id=1:10, m)
  m[-sample(10,sample(9,1)),]
  
}  
li <- lapply(1:5,\(x) f())  ; names(li) <- paste0("Obj ", 1:length(li))
li

$`Obj 1`
  id x1 x2 x3 x4
6  6  6 16 26 36

$`Obj 2`
   id x1 x2 x3 x4
2   2  2 12 22 32
3   3  3 13 23 33
4   4  4 14 24 34
6   6  6 16 26 36
7   7  7 17 27 37
8   8  8 18 28 38
10 10 10 20 30 40

$`Obj 3`
  id x1 x2 x3 x4
2  2  2 12 22 32
3  3  3 13 23 33
4  4  4 14 24 34
8  8  8 18 28 38

$`Obj 4`
  id x1 x2 x3 x4
6  6  6 16 26 36

$`Obj 5`
   id x1 x2 x3 x4
1   1  1 11 21 31
4   4  4 14 24 34
5   5  5 15 25 35
7   7  7 17 27 37
9   9  9 19 29 39
10 10 10 20 30 40

我需要将它们全部合并在一起

merged_df <- Reduce(\(x,y) merge(x, y, by = "id", all = T), li)

merged_df
 id x1.x x2.x x3.x x4.x x1.y x2.y x3.y x4.y x1.x x2.x x3.x x4.x x1.y x2.y x3.y x4.y x1 x2 x3 x4
1   1   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA  1 11 21 31
2   2   NA   NA   NA   NA    2   12   22   32    2   12   22   32   NA   NA   NA   NA NA NA NA NA
3   3   NA   NA   NA   NA    3   13   23   33    3   13   23   33   NA   NA   NA   NA NA NA NA NA
4   4   NA   NA   NA   NA    4   14   24   34    4   14   24   34   NA   NA   NA   NA  4 14 24 34
5   5   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA  5 15 25 35
6   6    6   16   26   36    6   16   26   36   NA   NA   NA   NA    6   16   26   36 NA NA NA NA
7   7   NA   NA   NA   NA    7   17   27   37   NA   NA   NA   NA   NA   NA   NA   NA  7 17 27 37
8   8   NA   NA   NA   NA    8   18   28   38    8   18   28   38   NA   NA   NA   NA NA NA NA NA
9   9   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA   NA  9 19 29 39
10 10   NA   NA   NA   NA   10   20   30   40   NA   NA   NA   NA   NA   NA   NA   NA 10 20 30 40

然后将其返回到列表中，同时保留列表中原始列的原始名称以及原始列表中每个列表对象的名称.

我怎么能做到这一点？

=========UPD========个

这是我原来的单子

$`Obj 1`
  id x1 x2
1  1  1  4
3  3  3  6

$`Obj 2`
  id x1 x2
2  2  2  5
3  3  3  6

我想买这个

$Obj1
  id x1 x2
1  1  1  4
2  2 NA NA
3  3  3  6

$Obj2
  id x1 x2
1  1 NA NA
2  2  2  5
3  3  3  6