对于问题的第二部分，如果你愿意在每个子列表的末尾添加新元素，你可以这样做。

lapply(list.main, function(x) c(x, new = "new"))

$list1
$list1$a
[1] "a"

$list1$b
[1] "b"

$list1$c
[1] "c"

$list1$new
[1] "new"

$list2
$list2$e1
[1] "1"

$list2$e2
[1] "2"

$list2$new
[1] "new"

$list3
$list3$aLpha
[1] "alpha"

$list3$beta
[1] "beta"

$list3$new
[1] "new"

字符串

只需c oncatenate list元素。

> lapply(list.main, c, list(NEW='NEW')) |> str()
List of 3
 $ list1:List of 4
  ..$ a  : chr "a"
  ..$ b  : chr "b"
  ..$ c  : chr "c"
  ..$ NEW: chr "NEW"
 $ list2:List of 3
  ..$ e1 : chr "1"
  ..$ e2 : chr "2"
  ..$ NEW: chr "NEW"
 $ list3:List of 3
  ..$ aLpha: chr "alpha"
  ..$ beta : chr "beta"
  ..$ NEW  : chr "NEW"

字符串
或者使用append，

> lapply(list.main, append, list(NEW='NEW')) |> str()
List of 3
 $ list1:List of 4
  ..$ a  : chr "a"
  ..$ b  : chr "b"
  ..$ c  : chr "c"
  ..$ NEW: chr "NEW"
 $ list2:List of 3
  ..$ e1 : chr "1"
  ..$ e2 : chr "2"
  ..$ NEW: chr "NEW"
 $ list3:List of 3
  ..$ aLpha: chr "alpha"
  ..$ beta : chr "beta"
  ..$ NEW  : chr "NEW"

型
这使您能够指定例如在1元素之后。

> lapply(list.main, append, list(NEW='NEW'), 1) |> str()
List of 3
 $ list1:List of 4
  ..$ a  : chr "a"
  ..$ NEW: chr "NEW"
  ..$ b  : chr "b"
  ..$ c  : chr "c"
 $ list2:List of 3
  ..$ e1 : chr "1"
  ..$ NEW: chr "NEW"
  ..$ e2 : chr "2"
 $ list3:List of 3
  ..$ aLpha: chr "alpha"
  ..$ NEW  : chr "NEW"
  ..$ beta : chr "beta"

型
注意，缺少的元素不会被填充。

> lapply(list.main, append, list(NEW='NEW'), 999) |> str()
List of 3
 $ list1:List of 4
  ..$ a  : chr "a"
  ..$ b  : chr "b"
  ..$ c  : chr "c"
  ..$ NEW: chr "NEW"
 $ list2:List of 3
  ..$ e1 : chr "1"
  ..$ e2 : chr "2"
  ..$ NEW: chr "NEW"
 $ list3:List of 3
  ..$ aLpha: chr "alpha"
  ..$ beta : chr "beta"
  ..$ NEW  : chr "NEW"

型