zoo警告：要替换的项目数不是替换长度的倍数

Question

我是动物园的新用户，并尝试在动物园对象中获取两个元素的最小值，并将其分配给其中一个。我有以下错误消息。请帮忙摆脱一些灯光。

library("tseries")
IBM <- get.hist.quote(instrument="IBM", start="2012-01-01", end="2012-12-31")
IBM[1]$Low <- min( IBM[1]$Low , IBM[2]$Low )
Warning message:
In NextMethod("[<-") :
  number of items to replace is not a multiple of replacement length

Answer 1

这是一个警告，而不是错误;它是由你进行子集化的特殊方式引起的。我从来没有见过第一行的子集，然后列使用$函数。我建议你先使用$按列分组，然后按行分组。

这没有警告：

IBM$Low[1] <- min(IBM$Low[1:2])