2016-04-27 5 views
1

Если у меня есть ежемесячные временные ряды, как так:Как я могу организовать данные временного ряда на диагонали кадра данных ТОЛЬКО?

xts <- ts(c(1:48), frequency = 12) 


    Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 
1 1 2 3 4 5 6 7 8 9 10 11 12 
2 13 14 15 16 17 18 19 20 21 22 23 24 
3 25 26 27 28 29 30 31 32 33 34 35 36 
4 37 38 39 40 41 42 43 44 45 46 47 48 

Как я могу организовать значения, чтобы быть на «диагонали» только с нуля везде еще? Как и в ниже (этот формат проведение на все значения в xts):

Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 
1 1 0 0 0 0 0 0 0 0 0 0 0 
2 0 2 0 0 0 0 0 0 0 0 0 0 
3 0 0 3 0 0 0 0 0 0 0 0 0 
4 0 0 0 4 0 0 0 0 0 0 0 0 
5 0 0 0 0 5 0 0 0 0 0 0 0 
6 0 0 0 0 0 6 0 0 0 0 0 0 
7 0 0 0 0 0 0 7 0 0 0 0 0 
8 0 0 0 0 0 0 0 8 0 0 0 0 
9 0 0 0 0 0 0 0 0 9 0 0 0 
10 0 0 0 0 0 0 0 0 0 10 0 0 
11 0 0 0 0 0 0 0 0 0 0 11 0 
12 0 0 0 0 0 0 0 0 0 0 0 12 
13 13 0 0 0 0 0 0 0 0 0 0 0 
14 0 14 0 0 0 0 0 0 0 0 0 0 
15 0 0 15 0 0 0 0 0 0 0 0 0 
16 0 0 0 16 0 0 0 0 0 0 0 0 
17 0 0 0 0 17 0 0 0 0 0 0 0 
18 0 0 0 0 0 18 0 0 0 0 0 0 
19 0 0 0 0 0 0 19 0 0 0 0 0 
20 0 0 0 0 0 0 0 20 0 0 0 0 
21 0 0 0 0 0 0 0 0 21 0 0 0 
22 0 0 0 0 0 0 0 0 0 22 0 0 
23 0 0 0 0 0 0 0 0 0 0 23 0 
24 0 0 0 0 0 0 0 0 0 0 0 24 

Я использую пакет моделирования, который требует этого формата, и имел немного удачи в поиске решения в пакетах, как «Матрица» и 'diag', которые не отображаются для упорядочивания данных таким образом.

ответ

0

Решение, связанное с привязкой к диалогу.

rbind(diag(1:12,12,12), diag(13:24, 12,12), diag(25:36, 12,12), diag(37:48,12,12))