r - 如何使用 $ 创建参数以从数据框中进行选择

Question

我有三个不同的数据框，它们的列中相似，例如：

df1                  df2                  df3
Class  1  2  3       Class  1  2  3       Class  1  2  3
A      5  3  2       A      7  3  10      A      5  4  1
B      9  1  4       B      2  6  2       A      2  6  2
C      7  9  8       C      4  7  1       A      12 3  8

我想遍历这三个文件并从具有相似名称的列中选择数据。换句话说，我想迭代三次，每次选择第 1 列、第 2 列、第 3 列的数据，然后将它们合并到一个数据框中。

为此，我执行了以下操作：

  df1 <- read.csv(R1)
  df2 <- read.csv(R2)
  df3 <- read.csv(R3)
  df <- data.frame(Class=character(), B1_1=integer(), B1_2=integer(), B1_3=integer(), stringsAsFactors=FALSE) 
  for(i in 1:3){
    nam <- paste("X", i, sep = "") #here I want to call the column name such as X1, X2, and X3
    df[seq_along(df1[nam]), ]$B1_1 <- df1[nam] 
    df[seq_along(df2[nam]), ]$B1_2 <- df2[nam]
    df[seq_along(df3[nam]), ]$B1_3 <- df3[nam]
    df$Class <- df1$Class
  }

在这一行df[seq_along(df1[nam]), ]$B1_1 <- df1[nam]中，我遵循了这个解决方案，但这会产生以下错误：

Error in `$<-.data.frame`(`*tmp*`, "B1_1", value = list(X1 = c(5L, 7L,  : 
  replacement has 10 rows, data has 1 

你知道如何解决它吗？

标签： r