我想颠倒一下：从这里得到的解决方案一行将两个数据帧与一个区别列连接起来？
library(dplyr)
bind_rows(list(A = df1, B = df2), .id = 'id')
在这里，我们将列表中的每个数据帧的名称分配给列表中每个数据帧中名为id的列。
现在我如何执行相反的操作：例如，当名称存储在名为id->要重命名列表中的每个数据帧：
一个例子这是my_list:
[[1]]
# A tibble: 2 x 5
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
<dbl> <dbl> <dbl> <dbl> <chr>
1 5.1 3.5 1.4 0.2 new_setoas
2 4.9 3 1.4 0.2 new_setoas
[[2]]
# A tibble: 2 x 5
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
<dbl> <dbl> <dbl> <dbl> <chr>
1 6.3 3.3 6 2.5 new_virginica
2 5.8 2.7 5.1 1.9 new_virginica
[[3]]
# A tibble: 2 x 5
Sepal.Length Sepal.Width Petal.Length Petal.Width Species
<dbl> <dbl> <dbl> <dbl> <chr>
1 7 3.2 4.7 1.4 versicolor
2 6.4 3.2 4.5 1.5 versicolor
my_list <- structure(list(structure(list(Sepal.Length = c(5.1, 4.9), Sepal.Width = c(3.5,
3), Petal.Length = c(1.4, 1.4), Petal.Width = c(0.2, 0.2), Species = c("new_setoas",
"new_setoas")), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-2L)), structure(list(Sepal.Length = c(6.3, 5.8), Sepal.Width = c(3.3,
2.7), Petal.Length = c(6, 5.1), Petal.Width = c(2.5, 1.9), Species = c("new_virginica",
"new_virginica")), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-2L)), structure(list(Sepal.Length = c(7, 6.4), Sepal.Width = c(3.2,
3.2), Petal.Length = c(4.7, 4.5), Petal.Width = c(1.4, 1.5),
Species = c("versicolor", "versicolor")), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -2L))), ptype = structure(list(
Sepal.Length = numeric(0), Sepal.Width = numeric(0), Petal.Length = numeric(0),
Petal.Width = numeric(0), Species = character(0)), class = c("tbl_df",
"tbl", "data.frame"), row.names = integer(0)), class = c("vctrs_list_of",
"vctrs_vctr", "list"))
期望输出：
[[new_setoas]]
# A tibble: 2 x 5
Sepal.Length Sepal.Width Petal.Length Petal.Width
<dbl> <dbl> <dbl> <dbl>
1 5.1 3.5 1.4 0.2
2 4.9 3 1.4 0.2
[[new_virginica]]
# A tibble: 2 x 5
Sepal.Length Sepal.Width Petal.Length Petal.Width
<dbl> <dbl> <dbl> <dbl>
1 6.3 3.3 6 2.5
2 5.8 2.7 5.1 1.9
[[versicolor]]
# A tibble: 2 x 5
Sepal.Length Sepal.Width Petal.Length Petal.Width
<dbl> <dbl> <dbl> <dbl>
1 7 3.2 4.7 1.4
2 6.4 3.2 4.5 1.5
如果您喜欢purrr:，请选择另一个选项
library(purrr)
map_chr(my_list, ~unique(.x$Species)) |>
set_names()|>
map2(my_list, ~.y)
#> $new_setoas
#> Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#> 1 5.1 3.5 1.4 0.2 new_setoas
#> 2 4.9 3.0 1.4 0.2 new_setoas
#>
#> $new_virginica
#> Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#> 1 6.3 3.3 6.0 2.5 new_virginica
#> 2 5.8 2.7 5.1 1.9 new_virginica
#>
#> $versicolor
#> Sepal.Length Sepal.Width Petal.Length Petal.Width Species
#> 1 7.0 3.2 4.7 1.4 versicolor
#> 2 6.4 3.2 4.5 1.5 versicolor
names(my_list)<-lapply(my_list, FUN = function(x) {toString(head(x["Species"],1))})
> my_list $new_setoas Sepal.Length Sepal.Width Petal.Length Petal.Width Species 1 5.1 3.5 1.4 0.2 new_setoas 2 4.9 3.0 1.4 0.2 new_setoas $new_virginica Sepal.Length Sepal.Width Petal.Length Petal.Width Species 1 6.3 3.3 6.0 2.5 new_virginica 2 5.8 2.7 5.1 1.9 new_virginica $versicolor Sepal.Length Sepal.Width Petal.Length Petal.Width Species 1 7.0 3.2 4.7 1.4 versicolor 2 6.4 3.2 4.5 1.5 versicolor attr(,"ptype") [1] Sepal.Length Sepal.Width Petal.Length Petal.Width Species <0 rows> (or 0-length row.names) attr(,"class") [1] "vctrs_list_of" "vctrs_vctr" "list"
也许这对有用
setNames(lapply(my_list, "[", -5), sapply(my_list, function(x) unique(x$Species)))
$new_setoas
# A tibble: 2 × 4
Sepal.Length Sepal.Width Petal.Length Petal.Width
<dbl> <dbl> <dbl> <dbl>
1 5.1 3.5 1.4 0.2
2 4.9 3 1.4 0.2
$new_virginica
# A tibble: 2 × 4
Sepal.Length Sepal.Width Petal.Length Petal.Width
<dbl> <dbl> <dbl> <dbl>
1 6.3 3.3 6 2.5
2 5.8 2.7 5.1 1.9
$versicolor
# A tibble: 2 × 4
Sepal.Length Sepal.Width Petal.Length Petal.Width
<dbl> <dbl> <dbl> <dbl>
1 7 3.2 4.7 1.4
2 6.4 3.2 4.5 1.5