Отключить столбец тибла со списком с тибблами в R - PullRequest
Новая
       8

Отключить столбец тибла со списком с тибблами в R

0 голосов
/ 11 января 2019

У меня есть столбик с 6 столбцами, а столбец номер 6 содержит список элементов. Остальные столбцы имеют тип double или символьные. Если я применяю unnest () к таблице, я получаю следующую ошибку:

Ошибка: каждый столбец должен быть либо списком векторов, либо списком фреймов данных [stock.prices] 

library(multidplyr)
library(tidyquant)
library(parallel)

start.time <- Sys.time()
sp_500 <- tq_index("SP500")
sp_500[(sp_500$symbol =="BRK.B"),]$symbol <- "BRK-B"
sp_500[(sp_500$symbol =="BF.B"),]$symbol <- "BF-B"

from <- "2017-01-01"
to   <- today()

cl <- detectCores()
group <- rep(1:cl, length.out = nrow(sp_500))
sp_500 <- bind_cols(data.frame(group), sp_500)

cluster <- create_cluster(cores = cl)

by_group <- sp_500 %>%
  partition(group, cluster = cluster)

by_group %>%
  cluster_library("tidyquant") %>%
  cluster_assign_value("from", from) %>%
  cluster_assign_value("to", to) 


sp_500_precios <- by_group %>%
  mutate(stock.prices = map(symbol, function(.x) tq_get(.x, get  = 
"stock.prices", from = from, to = to))) %>%
  collect() %>%
  unnest()

stopCluster(cluster)

end.time <- Sys.time()
time.taken <- end.time - start.time
time.taken

data.frame(sp_500_precios)

Кто-нибудь знает, как можно решить эту проблему?

Спасибо;)

...