合并dataframe和cbind列表

Question

我从数据集中提取变量y的相加值、最大值和平均值以及x的最大值。

我还得到了最大x值的y值。

我使用cbind函数汇集了这些值。我想用数据格式来merge这个列表，但是

error:Error in sort.list(bx[m$xi]) : 'x' must be atomic for 'sort.list'
Have you called 'sort' on a list?

此外，我尝试了unlist函数，但没有给我满意的数据。

下面是我使用的代码：

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) 
d$x[which.max(d$y)])

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

datafinal<-merge(data1, data_merge, by="class")

在这里，我上传了用于复制示例的数据：

1 http://www.filedropper.com/datamerge

Answer 1

cbind没有工作的原因是因为对象是list的。

1)将lapply替换为sapply以获得vector输出

AUC <- sapply(split(data_example$y, data_example$class), sum)

类似于其他情况，然后是cbind，就像OP中的那样。

2)作为对象是lists，我们对其进行unlist，然后使用cbind

data1 <- data.frame(AUC = unlist(AUC),max.y = unlist(max.y), 
   max.x = unlist(max.x), auc.mean = unlist(auc.mean), 
   x.ymax = unlist(x.ymax), class = names(AUC))