我在R中有一个名为`sims`的列表，其中包含404个元素。列表的每个元素本身都是一个具有24个元素的列表。这些列表的每个元素都具有相同的列名，即`L1`到`L24`。
因此，`sims[[1]]$L1`如下所示：

对于每个内部列表，值始终为字符数据，并且始终具有相同数量的字符值。因此，`sims[[1]]$L1`...`sims[[1]]$L24`都具有与上面示例中相同的55个字符。但`L1`...`sims[[4]]$L24`仅具有一个字符值。
我试图连接内部列表。具体来说，我想取`sims`的每四个内部列表（即`sims[[1]]`到`sims[[4]]`，`sims[[4]]`到`sims[[8]]`，`sims[[8]]`到`sims[[12]]`等）并连接它们。
`sims[[2]]$L1`如下所示：

`sims[[3]]$L1`如下所示：

`sims[[4]]$L1`如下所示：

因此，我想连接`sims[[1]]`到`sims[[4]]`（每个都包含24列），以便`L1`具有上述的所有字符值：

这种连接过程将针对`L1`到`L24`的每个列重复进行。
然后，我想将这种连接过程迭代到`sims[[5]]`到`sims[[8]]`和`sims[[9]]`到`sims[[12]]`等，一直到`sims[[404]]`为一组四个。我尝试了许
<details>
<summary>英文:</summary>
I have a list `sims` in R that contains 404 elements. Each element of the list is itself a list with a length of 24. Each of these lists has the same column names, namely `L1` to `L24`. 
So `sims[[1]]$L1` looks as follows:

For each internal list, the values are always character data and there are always the same number of character values. So `sims[[1]]$L1`...`sims[[1]]$L24` all have 55 characters as in the above example. But `sims[[4]]$L1`...`sims[[4]]$L24` has only one character value. 
I am trying to concatenate the internal lists. Specifically, I want to take every four internal lists of `sims` (i.e., sims[[1]] through sims[[4]], sims[[4]] through sims[[8]], sims[[8]] through sims[[12]], etc.) and concatenate them. 
`sims[[2]]$L1` looks as follows:

`sims[[3]]$L1` looks as follows:

`sims[[4]]$L1` looks as follows:

So what I want is to concatenate `sims[[1]]` to `sims[[4]]` (each of which contains 24 columns) so that the `L1` have all of the above character values:

This concatenation process would occur for each of the 24 columns `L1` through `L24`.
I then want to iterate this contatenation process for `sims[[5]]` through `sims[[8]]` and `sims[[9]]` through `sims[[12]]`, all the way through to `sims[[404]]` in sets of four. I have tried many different things with `merge`, but have not even come close to a solution. How do I do this in R?
**EDIT**
Here is a simplified version of the list `sims`, which has 8 internal lists. Each of these internal lists has 3 columns, `L1`, `L2`, and `L3`. The values of each internal list are character data and the number of character values varies. 

I want to concatenate the values of `sims[[1]]` through `sims[[4]]` and `sims[[5]]` through `sims[[8]]` to produce the following list:

</details>
# 答案1
**得分**: 1
In Base R:
```R
f <- rep(seq_along(sims), each=4, length=length(sims))
lapply(split(sims, f), \(x)do.call(Map, c(c, x))) 
$`1`
$`1`$L1
[1] "0" "1" "0" "0" "1" "0" "0" "1"
$`1`$L2
[1] "1" "0" "0" "2" "0" "2" "1" "1"
$`1`$L3
[1] "1" "?" "0" "3" "3" "1" "3" "2"
$`2`
$`2`$L1
[1] "1" "1" "1" "0" "0" "0" "0" "0"
$`2`$L2
[1] "1" "2" "2" "1" "1" "2" "2" "1"
$`2`$L3
[1] "3" "1" "2" "3" "3" "0" "1" "1"

sims <- list(list(L1 = c("0", "1", "0"), L2 = c("1", "0", "0"), L3 = c("1", "?", "0")), 
             list(L1 = c("0", "1"), L2 = c("2", "0"), L3 = c("3", "3")), 
             list(L1 = "0", L2 = "2", L3 = "1"), 
             list(L1 = c("0", "1"), L2 = c("1", "1"), L3 = c("3", "2")), 
             list(L1 = c("1", "1", "1"), L2 = c("1", "2", "2"), L3 = c("3", "1", "2")), 
             list(L1 = "0", L2 = "1", L3 = "3"), 
             list(L1 = c("0", "0", "0"), L2 = c("1", "2", "2"), L3 = c("3", "0", "1")), 
             list(L1 = "0", L2 = "1", L3 = "1"))