Question

我有一个数据框列表，元素列表的名称包含有关每个数据框的信息。

这是一个可重现的例子，

list_df <- list(jan_2013 = data.frame(id = 1:10, x = rnorm(10), y = runif(10)), 
                feb_2013 = data.frame(id = 1:10, x = rnorm(10), y = runif(10)))

如何使用元素名称中包含的信息在每个数据框中创建一列？我在列表上使用purrr操作，那么如何使用purrr::map迭代每个数据框并访问列表中存储的元素名称？

$jan_2013
  id    x    y   meta_information
   1    0.2  2.3      jan_2013
   2    0.3  2.1      jan_2013

$feb_2013
  id    x    y   meta_information
   1    0.1  2.4      feb_2013
   2    1.4  2.1      feb_2013

Answer 1

另一种方法是将列表折叠为单个数据框，并使用列表名称作为附加列。

dplyr::bind_rows(list_df, .id = "meta_information")

# # A tibble: 20 x 4
#   meta_information    id       x      y
#   <chr>            <int>   <dbl>  <dbl>
# 1 jan_2013             1 -1.09   0.877 
# 2 jan_2013             2  0.136  0.828 
# 3 jan_2013             3 -0.376  0.0376
# 4 jan_2013             4 -0.793  0.780 
# 5 jan_2013             5  0.259  0.179 
# 6 jan_2013             6  0.971  0.556 
# 7 jan_2013             7 -0.787  0.579 
# 8 jan_2013             8 -0.294  0.563 
# 9 jan_2013             9  0.331  0.896 
# 10 jan_2013           10 -0.392  0.577 
# 11 feb_2013            1  0.0139 0.0381
# 12 feb_2013            2  0.640  0.0744
# 13 feb_2013            3  0.813  0.270 
# 14 feb_2013            4 -0.748  0.305 
# 15 feb_2013            5  0.528  0.380 
# 16 feb_2013            6 -0.627  0.832 
# 17 feb_2013            7 -1.21   0.0529
# 18 feb_2013            8  1.45   0.494 
# 19 feb_2013            9  0.490  0.402 
# 20 feb_2013           10 -0.765  0.531

如果确实需要将列表分开，我们可以使用purrr

中的索引地图

purrr::imap(list_df, ~mutate(.x, meta_information = .y))

# $jan_2013
#    id          x          y meta_information
# 1   1 -1.0867168 0.87674573         jan_2013
# 2   2  0.1357794 0.82798892         jan_2013
# 3   3 -0.3763973 0.03761698         jan_2013
# 4   4 -0.7934503 0.77968454         jan_2013
# 5   5  0.2586395 0.17917052         jan_2013
# 6   6  0.9707220 0.55617247         jan_2013
# 7   7 -0.7871748 0.57870521         jan_2013
# 8   8 -0.2939041 0.56255010         jan_2013
# 9   9  0.3307507 0.89646137         jan_2013
# 10 10 -0.3917830 0.57723403         jan_2013
# 
# $feb_2013
#    id           x          y meta_information
# 1   1  0.01386418 0.03814336         feb_2013
# 2   2  0.64030914 0.07435783         feb_2013
# 3   3  0.81281978 0.26987216         feb_2013
# 4   4 -0.74768467 0.30482967         feb_2013
# 5   5  0.52820991 0.38045027         feb_2013
# 6   6 -0.62720336 0.83191998         feb_2013
# 7   7 -1.20532079 0.05291640         feb_2013
# 8   8  1.45277032 0.49355127         feb_2013
# 9   9  0.48985425 0.40229656         feb_2013
# 10 10 -0.76508432 0.53114667         feb_2013

Answer 2

我找到了一种方法来执行purrr::map2并行迭代两个参数的任务：list_df和names(list_df)。然后，匿名函数使用这两个参数，获取数据框（df）并根据包含数据框的元素（name_elem_contain_df）的名称创建常量列（df ）

purrr::map2(list_df, names(list_df), 
    function(df, name_elem_contain_df) mutate(df, meta_information = name_elem_contain_df))

根据包含R中数据框的元素列表的名称创建列

2 个答案: