R-проект: заговор 2 объектов зоопарка (ценовой ряд), у которых есть некоторые несоответствия даты - PullRequest
0 голосов
/ 03 апреля 2011

У меня есть 2 объекта зоопарка -

  1. Разброс процентных ставок между 10-YR-US-Treasury и 2-YR-US-Treasury (имя объекта = sprd)

  2. Индекс S & P 500 (имя объекта = шпион)

> str(spy)
‘zoo’ series from 1976-06-01 to 2011-03-31
  Data: num [1:8791] 99.8 100.2 100.1 99.2 98.6 ...
  Index: Class 'Date'  num [1:8791] 2343 2344 2345 2346 2349 ...

> str(sprd)
‘zoo’ series from 1976-06-01 to 2011-03-31
  Data: num [1:9088] 0.68 0.71 0.7 0.77 0.79 0.79 0.82 0.86 0.83 0.83 ...
  Index: Class 'Date'  num [1:9088] 2343 2344 2345 2346 2349 ...

Поскольку в объекте 'sprd' есть точки данных NA, я создал еще один объект, который опускается "NA».Имя этого объекта - «sprdtmp».

> str(sprdtmp)
‘zoo’ series from 1976-06-01 to 2011-03-31
  Data: atomic [1:8704] 0.68 0.71 0.7 0.77 0.79 0.79 0.82 0.86 0.83 0.83 ...
 - attr(*, "na.action")=Class 'omit'  int [1:384] 25 70 95 111 118 128 149 190 224 260 ...
  Index: Class 'Date'  num [1:8704] 2343 2344 2345 2346 2349 ...

Я хочу построить оба временных ряда на одном графике с указанием времени / даты на оси x и меткой оси ежеквартально.Одна из проблем заключается в том, что объекты sprdtmp и spy не имеют одинакового количества точек данных, так как бывают периоды, когда рынки акций закрыты, а рынки процентных ставок открыты.По большей части даты перекрываются.Будет ли это иметь значение, если я попытаюсь нанести оба на один сюжет?И как бы я пошел о нанесении этих объектов на одном участке.

Вторая часть графика требует, чтобы оба были в разных масштабах.Я думаю, я мог бы взять журнал S & P и построить график, а также разброс ставки.Но было бы неплохо для дальнейшего использования, как я мог бы построить 2 серии на одном графике с 2 разностными шкалами.

Я провел всю ночь вчера и сегодня утром, пробуя различные варианты, но я не могу заставить его работать.Буду очень признателен за вашу помощь.

1 Ответ

0 голосов
/ 07 апреля 2011

Трюк сделал следующее:

plot(na.approx(cbind(z1, z2)), screen = 1)
...