我建议下一种方法。您可以计算变量,然后合并。您可以使用完成所有这些操作dplyr
。您还需要使用pivot_longer()
和格式化数据pivot_wider()
。这些功能属于tidyr
。调用时会加载以前的软件包tidyverse
。您可以创建摘要变量,然后加入创建公共id变量。这里的代码:
library(tidyverse)
#Code
ds %>% mutate(id=1:n()) %>%
left_join(ds %>% mutate(id=1:n()) %>% pivot_longer(cols = -id) %>%
group_by(id,value) %>% summarise(N=n()) %>%
pivot_wider(names_from = value,values_from=N)) %>%
select(-id) %>% replace(is.na(.), 0)
输出:
X1 X2 X3 X4 TP FP TN FN
1 TP TP TN FP 2 1 1 0
2 TP TP TN TN 2 0 2 0
3 FN FN FP FP 0 2 0 2
4 FN FN FP FP 0 2 0 2
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句