在r中将字符串转换为数字矩阵

Question

我是 R 的初学者。我有一个名为 data_mat 的数据集。它只有二进制变量，即所有变量都有 0 或 1 作为值。它看起来像这样：

      Elderflower high low medium
 [1,]           0    1   0      0    
 [2,]           0    1   0      0    
 [3,]           0    1   0      0    
 [4,]           0    1   0      0

它是一个数字矩阵。在使用以下代码向其中添加另外 3 列（本质上也是二进制）时，它不再保持数字：

data_mat<-cbind(data_mat,datam[,c(5:6,9)])

执行上述代码后，数据现在如下所示：

      Elderflower high low medium Sugar Chewy Content
 [1,] "0"         "1"  "0" "0"    "1"   "1"   "1"    
 [2,] "0"         "1"  "0" "0"    "0"   "0"   "1"    
 [3,] "0"         "1"  "0" "0"    "1"   "1"   "1"    
 [4,] "0"         "1"  "0" "0"    "0"   "0"   "1"   

为了将此矩阵转换为数字，我运行了以下代码：

data11<-matrix(as.numeric(unlist(data_mat,use.names = 
TRUE)),nrow=nrow(data_mat))

这样，我的数据仍然是一个数字矩阵，但列名消失了。现在看起来像这样：

      [,59] [,60]
 [1,]     1     1
 [2,]     0     1
 [3,]     1     1
 [4,]     0     1

请建议我如何解决这个问题？动机是在将新列添加到现有数字矩阵后获得列名完整的数字矩阵。

Answer 1

使用定义的colClasses读取您的数据

data_mat <- read.table(path.to.data, header = TRUE, colClasses = "numeric")

这可确保您的数据是 numeric，并且您可以使用 cbind 按您的方式添加更多列。当然datam 也需要是数字的。作为副作用，定义colClasses 也会加快阅读过程。