将"字符"矩阵转换为"逻辑"

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.logical输出NAs为"字符数字"值,而as.numeric输出NAs为"字符逻辑"值.

我找到了一个解决方案,但我认为我遗漏了一些明显的立即转换:

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"