使用R中的lapply將值列表添加為現有數據框的列

Question

我有一個帶有ID列表的數據框和一個可以使用每個ID進行以下操作的函數：

• 對數據進行API調用，
• 匯總數據，並
• 產生結果列表。

如何使用lapply將每個ID的返回值列表（作為列）合並到數據框？

下面的示例有點重復了該過程...我有一個帶有ID的數據框。 該函數返回兩個值的列表，我想將其作為列添加到數據框myID中。

myIDs <- as.data.frame(seq(1, 5))
names(myIDs) <- c("ID")

myfunc <- function (ID) {
  id.results <- list(add.one = ID + 1,
                     times.two = ID * 2
                    )
  return(id.results)
}

lapply(myIDs , function(x) myfunc(myIDs$ID))

Answer 1

這可能不起作用，具體取決於您的數據/功能，但這是我從您的問題中得到的信息：

set.seed(111)
df <- data.frame(ID=1:100)

MyFunction <- function(x) return(list(id=x, res1=runif(1, max=x), res2=sample(letters,1)))

out <- apply(df, 1, MyFunction)
mylist <- do.call("rbind",out)
mydf <- as.data.frame(mylist)

attributes(mydf)

 > attributes(mydf) $names [1] "id" "res1" "res2" $class [1] "data.frame" $row.names [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17] 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 [33] 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 [49] 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 [65] 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 [81] 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 [97] 97 98 99 100