计算R中每列内的值

Question

我正在尝试编写一个脚本来计算以下名为results的数据框中的值。

Var1 | Var2|Var3 |Var4
----------------------
y    |n    |n    |n
n    |n    |n    |n
n    |y    |n    |n
n    |n    |n    |NA
NA   |n    |n    |n

我希望创建另一个看起来像这样的数据框：

     |Var1 |Var2 |Var3 |Var4
----------------------------
n    |3    |4    |5    |4
y    |1    |1    |0    |0
NA   |1    |0    |0    |1

我到目前为止最接近的是使用apply（）函数。

newresults <- apply(results,2,table)

但它会产生这样的结果：

Var1.Var|Var1|Var2.Var|Var2|Var3.Var|Var3|Var4.Var|Var4 
---------------------------------------------------------------
n       |3   |n       |4   |n       |5   |n       |4    
y       |1   |y       |1   |n       |5   |n       |4   

有没有办法包含所有变量，并计算每列中的变量？