映射来自 2 个列表的变量并将它们存储在单独的数据框中

Question

我有一个包含 14 个时间序列跳跃试验的列表。 14 与时间和 14 与垂直距离，如列表中所示，我将如何使用 MAP 而不是 LOOP 将每个相应的时间和垂直试验配对为 hop1、hop2、hop3 等......并将它们放在主数据框？

列出 dt 和 dv

示例如下所示：

hop1 <-data.frame(hop =1,t = dt$time_100L_1, v = dv$vertical_100L_1)

hop2 <-data.frame(hop =2,t = dt$time_100L_2, v = dv$vertical_100L_2)

并将所有的啤酒花存储在一个 master 中。我可以对 2 个列表进行 rowbind 并在示例中的每个 like 上放置一个 hop ID 吗？

我正在使用此代码，

首先将提取为 data.frame/tibble 的第一个元素映射到绑定列以形成新列表

combined_hop <- purrr::map2(d100Lt, d100Lv, ~data.frame(.x, .y)) %>% 
  # use ldply() as it will use the list names as a column we can use as ID
  plyr::ldply(tibble) %>% 
  # group by this newly generated ID
  dplyr::group_by(.id) %>% 
  # build new group ID (you could build it from your column names
  dplyr::mutate(G_ID = dplyr::cur_group_id()) %>% 
  # ungroup the tibble
  dplyr::ungroup() %>% 
  # select renaming the columns of interest (dropping the intermediate ID)
  dplyr::select(ID = G_ID, TIME = .x, Vertical = .y)

它有效，但我的列 id 乱序，而第 2 列和第 3 列是正确的。 new data frame

对如何获得正确的顺序有什么建议吗？

Answer 1

据我了解，您有两个列表，每个列表都是一个数据框/小标题，并且都具有相同的尺寸。如果列的顺序相同，则可能的解决方案是：

library(dplyr)
library(purrr)
library(plyr)

# demo lists
dt <- list(data.frame(a1 = c(1, 1),
                      a2 = c(2, 2),
                      a3 = c(3, 3)))

dv <- list(data.frame(b1 = c(111, 111),
                      b2 = c(222, 222),
                      b3 = c(222, 222)))

# first map the first element extracted as data.frame/tibble to bind columns to form a new list
purrr::map2(dt[[1]], dv[[1]], ~data.frame(.x, .y)) %>% 
# use ldply() as it will use the list names as a column we can use as ID
  plyr::ldply(tibble) %>% 
# group by this newly generated ID
  dplyr::group_by(.id) %>% 
# build new group ID (you could build it from your column names
  dplyr::mutate(G_ID = dplyr::cur_group_id()) %>% 
# ungroup the tibble
  dplyr::ungroup() %>% 
# select renaming the columns of interest (dropping the intermediate ID)
  dplyr::select(ID = G_ID, VELO = .x, TIME = .y)

# A tibble: 6 x 3
     ID  VELO  TIME
  <int> <dbl> <dbl>
1     1     1   111
2     1     1   111
3     2     2   222
4     2     2   222
5     3     3   222
6     3     3   222

Answer 2

你可以试试Map：

result <- Map(cbind, hop  = seq_along(dt), t = dt, v = dv)

如果 dt 和 dv 在列表中，您可以这样做：

result <- Map(cbind, hop  = seq_along(dt[[1]]), t = dt[[1]], v = dv[[1]])

Answer 3

我们也可以

 do.call(Map, c(f = cbind, c(list(hop = seq_along(dt)), do.call(c, list(dt, dv)))))