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

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

我想遍历这三个文件，并从名称相似的列中选择数据。换句话说，我要迭代3次，每次选择第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]中，我遵循了this的解决方案，但这会产生以下错误：

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

您知道如何解决吗？