r - 如何删除 R 中嵌套数据框中的列？

Question

据我所知，drop 有不同的方法。 column的 data frame在 R喜欢

Drop data frame columns by name

How to drop columns by name in a data frame

Remove an entire column from a data.frame in R

现在我的问题:我有一个数据框说 df有 400 plus nested 形式的文件data frame .

        df
    [[1]]
                SignalIntensity SNR
        1   109 6.1823089314    0.8453576915
        2   110 10.1727771385   4.3837077591
        3   111 7.2922746927    1.0725751161
        4   112 8.8984671629    2.3192184908
        5   113 9.5910338232    3.7133402249
        6   114 7.9850187685    1.5008899345
        7   116 7.7893230124    1.3636655582
                       .
                       .
                       .
    [[2]]

            SignalIntensity SNR
    1   109 6.1823089314    0.8453576915
    2   110 10.1727771385   4.3837077591
    3   111 7.2922746927    1.0725751161
    4   112 8.8984671629    2.3192184908
    5   113 9.5910338232    3.7133402249
    6   114 7.9850187685    1.5008899345
    7   116 7.7893230124    1.3636655582
                  .
                  .
                  .
[[3]]

        ID  SignalIntensity SNR
    1   109 6.1823089314    0.8453576915
    2   110 10.1727771385   4.3837077591
    3   111 7.2922746927    1.0725751161
    4   112 8.8984671629    2.3192184908
    5   113 9.5910338232    3.7133402249
    6   114 7.9850187685    1.5008899345
    7   116 7.7893230124    1.3636655582
                   .
                   .
                   .
 and so on.....

我要删除 column 1来自所有 400 plus文件。 column 1 header 可能存在或不存在。

我知道使用 df[[1]][,-1] 来删除 column 1第一个文件。为了处理所有文件，我必须重复一遍 400大约是完成工作的时间。可能有 1或 2 R 中的代码行去做这个。如何？？帮助表示赞赏。

最终的数据框预计会像

df
     [[1]]
                    SignalIntensity SNR
            1       6.1823089314    0.8453576915
            2       10.1727771385   4.3837077591
            3       7.2922746927    1.0725751161
            4       8.8984671629    2.3192184908
            5       9.5910338232    3.7133402249
            6       7.9850187685    1.5008899345
            7       7.7893230124    1.3636655582
                           .
                           .
                           .
        [[2]]

                SignalIntensity SNR
        1       6.1823089314    0.8453576915
        2       10.1727771385   4.3837077591
        3       7.2922746927    1.0725751161
        4       8.8984671629    2.3192184908
        5       9.5910338232    3.7133402249
        6       7.9850187685    1.5008899345
        7       7.7893230124    1.3636655582
                      .
                      .
                      .
    [[3]]

                SignalIntensity SNR
        1       6.1823089314    0.8453576915
        2       10.1727771385   4.3837077591
        3       7.2922746927    1.0725751161
        4       8.8984671629    2.3192184908
        5       9.5910338232    3.7133402249
        6       7.9850187685    1.5008899345
        7       7.7893230124    1.3636655582
                       .
                       .
                       .
     and so on.....

Answer 1

一种选择是使用循环:

for(i in seq_along(df)) {
  df[[i]] <- df[[i]][-1]
}

或者没有循环，使用 lapply:

df2 <- lapply(df, subset, select=-1)