Zeit-Serie, die monatlich ändern Daten für die vierteljährliche

Nun habe ich einige monatliche Daten wie :

1/1/90 620
2/1/90,591
3/1/90,574
4/1/90,542
5/1/90,534
6/1/90,545
#...etc

Wenn ich ts () - Funktion, ist es leicht, die Daten in Zeitreihen Struktur wie:

         Jan Feb Mar ... Nov Dec
   1990  620 591 574 ... 493 464
   1991  100 200 300 ...........

Gibt es irgendwelche Möglichkeiten es zu ändern, in quartalsweise wiederholenden wie diese:

            1st 2nd 3rd 4th
   1990-Q1  620 591 574 464
   1990-Q2  100 200 300 400
   1990-Q3  ...
   1990-Q4  ...
   1991-Q1  ...

Ich habe versucht zu ändern

   ts(mydata,start=c(1990,1),frequency=12)

zu

   ts(mydata,start=c(as.yearqrt("1990-1",1)),frequency=4)

aber es scheint nicht zu arbeiten.

Könnte mir jemand helfen? Ich danke Ihnen sehr.

Vierteljährliche Daten würde bedeuten, dass Sie einen Datenpunkt pro Quartal, sondern in der von Ihnen gewünschten Ausgabe, die Sie zu haben scheinen, 4 Datenpunkten pro Quartal?
Brauchen Sie Aggregat Ihre monatliche Daten in vierteljährlichen Daten? (d.h., nehmen Sie die Viertel mean zum Beispiel)
Vielen Dank, Anfänger, Fernando und Rob....Meine Idee ist ein wenig special, die ich kenne. Ich versuche Eure Ideen und vielen Dank!

InformationsquelleAutor user2152814 | 2014-05-14

  1. 9
     monthly <- ts(mydata,start=c(1990,1),frequency=12)
 quarterly <- aggregate(monthly, nfrequency=4)
    Wenn ich das bekomme ich " Fehler in der Gesamtheit.zoo(z, nfrequency = 4) : argument "durch" is missing, with no default'

    InformationsquelleAutor Rob Hyndman

  2. 7

    Ich bin nicht einverstanden mit Hyndman auf diese ein. Das ist eine Seltenheit, da Hyndman kann in der Regel nichts falsch machen. Allerdings kann ich Ihnen zeigen, seine Lösung nicht mit der OP, was er will.

    test<-c(1:100)
test_ts <- ts(test, start=c(2000,1), frequency=12)
test_ts

     Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec
2000   1   2   3   4   5   6   7   8   9  10  11  12
2001  13  14  15  16  17  18  19  20  21  22  23  24
2002  25  26  27  28  29  30  31  32  33  34  35  36
2003  37  38  39  40  41  42  43  44  45  46  47  48
2004  49  50  51  52  53  54  55  56  57  58  59  60
2005  61  62  63  64  65  66  67  68  69  70  71  72
2006  73  74  75  76  77  78  79  80  81  82  83  84
2007  85  86  87  88  89  90  91  92  93  94  95  96
2008  97  98  99 100     

test_agg <-  aggregate(test_ts, nfrequency=4)
test_agg

2000    6   15   24   33
2001   42   51   60   69
2002   78   87   96  105
2003  114  123  132  141
2004  150  159  168  177
2005  186  195  204  213
2006  222  231  240  249
2007  258  267  276  285
2008  294

    Gut, warten Sie, das erste Quartal ist nicht der Durchschnitt der 3 Monate, das ist die Summe. (1+2+3 =6 aber Sie wollen es zu zeigen, der Mittelwert=2). So werden Sie brauchen, um zu ändern, ein bisschen.

    test_agg <-  aggregate(test_ts, nfrequency=4)/3
# divisor is (old freq)/(new freq) = 12/4 = 3
     Qtr1 Qtr2 Qtr3 Qtr4
2000    2    5    8   11
2001   14   17   20   23
2002   26   29   32   35
2003   38   41   44   47
2004   50   53   56   59
2005   62   65   68   71
2006   74   77   80   83
2007   86   89   92   95
2008   98

    Die zeigt Ihnen nun den Mittelwert der monatlichen Daten geschrieben, als vierteljährlich.
    Der divisor ist der trick hier. Wenn Sie wöchentlich (freq=52) und wollte quarterly (freq=4) würden Sie dividieren durch 52/4=13.

    Sie können FUN = "mean" eher als aggregateing mit sum dividiert durch drei.
    2 Jahre später, jetzt nutze ich die Bibliothek(xls) und apply.quarterly(zoo_object, FUN=mean) die so viel weniger Kopfschmerzen.

    InformationsquelleAutor NonReformed Bayesianist

  3. 3

    Wenn Sie möchten, dass die mittlere anstelle der Summe, fügen Sie einfach "meine":

    quarterly <- aggregate(monthly, nfrequency=4,mean)

    InformationsquelleAutor Cheuk

Schreibe einen Kommentar