r - 在处理混淆矩阵时添加新列的 R 问题

Question

我正在研究 R 中的混淆矩阵。

我有以下数据

row.names    A    B    C    Actual
d1           1    1    1    1
d2           0    0    1    0
d3           1    1    0    0
d4           0    0    0    0
d5           0    1    1    1
d6           1    0    1    1

我需要创建一个新列Classifier，如果rowsums(data[,1:3])大于或等于 2，则其值为 1，如果 rowsum 小于 2，则为 0。

谁能给我一个提示如何做到这一点。

Answer 1

你可以试试

data$Classifier <- (rowSums(data[,1:3]) >=2)+0L
data
#   A B C Actual Classifier
#d1 1 1 1      1          1
#d2 0 0 1      0          0
#d3 1 1 0      0          1
#d4 0 0 0      0          0
#d5 0 1 1      1          1
#d6 1 0 1      1          1

数据

data <- structure(list(A = c(1L, 0L, 1L, 0L, 0L, 1L), B = c(1L, 0L, 
1L, 
0L, 1L, 0L), C = c(1L, 1L, 0L, 0L, 1L, 1L), Actual = c(1L, 0L, 
0L, 0L, 1L, 1L)), .Names = c("A", "B", "C", "Actual"), 
row.names = c("d1", "d2", "d3", "d4", "d5", "d6"),
class = "data.frame")