Welche R-Funktion sendet Ausgabe an einen neuen Vektor?

Question

Angenommen, ich habe ein data.frame TLT deren Namen letzte Zeile ist dies:

  TLT.Open TLT.Close 
2010-12-14  92.4  92.14 

Und ich möchte, genannt TLT.BarColor einen zusätzlichen Vektor hinzuzufügen, so dass es wie folgt aussieht:

  TLT.Open TLT.Close TLT.BarColor 
2010-12-14  92.4  92.14  "Green" 

Hier ist eine Funktion, die "druckt", ob es ein grüner oder roter Bar-Tag war.

bar_color <- function(ticker) { 

require("quantmod") 

x <- getSymbols(ticker, auto.assign=FALSE) 

open  <- x[,1]      
close  <- x[,2]      

last_open <- tail(open, n=1)    
last_close <- tail(close, n=1)    



if  (last_open > last_close)  
      {print("Red Bar")} 

else if (last_open < last_close)   
      {print("Green Bar")} 

else  {print("Doji Bar")}  

Statt den Druck der Verwendung von() R-Funktion (die nur Abzüge zu trösten), was R-Funktion würden Sie einen neuen Vektor zu füllen, um die Ausgabe zu senden?

super_dataframe <- cbind(TLT, apply(TLT, 1, valid_function)) 

Die Beispielfunktion funktioniert in dieser Lösung nicht. Aber wenn die Funktion gültig wäre, könnte ihre Ausgabe auf diese Weise angehängt werden.

Answer 1

ticker kann kein Datenrahmen, sondern hat ein Charakter sein. Mit der Anwendung, die Sie verwenden, um Ihren Super-Datenrahmen zu erstellen, haben Sie ein Problem. Die folgende Funktion gibt die Bezeichnungen für verschiedene Ticker an.

bar_color <- function(ticker){ 
    x <- getSymbols(ticker,auto.assign=FALSE) 
    n <- nrow(x) 
    switch(
     sign(x[n,1]-x[n,4])+2, 
     "Green Bar", 
     "Doji Bar", 
     "Red Bar") 
} 

> TLT <- c("F","QQQQ") 
> cbind(TLT,sapply(TLT,bar_color)) 
    TLT    
F "F" "Green Bar" 
QQQQ "QQQQ" "Red Bar" 

Wenn Sie die Etiketten für einen Ticker, aber unterschiedlichen Terminen wollen, dann ist es das, was Sie suchen:

bar_color <- function(ticker){ 
    x <- as.data.frame(getSymbols(ticker,auto.assign=FALSE)) 

    x$barcolor <- sapply(
      as.numeric(sign(x[,1]-x[,4])+2), 
      function(j) switch(j,"Green Bar","Doji Bar","Red Bar") 
    ) 

    return(x) 
} 

> head(bar_color("F")) 
      F.Open F.High F.Low F.Close F.Volume F.Adjusted barcolor 
2007-01-03 7.56 7.67 7.44 7.51 78652200  7.51 Red Bar 
2007-01-04 7.56 7.72 7.43 7.70 63454900  7.70 Green Bar 
2007-01-05 7.72 7.75 7.57 7.62 40562100  7.62 Red Bar 
2007-01-08 7.63 7.75 7.62 7.73 48938500  7.73 Green Bar 
2007-01-09 7.75 7.86 7.73 7.79 56732200  7.79 Green Bar 
2007-01-10 7.79 7.79 7.67 7.73 42397100  7.73 Red Bar 

Das Problem, das Sie -likely- Gesicht ist die Tatsache, dass getSymbols nicht gib dir einen Datenrahmen zurück, aber ein xts-Objekt. Für xts gibt es bestimmte Methoden, um auf Daten zuzugreifen und sie hinzuzufügen, und man sollte nicht erwarten, dass sich dies wie ein Datenrahmen verhält.

> X <- getSymbols("F",auto.assign=FALSE) 
> class(X) 
[1] "xts" "zoo" 

Answer 2

Wenn Sie die Druckanweisungen einfach in den Zeichenvektor selbst geändert haben, z. B. "Roter Balken", können Sie diesen zu einem vorhandenen Vektor wie der letzten Zeile hinzufügen. Es könnte klarer Code sein, wenn Sie return() für die print() ersetzen. Das einzige Problem besteht darin, dass ein Vektor im selben Modus sein muss, so dass Sie einen Zeichenvektor akzeptieren oder ein einzeiliges Datenframe verwenden müssen.

vec <- c(TLT[NROW(TLT), ] , bar.color("TLT")) # a character vector 

onerowdf <- cbind(TLT[NROW(TLT), ], bar.color("TLT"))) 
# a data.frame (aka list)