R виявляє тенденцію до збільшення / зменшення тенденції часових рядів


9

У мене багато часових рядів з періодами: день, тиждень або місяць. За допомогою stl()функції чи за допомогою loess(x ~ y)я можу побачити, як виглядають тенденції певного часового ряду. Мені потрібно виявити, чи збільшується чи зменшується тенденція часових рядів. Як я можу цим керувати?

Я намагався обчислити коефіцієнти лінійної регресії lm(x ~ y)і грати з коефіцієнтом нахилу. ( If |slope|>2 and slope>0 thenзростаюча тенденція, else if |slope|>2 and slope<0- зменшується). Можливо, є ще один і більш ефективний метод виявлення трендів? Дякую!

Наприклад: у мене є timeserie1, timeserie2. Мені потрібен простий алгоритм, який би сказав мені, що timeserie2алгоритм зростає, і timeserie1, таким чином, тенденція не збільшується або зменшується. Які критерії я повинен використовувати?

timeserie1:

1774 1706 1288 1276 2350 1821 1712 1654 1680 1451 1275 2140 1747 1749 1770 1797 1485 1299 2330 1822
1627 1847 1797 1452 1328 2363 1998 1864 2088 2084  594  884 1968 1858 1640 1823 1938 1490 1312 2312
1937 1617 1643 1468 1381 1276 2228 1756 1465 1716 1601 1340 1192 2231 1768 1623 1444 1575 1375 1267
2475 1630 1505 1810 1601 1123 1324 2245 1844 1613 1710 1546 1290 1366 2427 1783 1588 1505 1398 1226
1321 2299 1047 1735 1633 1508 1323 1317 2323 1826 1615 1750 1572 1273 1365 2373 2074 1809 1889 1521
1314 1512 2462 1836 1750 1808 1585 1387 1428 2176 1732 1752 1665 1425 1028 1194 2159 1840 1684 1711
1653 1360 1422 2328 1798 1723 1827 1499 1289 1476 2219 1824 1606 1627 1459 1324 1354 2150 1728 1743
1697 1511 1285 1426 2076 1792 1519 1478 1191 1122 1241 2105 1818 1599 1663 1319 1219 1452 2091 1771
1710 2000 1518 1479 1586 1848 2113 1648 1542 1220 1299 1452 2290 1944 1701 1709 1462 1312 1365 2326
1971 1709 1700 1687 1493 1523 2382 1938 1658 1713 1525 1413 1363 2349 1923 1726 1862 1686 1534 1280
2233 1733 1520 1537 1569 1367 1129 2024 1645 1510 1469 1533 1281 1212 2099 1769 1684 1842 1654 1369
1353 2415 1948 1841 1928 1790 1547 1465 2260 1895 1700 1838 1614 1528 1268 2192 1705 1494 1697 1588
1324 1193 2049 1672 1801 1487 1319 1289 1302 2316 1945 1771 2027 2053 1639 1372 2198 1692 1546 1809
1787 1360 1182 2157 1690 1494 1731 1633 1299 1291 2164 1667 1535 1822 1813 1510 1396 2308 2110 2128
2316 2249 1789 1886 2463 2257 2212 2608 2284 2034 1996 2686 2459 2340 2383 2507 2304 2740 1869  654
1068 1720 1904 1666 1877 2100  504 1482 1686 1707 1306 1417 2135 1787 1675 1934 1931 1456 1363 2027
1740 1544 1727 1620 1232 1199

timeserie2:

 122  155  124   97  155  134  115  122  162  115  102  163  135  120  139  160  126  122  169  154
 121  134  143  100  121  182  139  145  135  147   60   58  153  145  130  126  143  129   98  171
 145  107  133  115  113   96  175  128  106  117  124  107  114  172  143  111  104  132  110   80
 159  131  113  123  123  104  101  179  127  105  133  127  101   97  164  134  124   90  110  102
  90  186   79  145  130  115   79  104  191  137  114  131  109   95  119  173  158  137  128  119
 109  120  182  140  133  113  121  110  122  159  129  124  119  109  108   95  167  138  125  105
 139  118  115  166  140  112  116  139  121  109  164  135  118  121  112  111  102  169  136  151
 132  135  130  112  156  134  121  116  114   91   86  141  160  116  118  112   84  114  165  141
 109  123  122  110  100  162  145  121  118  115  107  103  162  142  130  139  134  121  118  164
 147  125  120  134  107  130  158  141  144  148  124  135  118  212  178  154  167  155  176  143
 201  170  144  138  152  136  123  223  189  160  153  190  136  144  276  213  199  211  196  170
 179  460  480  499  550  518  493  557  768  685  637  593  507  611  569  741  635  563  577  498
 456  446  677  552  515  441  438  462  530  699  629  555  641  625  544  585  705  584  553  622
 506  500  533  777  598  541  532  513  434  510  714  631 1087 1249 1102  913  888 1147 1056 1073
1075 1136  927  922 1066 1074  996 1189 1062  999  974 1174 1097 1055 1053 1097 1065 1171  843  441
 552  779  883  773  759  890  404  729  703  810  743  743  946  883  813  876  841  742  715  960
 862  743  806  732  669  621

1
У вашому другому прикладі немає тенденції, тому ви не повинні його виявляти. У період 230 дані мають зсув рівня (тобто 0,0,0,0,0,1,1,1,1,1,1 тощо), який відрізняється від тенденції. Також є зміна дисперсії приблизно на 200, яку можна визначити за допомогою тесту Цей. Детальніше тут www.unc.edu/~jbhill/tsay.pdf
Том Рейлі

2
@ Так, те, що ви говорите, очевидно в графіку даних. (Дійсно, сюжет показує три окремі раптові зрушення рівня, а не лише одну). Але охарактеризувати це як відмінне від "тренду" не відповідає справедливості вашому аналізу, який, як я знаю, виявить тонкі деталі в поведінці цього часового ряду. Я хотів би припустити, що ОП краще послужиться чіткими характеристиками поведінки даних, а не обговоренням можливих визначень "тенденції". Вона просить альтернативи тестуванню нахилу найменших квадратів - і це фактично вказує на те, що вона означає під «трендом».
whuber

Відповіді:


7

Ви можете застосувати фільтр нульового фазового зсуву і вирізати всі частоти, що перевищують деякий поріг; це дало б вам "тенденцію" сортів.

Наприклад, подивіться на це запитання: " Як запустити фільтр високих та низьких частот на точках даних у R? ", Вони показують, як використовувати фільтр низьких частот Баттерворта. Проблема цього фільтра полягає в тому, що це не зсув нульової фази, тобто, як ви бачите, фаза низькочастотного компонента зміщена відносно вихідного сигналу. Ви можете знайти фільтр, який не зміщує фазу. Якби це економічні дані, я б запропонував фільтр Крістіано згідно з "Фільтром пропускної смуги" Лоуренса Дж. Крістіано та Террі Дж. Фіцджеральда (1999). Для фізичних даних має бути доступна тонна фільтрів зсуву нульової фази.

ОНОВЛЕННЯ:

Ось приклад застосування низькочастотного фільтра проходу до LOG другого часового ряду. LOG необхідний для вирівнювання дисперсії.

ОНОВЛЕННЯ2:

Ось зразок декомпозиції в частотній області з частотними діапазонами: нерегулярний [2-19], циклічний [20-99] та тренд [100- ] (у періоди довжини). Частотні смуги потрібно вибирати ретельно, виходячи з розуміння основного явища.


1
Я деякий час спантеличував цю відповідь і, нарешті, зрозумів, що ви повинні використовувати слово "тренд" приблизно так само, як багато статистики використовують "гладке". Тоді все має сенс. Ми сподіваємось, що ОП скоро прояснить, що вона означає під «тенденцією».
whuber

так, я використовую "тренд", як у сенсі розкладання часових рядів: y = тренд + циклічний + сезонний + нерегулярний, наприклад, en.wikipedia.org/wiki/Decomposition_of_time_series, в цьому контексті ця тенденція буде "дуже низькою" частотною складовою . наскільки низько залежить від проблеми
Аксакал

1
Це не зовсім так здається. Коли ви фільтруєте високочастотні компоненти, ви видаляєте частину "нерегулярних" (читайте: шум) та, можливо, крихітної частини циклічної частини, але тенденцію, середньо- та довгострокові циклічні компоненти та сезонні компоненти всі залишаться
whuber

1
для тренду ви б використовували фільтр низьких частот. скажімо, у вас є кілька років щомісячних рядів даних. в цьому випадку низький діапазон може становити цикл 10 років, тому ви вирізаєте всі частоти вище 1/10 (коли час у роках). Поріг дійсно залежить від явища, в економічних даних бізнес-цикли можуть тривати 10-15 років, тому вам може знадобитися встановити низький діапазон на 1/16
Аксакал,

1
Як видно з вашої нової ілюстрації, коли ви занадто агресивні у фільтруванні, ви також втрачаєте очевидні тенденції: ваш гладкий настільки сильний, що пропускає майже всю останню третину даних. Незважаючи на це, це, безумовно, не є декомпозицією на якісні умовні компоненти, описані у статті Вікіпедії, на яку ви посилаєтесь. Інша стурбованість підходу до фільтрування (однак він проводиться) - це статистичний: як ви перевіряєте, чи є "тенденція" і чи вона вгору чи вниз?
whuber

3

Виявлення тренду в часових рядах можна зробити просто неправильно або агресивніше. Серія може мати значення, які демонструють тенденцію, наприклад 1,2,3,4,5, а потім зміна тренда в один або декілька моментів часу, наприклад, 7,9,11,13,15,...Інший приклад - 1,1,1,1,1,2,3,4,5,6коли протягом перших 5 читання не існує тенденції, а потім настає тенденція. Серія типу, 1,1,1,1,1,2,2,2,2,2як кажуть, має зсув рівня (зміна перехоплення). AUTOBOX- це програмне забезпечення, яке унікально (наскільки мені відомо) включає аналітику для виявлення, тестування та включення тенденцій часу. Я був одним із розробників і розширив аналітику в цій конкретній області. Процедура, яку ви намагаєтеся використати (на мою думку неправильно), є припущенною моделлю, тобто відсутність імпульсів, зсув рівня, відсутність сезонних імпульсів, відсутність структури ARIMA, постійні дисперсії помилок тощо. Ще одним можливим поганим прикладом припущеної моделі є: використання [1-Б]у(т)=θ0+[МА/АR]а(т), знову ж таки, можна припустити певну структуру.

Тут ідея полягає в тому, що модель ARIMA може бути неправильною чи що θ0 змінюється (тому різні тенденції) у різні моменти часу.

Вся ідея полягає у тому, щоб дані "говорили", а аналіз "слухали" та виявляли "правильну модель" або хоча б "корисну модель".

Орсон Бін - а може, це був хтось інший - одного разу сказав: "Тенденція - це тенденція ... поки вона не згинається, і коли тенденція вигинається, тенденція закінчується". а потім оцінка локальної тенденції. Деякі корисні матеріали / посилання можна знайти на веб- сайті http://www.autobox.com/OLDWEB/udontsay.html

Якщо ви хочете опублікувати деякі дані, будь ласка, зробіть це, і я опублікую вам деякі результати.


3
Тенденція - це тренд, це тренд \ Але питання полягає в тому, чи згорнеться він? \ Чи змінить його хід \ Через якусь непередбачену силу \ І прийде до передчасного кінця? Олександр Кернкросс
Нік Кокс

Дякую за відповідь. Я вивчу вашу інформацію. Я також розмістив деякі дані.
Юргіта

1
У такому випадку, Марта, здається, ти тестуєш глобальну "тенденцію" (в сенсі відмінності типових значень між двома кінцями часового ряду), а не локальні тенденції, як описано в цій відповіді. Це правильно?
whuber

1
@Nick Дякую! Оскільки для пошуку джерела потрібні були певні зусилля, ось це: Економічне прогнозування , Звернення Президента до Королівського економічного товариства, 3 липня 1969 року . Кернкросс відкрив свою промову цитатою Лінкольна, за якою слідував цей оригінальний лімерік (виразно приписуваний "передвісникові віку Штейна"). Подальші зауваження дають зрозуміти, що він мав на увазі прогнозування - екстраполяцію тенденцій.
whuber

1
@whuber, ти маєш рацію, я шукаю світову тенденцію. Вибачте, якщо моє запитання ввело в оману.
Юргіта
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.