R将引用的数字转换为数字答案

【问题标题】：R Convert quoted numbers to numericR将引用的数字转换为数字
【发布时间】：2014-09-03 22:22:06
【问题描述】：

您好，我有一个字符表，我正在尝试将其转换为数字：

vec1 <- c("B","D","E","NA")
vec2 <- c("B","D","E","NA")
vec3 <- c("B","C","E","NA")
vec4 <- c("B","D","E","NA")
vec5 <- c("B","NA","E","E")
vec6 <- c("B","NA","NA","NA")
mat1 <- (cbind(vec1,vec2,vec3,vec4,vec5,vec6))

mat1
#     vec1 vec2 vec3 vec4 vec5 vec6
#[1,] "B"  "B"  "B"  "B"  "B"  "B" 
#[2,] "D"  "D"  "C"  "D"  "NA" "NA"
#[3,] "E"  "E"  "E"  "E"  "E"  "NA"
#[4,] "NA" "NA" "NA" "NA" "E"  "NA"

mat1[mat1 == "NA"] <- 0
mat1[mat1 != 0] <- 1

mat1
#     vec1 vec2 vec3 vec4 vec5 vec6
#[1,] "1"  "1"  "1"  "1"  "1"  "1" 
#[2,] "1"  "1"  "1"  "1"  "0"  "0" 
#[3,] "1"  "1"  "1"  "1"  "1"  "0" 
#[4,] "0"  "0"  "0"  "0"  "1"  "0" 

mat2
#     vec1 vec2 vec3 vec4 vec5 vec6
#[1,]    2    2    2    2    2    2
#[2,]    2    2    2    2    1    1
#[3,]    2    2    2    2    2    1
#[4,]    1    1    1    1    2    1

mat2 <- sapply(as.data.frame(mat1), as.numeric)

这是可以使用的，即我可以从所有值中减去 1 以获得原始引用值，但是我如何简单地将引用值更改为数值？

谢谢，

马特

【问题讨论】：

mat1[] <- as.numeric(mat1)
@BondedDust，这行不通。
可以指定stringsAsFactors = F，即mat2 <- sapply(as.data.frame(mat1, stringsAsFactors = F), as.numeric)
嗯，让我很惊讶。这有效：class(mat1) <- "numeric"
不错@BondedDust。我也在想mat2 <- as.numeric(mat1); dim(mat2) <- dim(mat1)，但你的更好

标签： r type-conversion

【解决方案1】：

尽管@Vlo 不悦（并且赋值箭头的方向不正确），向量类从字符到数字的变化是相当安全的。他的代码不必要地复杂，因为矩阵属于character 类而不是factor，因此无需转换为data.frame 然后需要使用as.character。 R 矩阵不能是因子，因为矩阵不应该具有除dim 向量和dimname-lists（以及带有自己的类的“核心”原子向量）之外的任何属性。有一个class<-函数：

 class(mat1) <- "numeric"   # See the help page:  ?`class<-`

它也适用于字符到逻辑：

> m <- matrix( c('TRUE','FALSE'), 4,4)
> class(m) <- 'logical'     # assignment of `as.logical` to `m[]` fails.
> m
      [,1]  [,2]  [,3]  [,4]
[1,]  TRUE  TRUE  TRUE  TRUE
[2,] FALSE FALSE FALSE FALSE
[3,]  TRUE  TRUE  TRUE  TRUE
[4,] FALSE FALSE FALSE FALSE

如果你想使用 apply 函数，这会成功：

> mat2 <- apply(mat1,2, function(x) as.numeric(x) )
> mat2
     vec1 vec2 vec3 vec4 vec5 vec6
[1,]    1    1    1    1    1    1
[2,]    1    1    1    1    0    0
[3,]    1    1    1    1    1    0
[4,]    0    0    0    0    1    0

【讨论】：