Используйте XTS в виде таблицы перекодировки

Question

Пример данных:

library(xts) 
a <- seq(as.POSIXct("2010-01-01 00:00:00"), by = 600, length.out = 3) 
b <- c(a, a) 
lu <- xts(seq_along(a), a) 
lu[b] 

        [,1] 
2010-01-01 00:00:00 1 
2010-01-01 00:10:00 2 
2010-01-01 00:20:00 3 

Как можно «посмотреть» значения lu для временных меток в b таким образом, что каждый получает, например, Н. XTS объект с такой же длины, как и b, в данном случае:

    [,1] 
2010-01-01 00:00:00 1 
2010-01-01 00:10:00 2 
2010-01-01 00:20:00 3 
2010-01-01 00:00:00 1 
2010-01-01 00:10:00 2 
2010-01-01 00:20:00 3 

Answer 1

1) индекс по имени XTS не является действительно правильный пакет, чтобы сделать это, так как ваш желаемый результат не может быть объектом действительный XTS. Вместо этого попробуйте следующее, которое не использует никаких пакетов. Имена выходного вектора являются символьными представлениями времени и вектор самих значений являются искомыми значения:

lutable <- setNames(seq_along(a), a) 
lutable[format(b)] 

дает:

2010-01-01 00:00:00 2010-01-01 00:10:00 2010-01-01 00:20:00 2010-01-01 00:00:00 2010-01-01 00:10:00 2010-01-01 00:20:00 
        1     2     3     1     2     3 

2) матч Другой возможность просто использовать match как это. В результате значения, которые соответствуют времени в b:

v <- seq_along(a) # test values 
v[match(b, a)] 
## [1] 1 2 3 1 2 3 

Answer 2

Существует небольшая проблема, в результате чего вы ожидаете; XTS заказывает метку времени по умолчанию. Таким образом, результаты объекта XTS будут 1,1,2,2,3,3.

Следующая может дать вам некоторое представление:

lu[match(b, index(lu))] #XTS object returned - Timestamps are ordered by default 
data.frame(ts = index(lu), lu) [match(b, index(lu)),] #Using dataframes instead reproduce the expected result.