Comment utiliser Cl() avec du caractère?

Question

J'ai une liste de symboles dans un fichier csv et je veux l'écran pour ceux avec le prix de clôture supérieur à 5.

J'ai déjà couru getSymbols pour tous les éléments dans le fichier csv.

Mon test est en erreur ici. Je pense que c'est parce que Cl() n'accepte pas les caractères comme arguments. Comment puis-je convertir un caractère en xts?

> 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

Pas besoin de boucler! En supposant que vous avez lu la série de prix avec getSymbols comme vous l'avez mentionné ci-dessus:

# 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"