zoo aggregazione oggetto

Question

Cara Comunità,

i dati che ricevo sarà in un frame di dati:

Var_1  Var_2   Date  VaR_3 VaR_4 VaR_5 Var_6 
1   4  2010-01-18   7 apple 10 sweet 
2   5  2010-07-19   8 orange 11 sour 
3   6  2010-01-18   9 kiwi  12 juicy 
...  ...  ...    ... ...  ... ... 

Vorrei utilizzare zoo, dal momento che sembra essere una classe di oggetti flessibili. Sto solo iniziando con R e ho provato a leggere la descrizione (vignette) del pacchetto.

Domande:

1. sulla base dei dati di cui sopra come un frame di dati, che è consigliato il metodo per convertire il df completa in un oggetto zoo, dicendo zoo che deve usare la terza colonna come colonna della data (le date possono si verificano più volte nei dati)?
2. Come faccio ad aggregare tutte le altre colonne mensilmente, eccetto le colonne 4 e 6 utilizzando le funzioni built-in dello zoo? Lo zoo è in grado di scartare automaticamente le variabili categoriali e utilizzare solo le colonne adatte per l'aggregazione?
3. Come faccio ad aggregare tutte le colonne numeriche mensilmente, per ogni categoria nella colonna 4 (la colonna 6 non deve essere inclusa, poiché non è numerica).

Grazie per il vostro supporto.

Answer 1

Gli oggetti dello zoo sono serie temporali e sono in genere vettori numerici o matrici. Sembra che quello che hai veramente sia un insieme di diverse serie temporali in cui la colonna 5 identifica le serie che sono. Cioè, c'è una serie di mele, una serie arancione, una serie di kiwi, ecc. E ognuna di esse ha diverse colonne.

Rimozione dell'ultimo colonna dalla sua non numerico, utilizzando la terza colonna come indice e frazionamento su colonna 5 si ha:

# create test data 
Lines <- "Var_1  Var_2   Date  VaR_3 VaR_4 VaR_5 Var_6 
1   4  2010-01-18   7 apple 10 sweet 
2   5  2010-07-19   8 orange 11 sour 
3   6  2010-01-18   9 kiwi  12 juicy" 
cat(Lines, "\n", file = "data.txt") 

library(zoo) 
z <- read.zoo("data.txt", header = TRUE, index = 3, split = "VaR_5", 
    colClasses = c(Var_6 = "NULL")) 

Il risultato è:

> z 
      Var_1.apple Var_2.apple VaR_3.apple VaR_5.apple Var_1.kiwi 
2010-01-18   1   4   7   10   3 
2010-07-19   NA   NA   NA   NA   NA 
      Var_2.kiwi VaR_3.kiwi VaR_5.kiwi Var_1.orange Var_2.orange 
2010-01-18   6   9   12   NA   NA 
2010-07-19   NA   NA   NA   2   5 
      VaR_3.orange VaR_5.orange 
2010-01-18   NA   NA 
2010-07-19   8   11 

Quanto sopra presuppone che per un dato valore della colonna 5, le date sono uniche. Se questo non è il caso, includere l'argomento aggregate = mean o qualche altro valore per aggregate.

Per ora aggregare in una serie mensile zoo abbiamo:

aggregate(z, as.yearmon, mean) 

Sarebbe anche possibile convertirlo subito a mensile utilizzando l'argomento FUN = as.yearmon:

zm <- read.zoo("data.txt", header = TRUE, index = "Date", split = "VaR_4", 
    FUN = as.yearmon, colClasses = c(Var_6 = "NULL"), aggregate = mean) 

Vedi ?read.zoo , vignette("zoo-read"), ?aggregate.zoo e le altre vignette e file di aiuto.