Добавить список значений в виде столбцов к существующему фрейму данных, используя lapply в R - PullRequest
Новая
       12

Добавить список значений в виде столбцов к существующему фрейму данных, используя lapply в R

0 голосов
/ 11 марта 2019

У меня есть фрейм данных со списком идентификаторов и функцией, которая может использовать каждый идентификатор для:

  • вызов API для данных,
  • обобщить эти данные, а
  • создать список результатов.

Как я могу объединить возвращенный список значений для каждого идентификатора в виде столбцов с фреймом данных, используя lapply?

Пример ниже несколько повторяет процесс ... У меня есть дата-кадр с идентификаторами. Функция возвращает список из двух значений, для которых я хотел бы добавить в качестве столбцов к myids фрейма данных. 

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 Ответ

0 голосов
/ 11 марта 2019

Это может не работать в зависимости от ваших данных / функций, но вот что я получил от вашего вопроса: 

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
...