r语言 - 如何对股票列表进行子集，以根据最后一天交易量数据的四分位数值获取新列表

Question

我正在使用getSymbols从几只股票下载数据。

我对卷数据

感兴趣，所以我将卷数据列拆分为 （0-4），以将每个卷数据分配给名为 xxx.Volqrank 的新列中的相应四分位数 （1,2,3,4）

现在我想看看列表中最后一行的 xxx.Volqrank 列，告诉我哪些股票代码的值为 3。

我正在寻找的预期结果是，获得一个新列表，其中包含其四分位数交易量数据在列表的最后可用数据中为 3 的股票。

#Reproducible example
library(quantmod)
library(xts)
Symbols <-     c("XOM","MSFT","JNJ","IBM","MRK","BAC","DIS","ORCL","LW","NYT","YELP")
start_date=as.Date("2018-06-01")

getSymbols(Symbols,from=start_date)

# Put all stocks in big list, by checking which xts objects are in the global environment.
stock_data = sapply(.GlobalEnv, is.xts)
all_stocks <- do.call(list, mget(names(stock_data)[stock_data]))

#function to split volume data quartiles into 0-4 results
Volume_q_rank <- function(x) {
stock_name <- stringi::stri_extract(names(x)[1], regex = "^[A-Z]+")
stock_name <- paste0(stock_name, ".Volqrank")
column_names <- c(names(x), stock_name)
x$volqrank <- as.integer(cut(quantmod::Vo(x),
                               quantile(quantmod::Vo(x),probs=0:4/4),include.lowest=TRUE))
x <- setNames(x, column_names)
return(x)
}
all_stocks <- lapply(all_stocks, Volume_q_rank)

我最初的方法是使用

lapply(all_stocks, function(x) which(x[, grep("\.Volqrank",names(x))]==3

但它不起作用，有什么想法吗？

我希望稍后再次使用新列表来下载股票数据，但这次使用不同的间隔（即 5 分钟）

任何帮助将不胜感激。

谢谢。

Answer 1

在评论中提到的获取所需内容的一种方法是这样的：

sapply 返回一个命名向量，每个股票具有 TRUE 或 FALSE。将names与which一起使用将返回您感兴趣的股票的名称。

stock3 <- sapply(all_stocks, function(x) {last(x[, grep("\.Volqrank",names(x))]) == 3})
stocks_with3 <- names(which(stock3 == TRUE))