获取最大y值的x值

Question

我想从数据集中提取变量（y）的加，最大和平均值以及x的最大值。我也希望将x值设置为最大y值，但我无法这样做。尝试了最大功能，但给了我一个错误。

以下是我正在使用的代码：

AUC<-lapply(split(data_example, data_example$class), function(d) sum(d$y))
max.y<-lapply(split(data_example, data_example$class), function(d) max(d$y))
max.x<-lapply(split(data_example, data_example$class), function(d) max(d$x))
auc.mean<-lapply(split(data_example, data_example$class), function(d) mean(d$y))
x.ymax<-lapply(split(data_example, data_example$class), function(d) 
max(data_example, data_example$x, select="y"))

data.final<-cbind(AUC,max.y,max.x, auc.mean, x.ymax)

我在这里上传了数据以重现示例：

http://www.filedropper.com/dataexample_1

非常感谢您的帮助。