代码之家 › 专栏 › 技术社区 › Tdebeus

添加每个元素的名称作为值的新列

purrr list r

Tdebeus · 技术社区 · 7 年前

我在列表中有一堆数据帧。我正在尝试向每个数据帧添加一个新列,并将数据帧的“name”作为一个值。

library(tidyverse)

df_2018 <- data_frame(y1 = c(1, 2, 3),
                      y2 = c(4, 5, 6))
df_2017 <- data_frame(y1 = c(3, 2, 1),
                      y2 = c(6, 5, 4))

list <- list(df_2017 = df_2017, df_2018 = df_2018)

结果:

> list
$df_2017
# A tibble: 3 x 2
     y1    y2
  <dbl> <dbl>
1     3     6
2     2     5
3     1     4

$df_2018
# A tibble: 3 x 2
     y1    y2
  <dbl> <dbl>
1     1     4
2     2     5
3     3     6

预期结果:

> list
$df_2017
# A tibble: 3 x 3
     y1    y2 year   
  <dbl> <dbl> <chr>  
1     3     6 df_2017
2     2     5 df_2017
3     1     4 df_2017

$df_2018
# A tibble: 3 x 3
     y1    y2 year   
  <dbl> <dbl> <chr>  
1     1     4 df_2018
2     2     5 df_2018
3     3     6 df_2018

purrr 的 map() 函数,所以如果你能用purrr显示一个答案,额外的分数!

我在想以下几点,但这行不通:

map(list,
    add_column,
    ~ year = names(.x))

3 回复 | 直到 7 年前

YOLO 7 年前

我会用 map2 和 mutate 为此:

library(dplyr)
library(purrr)

mlist <- list(df_2017 = df_2017, df_2018 = df_2018)

map2(mlist, names(mlist), ~ mutate(.x, year = .y)) 

$df_2017
  y1 y2    year
1  3  6 df_2017
2  2  5 df_2017
3  1  4 df_2017

$df_2018
  y1 y2    year
1  1  4 df_2018
2  2  5 df_2018
3  3  6 df_2018

phiver 7 年前

我们把名单和名单上的名字,用 map2 来自purrr和 add_column 从tibble到把所有的东西结合起来。

map2(list, names(list), function(x, y) add_column(x, year = y))

$`df_2017`
# A tibble: 3 x 3
     y1    y2 year   
  <dbl> <dbl> <chr>  
1     3     6 df_2017
2     2     5 df_2017
3     1     4 df_2017

$df_2018
# A tibble: 3 x 3
     y1    y2 year   
  <dbl> <dbl> <chr>  
1     1     4 df_2018
2     2     5 df_2018
3     3     6 df_2018

Chriss Paul 7 年前

base 解决方案使用 lapply

lst <- list(df_2017 = df_2017, df_2018 = df_2018) #I'm using lst as name instead of "list" as it is reserved in R
temp <- lapply(seq_along(lst), function(x) rep(names(lst[x]), times = nrow(lst[[x]])))
lapply(seq_along(lst), function(i) cbind(lst[[i]], year=temp[[i]]))
#returns
[[1]]
  y1 y2    year
1  3  6 df_2017
2  2  5 df_2017
3  1  4 df_2017

[[2]]
  y1 y2    year
1  1  4 df_2018
2  2  5 df_2018
3  3  6 df_2018

Map

Map("[<-", lst, "year", value = names(lst))

推荐文章

MCP_infiltrator · 在“tible”中添加一列,给出其列表位置

4 年前

sbac · 如何对R中数据帧的几列应用统计测试

4 年前

John-Henry · 使用“purrr::map”将“lm”对象循环到“broom::tidy”`

4 年前

deschen · 将列乘以向量的tidyverse解决方案

4 年前

Nuller · 无法对嵌套数据中的列进行子集设置。框架

4 年前

chrischi · R Purrr-系数最高

8 年前

Richard Herron · 从purr的pmap()调用var()返回NA

8 年前

Davide Lorino · 嵌套数据帧上的函数向量算法

8 年前

âÊÊá¸á¸½á¸ · 如何使用purrr从两个元素的列表中提取元素?

8 年前

andrew_reece · map\u dfr:填充。具有字符串标签的id列,而不是没有字符串标签的索引。x已命名

8 年前