2012-02-15 12 views
12

puedo convertir un data.table a un XTS objeto tal como lo hago con un hoja.de.datos:XTS R y data.table

> df = data.frame(x = c("a", "b", "c", "d"), v = rnorm(4)) 
> dt = data.table(x = c("a", "b", "c", "d"), v = rnorm(4)) 
> xts(df, as.POSIXlt(c("2011-01-01 15:30:00", "2011-01-02 15:30:00", "2011-01-03 15:50:50", "2011-01-04 15:30:00"))) 
        x v   
2011-01-01 15:30:00 "a" "-1.2232283" 
2011-01-02 15:30:00 "b" "-0.1654551" 
2011-01-03 15:50:50 "c" "-0.4456202" 
2011-01-04 15:30:00 "d" "-0.9416562" 
> xts(dt, as.POSIXlt(c("2011-01-01 15:30:00", "2011-01-02 15:30:00", "2011-01-03 15:50:50", "2011-01-04 15:30:00"))) 
        x v   
2011-01-01 15:30:00 "a" " 1.3089579" 
2011-01-02 15:30:00 "b" "-1.7681071" 
2011-01-03 15:50:50 "c" "-1.4375100" 
2011-01-04 15:30:00 "d" "-0.2467274" 

¿Hay algún problema en el uso de data.table con XTS?

+3

no hay ningún problema, pero el hecho de que era un data.table se pierde: los datos se convierten a una matriz (dentro de la xts objeto). En su ejemplo, es incluso una matriz de cadenas. –

+0

Pensé que xts mantenía un objeto data.frame en su implementación interna y solo agregaba índices de tiempo como atributos. ¿Las consultas de indexación que estoy ejecutando son xts nativas en lugar de consultas data.frame o data.table? –

+0

@RobertKubrick: xts, al igual que su clase principal (zoo), utiliza una matriz (no un data.frame) con un atributo de índice. –

Respuesta

17

Solo para resolver una pregunta abierta.

Como Vincent señala en el comentario, no hay ningún problema al respecto.

Se incluye en data.table 1.9.5. A continuación se muestra el contenido similar:

as.data.table.xts <- function(x, keep.rownames = TRUE){ 
    stopifnot(requireNamespace("xts") || !missing(x) || xts::is.xts(x)) 
    r = setDT(as.data.frame(x), keep.rownames = keep.rownames) 
    if(!keep.rownames) return(r[]) 
    setnames(r,"rn","index") 
    setkeyv(r,"index")[] 
} 

as.xts.data.table <- function(x){ 
    stopifnot(requireNamespace("xts") || !missing(x) || is.data.table(x) || any(class(x[[1]] %in% c("POSIXct","Date")))) 
    colsNumeric = sapply(x, is.numeric)[-1] # exclude first col, xts index 
    if(any(!colsNumeric)){ 
    warning(paste("Following columns are not numeric and will be omitted:",paste(names(colsNumeric)[!colsNumeric],collapse=", "))) 
    } 
    r = setDF(x[,.SD,.SDcols=names(colsNumeric)[colsNumeric]]) 
    rownames(r) <- x[[1]] 
    xts::as.xts(r) 
} 
+2

Nice - + 1'ed. ¿Tal vez Matt y Arun pueden meter esto en data.table? –

+0

La función 'as.data.table.xts' convierte el índice en' character' y la función 'as.xts.data.table' no permite objetos' xts' que no sean 'numéricos' (por ejemplo, un' character' 'xts') – GSee

+0

@DirkEddelbuettel No estoy seguro, pero el enlace vuelve aquí para agregarlo a [# 882] (https://github.com/Rdatatable/data.table/issues/882) para debatir ... –

7

Debido a quantmod, es común tener una xts con el símbolo incrustado en todos los nombres de columna. (por ejemplo, "SPY.Open", "SPY.High", etc.). Entonces, aquí hay una alternativa a la as.data.table.xts de Jan que pone el símbolo en una columna separada, que es más natural en data.table s (ya que probablemente va a encontrar un montón de estos antes de hacer cualquier análisis).

as.data.table.xts <- function(x, ...) { 
    cn <- colnames(x) 
    sscn <- strsplit(cn, "\\.") 
    indexClass(x) <- c('POSIXct', 'POSIXt') #coerce index to POSIXct 
    DT <- data.table(time=index(x), coredata(x)) 
    #DT <- data.table(IDateTime(index(x)), coredata(x)) 

    ## If there is a Symbol embedded in the colnames, strip it out and make it a 
    ## column 
    if (all(sapply(sscn, "[", 1) == sscn[[1]][1])) { 
    Symbol <- sscn[[1]][1] 
    setnames(DT, names(DT)[-1], sub(paste0(Symbol, "."), "", cn)) 
    DT <- DT[, Symbol:=Symbol] 
    setkey(DT, Symbol, time)[] 
    } else { 
    setkey(DT, time)[] 
    } 
} 

library(quantmod) 
getSymbols("SPY") 
as.data.table(SPY) 
      time Open High Low Close Volume Adjusted Symbol 
    1: 2007-01-03 142.25 142.86 140.57 141.37 94807600 120.36 SPY 
    2: 2007-01-04 141.23 142.05 140.61 141.67 69620600 120.61 SPY 
    3: 2007-01-05 141.33 141.40 140.38 140.54 76645300 119.65 SPY 
    4: 2007-01-08 140.82 141.41 140.25 141.19 71655000 120.20 SPY 
    5: 2007-01-09 141.31 141.60 140.40 141.07 75680100 120.10 SPY 
    ---                 
1993: 2014-12-01 206.30 206.60 205.38 205.64 12670100 205.64 SPY 
1994: 2014-12-02 205.81 207.34 205.78 207.09 72105500 207.09 SPY 
1995: 2014-12-03 207.30 208.15 207.10 207.89 69450000 207.89 SPY 
1996: 2014-12-04 207.54 208.27 206.70 207.66 89928200 207.66 SPY 
1997: 2014-12-05 207.87 208.47 207.55 208.00 85031000 208.00 SPY 
Cuestiones relacionadas