Question

我有一个数据集，由成对的data.frames（几乎是精确对，但不足以直接合并）组成，我需要将它们组合在一起。幸运的是，每个df都有一个标识符，用于创建日期，可用于引用该对。 E.g。

df_0101 <- data.frame(a = rnorm(1:10),
                      b = runif(1:10))

df_0102 <- data.frame(a = rnorm(5:20),
                      b = runif(5:20))

df2_0101 <- data.frame(a2 = rnorm(1:10),
                      b2 = runif(1:10))

df2_0102 <- data.frame(a2 = rnorm(5:20),
                      b2 = runif(5:20))

因此，我需要做的第一件事是在每个data.frame上改变一个新列，包括这个日期（01_01 / 01_02 /等），即

df_0101 <- df_0101 %>%
    mutate(df_name = "df_0101")

但显然是以程序化的方式。

我可以使用

调用全局环境中的每个data.frame

l_df <- Filter(function(x) is(x, "data.frame"), mget(ls()))

head(l_df)
$df_0101
            a          b
1   0.7588803 0.17837296
2  -0.2592187 0.45445752
3   1.2221744 0.01553190
4   1.1534353 0.72097071
5   0.7279514 0.96770448

$df_0102
             a          b
1  -0.33415584 0.53597308
2   0.31730849 0.32995013
3  -0.18936533 0.41024220
4   0.49441962 0.22123885
5  -0.28985964 0.62388478

$df2_0101
           a2        b2
1  -0.5600229 0.6283224
2   0.5944657 0.7384586
3   1.1284180 0.4656239
4  -0.4737340 0.1555984
5  -0.3838161 0.3373913

$df2_0102
            a2         b2
1  -0.67987149 0.65352466
2   1.46878953 0.47135011
3   0.10902751 0.04460594
4  -1.82677732 0.38636357
5   1.06021443 0.92935144

但不知道如何将每个df的名称拉到每个df的新列中。有什么想法吗？

感谢阅读，

Answer 1

我们可以在Map

中使用base R

Map(cbind, names = names(l_df), l_df)

如果我们按tidyverse的方式前进，那么

library(tidyverse)
map2(names(l_df), l_df, ~(cbind(names = .x, .y)))

此外，可以使用bind_rows

创建单个数据集

bind_rows(l_df, .id = "names")

从global.env调用data.frame并添加具有data.frame名称的列

1 个答案: