Add list of values as columns to existing dataframe using lapply in R
我有一个带有ID列表的数据框和一个可以使用每个ID进行以下操作的函数:
- 对数据进行API调用,
- 汇总数据,并
- 产生结果列表。
如何使用lapply将每个ID的返回值列表(作为列)合并到数据框?
以下示例在某种程度上复制了该过程...我有一个带有ID的数据框。该函数返回两个值的列表,我想将其作为列添加到数据框myID中。
1 2 3 4 5 6 7 8 9 10 11 | 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)) |
这可能无法使用,具体取决于您的数据/功能,但这是我从您的问题中得到的内容:
1 2 3 4 5 6 7 8 9 10 | 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) |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 > 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