R 数据帧中所有列的强制转换

是否有方法强制转换数据帧中的所有列

范例

df
ColA   ColB
0       1
0       1
1       1
1       0

我们可以在这里填充零的数量吗

预期产量

df
New_col    0    1 
ColA       2    2
ColB       1    3

你可以试试stack+table

或

这是否有效：

library(dplyr)
library(tidyr)
df %>% pivot_longer(cols = everything(), names_to = 'New_Col') %>% 
count(New_Col,value) %>% 
pivot_wider(id_cols = New_Col, names_from = value, values_from = n)
# A tibble: 2 x 3
  New_Col   `0`   `1`
  <chr>   <int> <int>
1 ColA        2     2
2 ColB        1     3

使用data.table：

df NewCol 0 1 >1:可乐2 >2:colb13

---

或者是桌子。@sindri_baldur谢谢！好的选择！

> as.data.frame.matrix(t(table(stack(df))))
     0 1
ColA 2 2
ColB 1 3

library(dplyr)
library(tidyr)
df %>% pivot_longer(cols = everything(), names_to = 'New_Col') %>% 
count(New_Col,value) %>% 
pivot_wider(id_cols = New_Col, names_from = value, values_from = n)
# A tibble: 2 x 3
  New_Col   `0`   `1`
  <chr>   <int> <int>
1 ColA        2     2
2 ColB        1     3