r - R中xts对象的条件语句

Question

我在 R 中有一个 xts 对象，我想从中创建另一个对象。我的 xts 对象看起来像：

dates = seq(from=as.Date('2012-09-01'),to=as.Date('2012-09-05'),'day')
my_xts_obj = xts(c(1,2,3,4,5),dates)
> my_xts_obj
           [,1]
2012-09-01    1
2012-09-02    2
2012-09-03    3
2012-09-04    4
2012-09-05    5

我想创建另一个满足以下条件的对象

val = 0, if my_xts_obj >2.5 and <3.5
val = -1, if my_xts_obj <2.5
val = +1, if my_xts_obj <3.5

屈服，

my_new_xts_obj

           [,1]
2012-09-01    -1
2012-09-02    -1
2012-09-03    0
2012-09-04    1
2012-09-05    1

我可以使用的一种方法是通过 for 循环解析它，使用 if then 语句来创建我的对象。有没有更好的办法？

我能想到的另一种方法是

my_new_xts_obj = my_xts_obj%/%2.5 + my_xts_obj%/%3.5, gives me 
2012-09-01    0
2012-09-02    0
2012-09-03    1
2012-09-04    2
2012-09-05    3

这不正是我要找的

Answer 1

您可以通过子集轻松地做到这一点：

x <- my_xts_obj
y <- x*0
y[x < 2.5] <- -1
y[x > 3.5] <- 1