соединять списки вместе, расширяя один список до длины соединяемого списка

Question

У меня есть два списка, которые я хотел бы объединить.

Я хочу присоединить второй список к первому списку в качестве нового столбца.

Второй список выглядит следующим образом:

[[1]]
[1] 2.46

[[2]]
[1] 2.475

[[3]]
[1] 2.4875

[[4]]
[1] 2.485

[[5]]
[1] 2.4625

[[6]]
[1] 2.4875

Поэтому я хотел бы присоединиться к [[1]] в качестве нового столбца в списке 1. Ожидаемый результат для 2 списков:

    [[1]]
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species Value
1          5.1         3.5          1.4         0.2  setosa 2.46
2          4.9         3.0          1.4         0.2  setosa 2.46
3          4.7         3.2          1.3         0.2  setosa 2.46
4          4.6         3.1          1.5         0.2  setosa 2.46
5          5.0         3.6          1.4         0.2  setosa 2.46
6          5.4         3.9          1.7         0.4  setosa 2.46

[[2]]
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species Value
2          4.9         3.0          1.4         0.2  setosa 2.475
3          4.7         3.2          1.3         0.2  setosa 2.475
4          4.6         3.1          1.5         0.2  setosa 2.475
5          5.0         3.6          1.4         0.2  setosa 2.475
6          5.4         3.9          1.7         0.4  setosa 2.475
7          4.6         3.4          1.4         0.3  setosa 2.475

Это связано с вопросом, который у меня есть здесь , где в EDIT I ​​вычисляется среднее значение, которое является значением, представленным здесь.

EDIT:

I понимаю, что я забыл данные.

Данные1

list1 <- list(structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6, 5, 5.4
), Sepal.Width = c(3.5, 3, 3.2, 3.1, 3.6, 3.9), Petal.Length = c(1.4, 
1.4, 1.3, 1.5, 1.4, 1.7), Petal.Width = c(0.2, 0.2, 0.2, 0.2, 
0.2, 0.4), Species = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c("setosa", 
"versicolor", "virginica"), class = "factor")), row.names = c(NA, 
6L), class = "data.frame"), structure(list(Sepal.Length = c(4.9, 
4.7, 4.6, 5, 5.4, 4.6), Sepal.Width = c(3, 3.2, 3.1, 3.6, 3.9, 
3.4), Petal.Length = c(1.4, 1.3, 1.5, 1.4, 1.7, 1.4), Petal.Width = c(0.2, 
0.2, 0.2, 0.2, 0.4, 0.3), Species = structure(c(1L, 1L, 1L, 1L, 
1L, 1L), .Label = c("setosa", "versicolor", "virginica"), class = "factor")), row.names = 2:7, class = "data.frame"), 
    structure(list(Sepal.Length = c(4.7, 4.6, 5, 5.4, 4.6, 5), 
        Sepal.Width = c(3.2, 3.1, 3.6, 3.9, 3.4, 3.4), Petal.Length = c(1.3, 
        1.5, 1.4, 1.7, 1.4, 1.5), Petal.Width = c(0.2, 0.2, 0.2, 
        0.4, 0.3, 0.2), Species = structure(c(1L, 1L, 1L, 1L, 
        1L, 1L), .Label = c("setosa", "versicolor", "virginica"
        ), class = "factor")), row.names = 3:8, class = "data.frame"), 
    structure(list(Sepal.Length = c(4.6, 5, 5.4, 4.6, 5, 4.4), 
        Sepal.Width = c(3.1, 3.6, 3.9, 3.4, 3.4, 2.9), Petal.Length = c(1.5, 
        1.4, 1.7, 1.4, 1.5, 1.4), Petal.Width = c(0.2, 0.2, 0.4, 
        0.3, 0.2, 0.2), Species = structure(c(1L, 1L, 1L, 1L, 
        1L, 1L), .Label = c("setosa", "versicolor", "virginica"
        ), class = "factor")), row.names = 4:9, class = "data.frame"), 
    structure(list(Sepal.Length = c(5, 5.4, 4.6, 5, 4.4, 4.9), 
        Sepal.Width = c(3.6, 3.9, 3.4, 3.4, 2.9, 3.1), Petal.Length = c(1.4, 
        1.7, 1.4, 1.5, 1.4, 1.5), Petal.Width = c(0.2, 0.4, 0.3, 
        0.2, 0.2, 0.1), Species = structure(c(1L, 1L, 1L, 1L, 
        1L, 1L), .Label = c("setosa", "versicolor", "virginica"
        ), class = "factor")), row.names = 5:10, class = "data.frame"), 
    structure(list(Sepal.Length = c(5.4, 4.6, 5, 4.4, 4.9, 5.4
    ), Sepal.Width = c(3.9, 3.4, 3.4, 2.9, 3.1, 3.7), Petal.Length = c(1.7, 
    1.4, 1.5, 1.4, 1.5, 1.5), Petal.Width = c(0.4, 0.3, 0.2, 
    0.2, 0.1, 0.2), Species = structure(c(1L, 1L, 1L, 1L, 1L, 
    1L), .Label = c("setosa", "versicolor", "virginica"), class = "factor")), row.names = 6:11, class = "data.frame"))

Данные 2:

list2 <- list(2.46, 2.475, 2.4875, 2.485, 2.4625, 2.4875)

Данные 3:

list3 <- list(1.80438213020271, 1.81796589626978, 1.81591080488058, 1.81906569425076, 
    1.81978971735325, 1.86302586794048)

Данные 4:

list4 <- list(0.1, 0.1, 0.1, 0.1, 0.1, 0.1)

Answer 1

Мы можем использовать map2

library(dplyr)
library(purrr)
map2(lst1, lst2, ~ .x %>%
                       mutate(Value = .y))

---

Если есть еще списки, мы можем обернуть его в один list и использовать pmap

pmap(list(lst1, lst2, lst3, lst4), ~ ..1 %>%
                       mutate(mean = ..2, sd = ..3,  min = ..4))

---

Или в base R с Map

Map(cbind, lst1, Value = lst2)