R - объединить «список» данных в один data.frame - PullRequest
Новая
       9

R - объединить «список» данных в один data.frame

0 голосов
/ 19 января 2012

Когда я использую функцию списка: 

el_nino_1974_2000_all <- list()
for (k in seq_along(el_nino_start_month)){
     el_nino_1974_2000_all[[k]] = window(Nino3.4_Flow_1974_2000_zoo,
                                         start = (as.Date(el_nino_1974_2000[k,]$el_nino_start_mont)),
                                         end = (as.Date(el_nino_1974_2000[k,]$el_nino_finish_month)))
}

A дает серию отдельных подмножеств данных, начиная с i = 1. Однако я хочу объединить все подмножества в один кадр данных либо в формате зоопарка, либо в формате данных.

Это структура el_nino_1974_2000_all. 

    > str(el_nino_1974_2000_all)
List of 7
 $ :‘zoo’ series from 1976-08-15 to 1977-01-15
  Data: num [1:6, 1:2] 0.519 0.874 0.886 0.823 0.734 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "Nino3.4_degree_1974_2000" "Houlgrave_flow_1974_2000"
  Index:  Date[1:6], format: "1976-08-15" "1976-09-15" ...
 $ :‘zoo’ series from 1982-05-15 to 1983-06-15
  Data: num [1:14, 1:2] 0.961 1.388 0.959 1.171 1.564 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "Nino3.4_degree_1974_2000" "Houlgrave_flow_1974_2000"
  Index:  Date[1:14], format: "1982-05-15" "1982-06-15" ...
 $ :‘zoo’ series from 1986-09-15 to 1988-01-15
  Data: num [1:17, 1:2] 0.974 1.089 1.322 1.273 1.313 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "Nino3.4_degree_1974_2000" "Houlgrave_flow_1974_2000"
  Index:  Date[1:17], format: "1986-09-15" "1986-10-15" ...
 $ :‘zoo’ series from 1991-05-15 to 1992-07-15
  Data: num [1:15, 1:2] 0.68 1 0.923 0.773 0.68 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "Nino3.4_degree_1974_2000" "Houlgrave_flow_1974_2000"
  Index:  Date[1:15], format: "1991-05-15" "1991-06-15" ...
 $ :‘zoo’ series from 1993-02-15 to 1993-07-15
  Data: num [1:6, 1:2] 0.54 0.641 1.01 1.144 0.917 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "Nino3.4_degree_1974_2000" "Houlgrave_flow_1974_2000"
  Index:  Date[1:6], format: "1993-02-15" "1993-03-15" ...
 $ :‘zoo’ series from 1994-08-15 to 1995-02-15
  Data: num [1:7, 1:2] 0.662 0.746 1.039 1.329 1.301 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "Nino3.4_degree_1974_2000" "Houlgrave_flow_1974_2000"
  Index:  Date[1:7], format: "1994-08-15" "1994-09-15" ...
 $ :‘zoo’ series from 1997-04-15 to 1998-05-15
  Data: num [1:14, 1:2] 0.601 1.136 1.461 1.668 2.079 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:2] "Nino3.4_degree_1974_2000" "Houlgrave_flow_1974_2000"
  Index:  Date[1:14], format: "1997-04-15" "1997-05-15" ...
>

Извините, я не знаю, как выполнить форматирование.

Ответы [ 2 ]

1 голос
/ 19 января 2012

Если даты не перекрываются, вы можете соединить их вместе, используя rbind (поскольку количество столбцов одинаково для каждого компонента). Попробуйте: 

el_nino_1974_2000_all <- c()
for (k in seq_along(el_nino_start_month)){
    el_nino_1974_2000_all <- rbind(el_nino_1974_2000_all,window(...))
}

Вместо list конструкции, которую вы изначально имели. Это вернет объект zoo.

Если вы хотите вернуть data.frame, попробуйте использовать rbind, но с data.frame для преобразования ваших объектов (это будет работать, даже если индексы даты перекрываются между каждым из ваших наборов данных): 

el_nino_1974_2000_all <- data.frame()
for (k in seq_along(el_nino_start_month)){
    el_nino_1974_2000_all <- rbind(el_nino_1974_2000_all,data.frame(window(...)))
}
0 голосов
/ 05 июля 2013

Вы пробовали эту функцию:

http://rss.acs.unt.edu/Rdoc/library/gtools/html/smartbind.html

out <- smartbind(list_of_dataframes)

Примечание: list_of_dataframes должен содержать data.frames, но вы можете просто преобразовать свои данные в dframes на лету и затем использовать эту функцию.

...