修改

Question

我正在尝试动态地为一些数据帧配置。我有三个二进制列，我想要第一列== 1时的子集，第二列== 1时的另一个等等...

这是我的代码：

arcep=data.table(arcep)
techno=c("2G","3G","4G")
for(value in techno){
  index=colnames(arcep)[grep(value,colnames(arcep))]
  print(index)
  set1=subset(arcep,arcep[,index]==1)
  print(dim(set1))
  assign(set1,paste0("ARCEP_",value))
}

错误：

Error in `[.data.table`(arcep, , index) : 
  j (the 2nd argument inside [...]) is a single symbol but column name 'index' is not found. Perhaps you intended DT[,..index] or DT[,index,with=FALSE]. This difference to data.frame is deliberate and explained in FAQ 1.1.

在索引之前添加“eval”不会改变任何内容。我不明白，我怎么能解决这个问题？

enter code here指数= grep的（值，colnames（ARCEP））（所以返回列的数量）不起作用，同样的问题：它查找名为“index”的列。我还尝试在子集函数中提供grep(value,colnames(arcep))作为直接参数，但它不起作用。

我也试过了get(index)

Error in get(index) : invalid first argument

修改

这里有一些打印的结果：

for(value in techno){
  print(class(grep(value,colnames(arcep))))

整数

print(grep(value,colnames(arcep)))

4

set1=arcep[,grep(value,colnames(arcep))]
print(dim(set1))

NULL

Answer 1

x<-data.frame(col1=c(1,2,3,1,5,17,1,9),col2=c(1,2,3,6,2,4,1,7),col3=c(1,2,3,5,1,2,5,6))

这将仅为第一列和第二列的子集

x[x[,1]==1&x[,2]==1,]

R将变量评估为循环

修改

1 个答案: