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

R中xts对象的条件语句

1 个答案: