主页 / coding / 问题 / 79033209
Accepted
farrow90
Asked: 2024-09-28 08:11:06 +0800 CST

识别一组文件共有的所有列，然后垂直堆叠它们

  • 772

我在 R 中有这些数据框：

abc_1 <- data.frame(col1 = 1:5, col2 = 6:10, col3 = 11:15)
abc_2 <- data.frame(col1 = 21:25, col2 = 26:30, col4 = 31:35)
abc_3 <- data.frame(col1 = 41:45, col2 = 46:50, col5 = 51:55)
def_1 <- data.frame(col1 = 61:65, col2 = 66:70, col6 = 71:75)

对于所有以“abc_”开头的数据框，我想要识别与所有文件共享的列集，然后将它们绑定在一起。

我尝试用很长的方法来做到这一点：

all_objects <- ls()

abc_objects <- all_objects[grep("^abc", all_objects)]

common_cols <- Reduce(intersect, lapply(abc_objects, function(x) colnames(get(x))))

combined_df <- do.call(rbind, lapply(abc_objects, function(x) {
  df <- get(x)
  df[, common_cols, drop = FALSE]
}))

有没有更直接的方法来做到这一点？

2 个回答

  1. 这是另一种选择。我首先创建一个数据框列表，然后可以绑定该列表（do.call(rbind...不适用于不同的列名）。

    library(dplyr)

abc_objects <- do.call("list", mget(grep("^abc", names(.GlobalEnv), value = TRUE)))

bind_rows(abc_objects) |>
  select(where(~ !any(is.na(.))))
#>    col1 col2
#> 1     1    6
#> 2     2    7
#> 3     3    8
#> 4     4    9
#> 5     5   10
#> 6    21   26
#> 7    22   27
#> 8    23   28
#> 9    24   29
#> 10   25   30
#> 11   41   46
#> 12   42   47
#> 13   43   48
#> 14   44   49
#> 15   45   50
    • 2
  2. Best Answer

    按照你的方法，你可以做到

    abc_1 <- data.frame(col1 = 1:5, col2 = 6:10, col3 = 11:15)
abc_2 <- data.frame(col1 = 21:25, col2 = 26:30, col4 = 31:35)
abc_3 <- data.frame(col1 = 41:45, col2 = 46:50, col5 = 51:55)
def_1 <- data.frame(col1 = 61:65, col2 = 66:70, col6 = 71:75)

i = mget(ls(pattern="abc_")) # "^([a-z]){3}_" for all
do.call("rbind", lapply(i, "[", Reduce(intersect, lapply(i, names))))

    给予

            col1 col2
abc_1.1    1    6
abc_1.2    2    7
abc_1.3    3    8
abc_1.4    4    9
abc_1.5    5   10
abc_2.1   21   26
abc_2.2   22   27
abc_2.3   23   28
abc_2.4   24   29
abc_2.5   25   30
abc_3.1   41   46
abc_3.2   42   47
abc_3.3   43   48
abc_3.4   44   49
abc_3.5   45   50

    请注意，可以通过附加的 删除这些行名称|> `row.names<-`(NULL)。

    • 1

相关问题