0

我不想循环执行操作，我的数据看起来像这样

 dfU[4:7]
      vNeg neg pos vPos
 1      0  35  28    0
 2      0  42  26    0
 3      0  77  59    0
 4      0  14  24    0
 5      0  35  45    0
 6      0  17  12    0
 7      0  31  23    0
 8      0  64  52    1
 9      0  15  17    0
 10     0  21  29    0

当我执行这样的某些操作但得到错误的结果可能只是因为我尝试了with 和transform的转换但得到一个对因素没有意义的错误

  b<-as.numeric(((as.numeric(dfU[,4])*-5)+(as.numeric(dfU[,5])*-2)+(as.numeric(dfU[,6])*2)+(as.numeric(dfU[,7])*5)))
  b 
  [1] -14 -32 -16  18   8  -8 -18  -7   6  14  24  -9   0

当我将整数转换为数字时，错误可能只是因为这个

   typeof(dfU[,4])
   [1] "integer"
   as.numeric(dfU[,4])
   [1] 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1
   k<-transform(dfU, (vNeg*(-5))+(neg*(-2))+(pos*2)+(vPos*5))
   not meaningful for factors

我希望数据框中的第 8 列作为分数，并且我想避免循环，他们是否有更好的方法来对列执行操作，这方面的任何帮助，谢谢。

4

1 回答 1

1

最好的办法是避免有第四个。如果这不是您想要的，列作为因素。不过，一种解决方法是使用as.numeric(as.character( )). 假设“a”是您的第 4 列，您的情况是这样的：

> a <- as.factor(c(rep(0,7),1,rep(0,2)))
> a
 [1] 0 0 0 0 0 0 0 1 0 0
Levels: 0 1
> as.numeric(a)
 [1] 1 1 1 1 1 1 1 2 1 1

解决方法是：

> as.numeric(as.character(a))
 [1] 0 0 0 0 0 0 0 1 0 0
于 2013-10-22T08:39:20.400 回答