使用dplyr将总计数字列wrt汇总到分类列

我试图总结以下数据集。。。。 这是

dput

结构（列表（情绪描述=c（“积极”、“消极”、“消极”）， “负”、“负”、“负”、“负”、“正”、“正”， “负”、“正”、“正”、“负”、“负”、“负”， “积极的”、“积极的”、“积极的”、“积极的”、“积极的”）， 关系=c（1L，1L，1L，0L，0L，1L，1L，1L，1L，1L， 1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，组合=c（0L， 1L、0L、0L、0L、0L、0L、1L、1L、1L、0L、1L、1L、1L、1L、1L、1L、1L、1L、1L、， 0L，0L，1L，0L），vfm=c（0L，0L，0L，0L，0L，0L， 0L，0L，0L，1L，0L，1L，0L，0L，0L，0L，0L，0L，0L，0L，ease=c（0L， 1L、0L、0L、0L、0L、1L、0L、0L、0L、1L、0L、0L、0L、1L、1L、0L、， 0L，1L，0L，0L），创新=c（1，0，0，0，0，1，0，1， 0,0,1,0,0,0,1,1,0,0,1），客户关注=c（0,0， 0,0,0,1,0,0,1,1,1,1,1,1,1,1,1,0,1,1,1，people=c（1， 1,1,0,0,0,1,1,1,1,1,0,1,1,1,1,1,1,1,0,1）），row.names=c（NA， -20L），类=c（“tbl_df”、“tbl”、“data.frame”）） 在最下面一排。我想显示从

关系

列到

人员

的每一列的总计，即

总和

。只是加上如果有一个。。。然后计算每个

col

中有多少

阴性

，

阳性

。例如：

relation col

total为

18

和

10

为

阳性

和

8

为

阴性

我怎样才能做到这一点？ 我知道有一个看门人，这就是我尝试过的：

装饰总计（df，其中=“col”，na.rm=TRUE， name=“总计”） 但这显示了奇怪的输出

---

谢谢

您可以按

情绪描述

分组，然后通过计算总和总结所有列：

库（dplyr）
总和%group_by（情绪描述）%>%SUMMARY_如果（是数值，~Sum（.））%>%
变异（情绪描述=粘贴（情绪描述，“总计”））
#一个tibble:2x8
情感描述关系组合vfm轻松创新客户关注的人
1负总数8514157
2正总数10412678

然后使用

bind_rows

在数据帧末尾添加两行：

库（dplyr）
DF%绑定行数（总和）
尾部（DF）
#一个tibble:6x8
情感描述关系组合vfm轻松创新客户关注的人
1正1 0 0 1 0 1
2正1 0 1 0 1 1
3正1100 01 0
4正1 0 0 1 1 1 1
5负总数8514157
6正总数104 12 67 8

---

这看起来像你想做的吗？

太棒了！谢谢@dc37。因为自己没有想到这一点而责怪自己