R - 在另一个数据帧中保存数据帧列

Question

我有一个尺寸为1 x 105的数据框A.

我有另一个尺寸为91 x 105的数据框B.我想循环通过A，对于每个元素小于0.05的情况，从B中取相应的列并将其粘贴在新的数据框C中。

应该很简单，我写了这段代码：

for (i in 1:105) { 
  if (A[i] <= 0.05) {
    C[,i]=B[,i]
  }
}

但是我收到以下错误消息：

Error in `[<-.data.frame`(`*tmp*`, , 1, value = c(28, 47, 25, 77, 33,  : 
  replacement has 91 rows, data has 1