in quantmod：如何獲得所有符合特定標準的股票

Question

我想基於特定標準檢索股票OHLC數據，例如，只有s & p 500高於他們自己的MA5。有沒有辦法使用quantmod來做到這一點？例如，我可以在getSymbols函數中輸入if函數嗎？

附件是我用不標準的代碼：

require(quantmod) 
options(scipen=999) 
spy <- getSymbols(c('SPY', 'IBM') , src = 'yahoo', from = '2007-01-01', auto.assign = T) 
tail(cbind(SPY, IBM)) 

Answer 1

我不認爲這是可能的。您必須獲取所有符號，計算感興趣的指標，然後篩選符合條件的指標。

這是一種檢索所有S & P500符號（大約需要10分鐘，因爲請求之間暫停1秒）並計算每個符號200天sma的方法。

library(rvest) 
library(quantmod) 
library(TTR) 
tbl <- read_html('https://en.wikipedia.org/wiki/List_of_S%26P_500_companies') %>% html_nodes(css = 'table') 
tbl <- tbl[1] %>% html_table() %>% as.data.frame() 
tbl$Ticker.symbol <- gsub(pattern = '\\.', '-', tbl$Ticker.symbol) # BRK.B -> BRK-B (yahoo uses '-') 
head(tbl$Ticker.symbol) 
[1] "MMM" "ABT" "ABBV" "ACN" "ATVI" "AYI" 

quotes <- new.env() 
getSymbols(tbl$Ticker.symbol, src = 'yahoo', from = '2007-01-01', env = quotes) 

sma_200 <- lapply(quotes, function(x) { 
    SMA(x[, 4], n = 200) 
})