r - 将 "character"矩阵转换为 "logical"

Question

我有一个矩阵(具有 class character 的值，如下所示:

mat <- matrix(c("0", "TRUE", "1", "2",
                "FALSE", "TRUE", "TRUE", "2"), nrow = 4, ncol = 2)
#> mat
#     [,1]   [,2]   
#[1,] "0"    "FALSE"
#[2,] "TRUE" "TRUE" 
#[3,] "1"    "TRUE" 
#[4,] "2"    "2"  

我需要将其转换为这样的矩阵:

      [,1]  [,2]
[1,] FALSE FALSE
[2,]  TRUE  TRUE
[3,]  TRUE  TRUE
[4,]  TRUE  TRUE

as.logic 将 NA 输出为“字符数字”值，而 as.numeric 输出 NA >s 为“字符逻辑”值。

我找到了一个解决方案，但我认为我缺少一些关于立即转换的明显信息:

new_mat2 <- array(as.numeric(mat), dim(mat))
new_mat <- array(as.logical(mat), dim(mat))

new_mat[is.na(new_mat)] <- new_mat2[is.na(new_mat)]
mat2 <- array(as.logical(new_mat), dim(new_mat))

#> mat2
#      [,1]  [,2]
#[1,] FALSE FALSE
#[2,]  TRUE  TRUE
#[3,]  TRUE  TRUE
#[4,]  TRUE  TRUE

有什么建议吗？

Answer 1

试试这个:

> mat[,] <- ifelse(mat %in% c("0", "FALSE"), FALSE, TRUE) # pay attention to @Señor O comment to shorten this step.
> mat
     [,1]    [,2]   
[1,] "FALSE" "FALSE"
[2,] "TRUE"  "TRUE" 
[3,] "TRUE"  "TRUE" 
[4,] "TRUE"  "TRUE" 

如果您希望 mat 成为由逻辑值组成的 data.frame，则:

> mat <- sapply(as.data.frame(mat), as.logical)
> mat
        V1    V2
[1,] FALSE FALSE
[2,]  TRUE  TRUE
[3,]  TRUE  TRUE
[4,]  TRUE  TRUE
> sapply(mat, class)  # checking class
[1] "logical" "logical" "logical" "logical" "logical" "logical" "logical" "logical"