Wie verwende ich Cl() mit Zeichen?

Question

Ich habe eine Liste von Symbolen in einer CSV-Datei und ich möchte für diejenigen mit Schlusskurs höher als 5 zu überprüfen.

Ich habe bereits getSymbols für alle Elemente in der CSV-Datei ausgeführt.

Mein Test läuft hier in Fehler. Ich denke, das liegt daran, dass Cl() keine Zeichen als Argumente akzeptiert. Wie kann ich Zeichen in xts umwandeln?

> library(quantmod) 

> passingset 
     V1 
1  AAB 
2 AAR-UN 
3  AAV 
4  ABT 
5  ABX 
     (...) 

> class(passingset) 
[1] "data.frame" 
> class(passingset$V1) 
[1] "character" 


> #Remove closing price < 5 
> for (i in 1:nrow(passingset)){ 
+ company <- passingset$V1[i] 
+ if(Cl(company)[length(Cl(company))] < 5){ 
+  passingset <- passingset[!(passingset$V1 == company),, drop = FALSE] 
+ } else 
+  i = i + 1 
+ 
+ rm(company) 
+ } 
**Error in Cl(company) : 
    subscript out of bounds: no column name containing "Close"** 

Answer 1

Keine Notwendigkeit für Schleifen! Vorausgesetzt, dass Sie die Preisreihe mit getSymbols gelesen haben, wie Sie oben dann erwähnt:

# an example set of tickers: 
pasingset <- data.frame(V1=c('CWB','EEM','VTI','NAK','GIG'),stringsAsFactors = F) 

# this gets you the last closings of your tickers 
lastClose <- sapply(pasingset$V1,function(x) xts::last(Cl(get(x)))) 

# shows the tickers which have a close > 5 
pasingset$V1[which(lastClose > 5)] 
[1] "CWB" "EEM" "VTI"