为什么group_by（）不使用apply（）函数

Question

我有一个矩阵，想要按组计算矩阵每列的序列产品。首先，每组对应不同的数字。其次，矩阵的每列也应单独计算。

例如，对于用户 1 和 y 列，该数字应为private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) { DecimalFormat z = new DecimalFormat("0.00"); try { double x = Double.parseDouble(fnum.getText()); double y = Double.parseDouble(secondnum.getText()); double f = x + y; String number = z.format(f); answer.setText("" + number); } catch(NumberFormatException e) { JOptionPane.showMessageDialog(null, "please input a valid number"); } } ;对于用户 2 和 y 列，该数字应为1*1

我将2*3*1与apply一起使用，但输出不正确。

group_by

以下输出不是由用户

#data
user<-c(1,1,2,2,2)
y<-c(1,1,2,3,1)
z<-c(2,2,3,3,3)
dt<-data.frame(user,y,z)
  user y z
1    1 1 2
2    1 1 2
3    2 2 3
4    2 3 3
5    2 1 3

所需的输出（您也可以删除NA。无论是否添加新列都无关紧要）

 dt%>%group_by(user)%>% (function(x){apply(x[,2:3],2,prod)})
      y   z 
      6 108