从Yahoo检索卷数据时出错

Question

我试图通过创建一个函数（我可以稍后应用于股票列表）从雅虎检索音量。     RetrieveVolume <- function(x){ volume_Ind2 <- getQuote(x, src = "yahoo", "v") volume_Ind2 <- as.data.frame(volume_Ind2) volume_Ind2$Qposix <- NULL volume_Ind2 <- volume$sq...3.NCOL.sq.. }

例如，当我尝试使用0001.HK的公式时，

RetrieveVolume("0001.HK")

我得到以下内容：

Error in RetrieveVolume("0001.HK") : object 'volume' not found

你知道我做错了吗？

Answer 1

这里有两个问题：

• 您正在调用尚未定义的变量volume。
• 您没有通过您的功能返回任何价值

问题的快速解决方案将是

RetrieveVolume <- function(x){
   volume_Ind2 <- getQuote(x, src = "yahoo", "v")
   return(volume_Ind2[,2])
}

或更简单的解决方案

RetrieveVolume <- function(x){
   return(getQuote(x, what=yahooQF("Volume"))[,"Volume"])
}