написать список объектов XTS, чтобы преуспеть - PullRequest
Новая
       10

написать список объектов XTS, чтобы преуспеть

0 голосов
/ 27 июня 2018

У меня есть список из 337 объектов XTS, который выглядит следующим образом: 

> head(blowup.instances)
$`AERI.US.Equity`
           AERI.US.Equity
2015-04-24     -0.6363379

$SRPT.US.Equity
           SRPT.US.Equity
2013-11-12     -0.6400985
2016-01-15     -0.5485299

$PTCT.US.Equity
           PTCT.US.Equity
2016-02-23      -0.616419

Когда я пытаюсь записать их в CSV, это не работает: 

> write.csv(blowup.instances, "blowupInstances.csv")
Error in (function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE,  : 
  arguments imply differing number of rows: 1, 2, 3, 7, 4, 9, 5, 6, 18, 37, 8, 10, 78, 25, 11, 12, 20, 59, 17, 19, 27, 29, 16, 14, 31, 15, 51, 28, 54

Теперь я знаю, почему это не работает, но я хочу знать решение этой проблемы, кроме выписывания большого фрейма данных, заполненного NA значениями, которые мне пришлось бы удалить в Excel. Есть идеи?

Ответы [ 2 ]

0 голосов
/ 28 июня 2018

Если вы собираетесь читать список объектов xts в Excel, вам, вероятно, нужно преобразовать его в плоский файл. Приведенный ниже код преобразует каждый объект xts в фрейм данных, где каждая строка содержит имя объекта xts, а также его даты и значения. Функция map_dfr из пакета purrr в tidyverse используется для зацикливания объектов xts в списке и объединения результатов в один фрейм данных. 

library(xts) 
 library(tidyverse)
#
#  combine list of xts objects into a single data frame with equity names and dates
# 

  df_out <- map_dfr(blowup.instances, function(y) data_frame(Name = names(y), Date = index(y), value=as.vector(coredata(y))) )
#
#   write as csv flat file
#
  write.csv(df_out, file="blowupInstances.csv", row.names = FALSE)

Фрейм данных, записанный в файл, 

df_out
# A tibble: 4 x 3
  Name           Date       value
  <chr>          <date>     <dbl>
1 AERI.US.Equity 2018-06-27 -0.5 
2 SRPT.US.Equity 2018-06-26 -0.64
3 SRPT.US.Equity 2018-06-27 -0.55
4 PTCT.US.Equity 2018-06-20 -0.7

где данные простой пример, который я сделал.

0 голосов
/ 28 июня 2018

Похоже, blowup.instances это список. Не записывайте список в файл.

Предполагая, что это так, вы можете сделать одно из следующих действий: 

syms <- names(blowup.instances)

lapply(syms, FUN = function(sym) {
  write.zoo(x = blowup.instances[[sym]], file = paste0(sym, "-data.csv"))
})

В качестве альтернативы: 

res <- do.call(cbind, blowup.instances)
write.zoo(res, file = "crosssecdata.csv")

Я рекомендую первый подход. Поместите данные для каждого символа в отдельный файл.

...