Question

如何将用户初始化日期变量应用为R-package，quantmod中的子集运算符WHERE level in $levels_user_is_manager_of的起始值和结束值？

例如，当我应用用户初始化日期变量时，

::

获得5年的库存数据

end.date        <- Sys.Date()
start.date      <- end.date - 5*365 #5- years to-date
start.date.char <- as.character(start.date)
end.date.char   <- as.character(end.date)

我收到以下错误：

library(quantmod)
getSymbols("GILD",src="yahoo")
GILD.5YTD <- GILD['start.date.char::end.date.char']

另外：警告信息：

Error in if (length(c(year, month, day, hour, min, sec))
   == 6 && c(year,  :
 missing value where TRUE/FALSE needed

我确信这是一个基本问题，但我是新手。

Answer 1

有一些方便的高级函数可以将返回的xts对象子集化，例如，通过quantmod的getSymbols()。

对于基于时间的子集，xts包中的last()函数（由quantmod自动加载）非常方便：

library(quantmod)
getSymbols("GILD",src="yahoo")
GILD_last5Years <- last(GILD, "5 years")
#> head(GILD_last5Years)
#           GILD.Open GILD.High GILD.Low GILD.Close GILD.Volume GILD.Adjusted
#2012-01-03     41.46     41.99    41.35      41.86    19564000      20.46895
#2012-01-04     41.95     42.06    41.70      42.02    16236000      20.54719
#2012-01-05     42.04     42.97    42.00      42.52    18431800      20.79168
#2012-01-06     42.38     43.10    42.20      42.78    15542000      20.91882
#2012-01-09     42.49     42.99    42.35      42.73    16801200      20.89437
#2012-01-10     43.10     45.04    42.94      44.25    30110000      21.63763

这可以与等效函数first()结合使用，以选择系列中的特定时间范围。

Answer 2

您对[.xts的当前参数只是字符值'start.date.char::end.date.char'，因为R不是宏语言，所以不会进一步评估。请尝试构建所需的字符值，我相信："2011-08-28::2016-08-26"。所以这成功了：

GILD.5YTD<-GILD[paste(start.date.char, end.date.char, sep="::")]

str(GILD.5YTD)
#-------
An ‘xts’ object on 2011-08-29/2016-08-25 containing:
  Data: num [1:1257, 1:6] 39 39.7 40.2 39.8 39 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:6] "GILD.Open" "GILD.High" "GILD.Low" "GILD.Close" ...
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
List of 2
 $ src    : chr "yahoo"
 $ updated: POSIXct[1:1], format: "2016-08-26 17:00:52"

从技术上讲，::不是作为R运算符，而是由[.xts函数解析。 Pkg：quantmod建立在xts;包之上。 "::"函数实际上是针对已安装软件包的导出函数的软件包定向函数访问。

Answer 3

您的错误原因是您在字符串中提交无法使用的变量。（顺便说一下，您不必像在示例中那样将日期转换为as.character，因为粘贴会为您执行此操作）。像这样使用paste0会相应地对您的数据进行分组：

GILD.5YTD<-GILD[paste0(start.date.char,'::',end.date.char)]

在quantmod中使用子集化运算符::变量

3 个答案: