如何在R数据帧中找到正值和负值的按组数目?