重新编码/重命名数据框中的数据，而 grep 用于选择某些变量

Question

在我的数据框中，我仅选择变量 test3-test8

data[,grep('(test[3-8]+$)',names(data)),]

现在我想用 "2" 替换 "1" 。根据 df[ df == "1" ] = "2" 我尝试过：

data[,grep('(test[3-8]+$)',names(data)),][ data[,grep('(test[3-8]+$)',names(data)),] == "1" ] = "2"

那不起作用。

[<-.data.frame(*tmp*, , grep("(^dv_beh_[0-9]+r)", 名称中出现错误(data)), : 未使用的参数 ()

我的错误是什么？

Answer 1

消除多余的逗号（它们指定数据框的选项，但您没有列出任何选项），错误就会消失：

dtf <- data.frame(test1=runif(10))
dtf <- cbind(dtf,dtf)
dtf <- cbind(dtf,dtf)
dtf[3,3] <- 1
names(dtf) <- paste("test",seq(ncol(dtf)),sep="")
names.sel <- grep('(test[3-8]+$)',names(dtf))
dtf[,names.sel][ dtf[,names.sel] == 1 ] <- 2
stopifnot(dtf[3,3]==2)

为了证明这就是问题所在，我可以通过以下方式重现错误：

data[,names.sel,][ data[,names.sel] == 1 ,] <- 2
Error in `[<-.data.frame`(`*tmp*`, , grep("(test[3-8]+$)", names(data)),  : 
  unused argument(s) ()