错误未列出lapply的结果

Question

我经历了一个像lapply：

paper_author_name<-lapply(train_author,function(x){  
as.data.frame(paper_author$author_name[which(paper_author$author_id%in%x)])
})

我的结果为：

 [[1]]
paper_author$author_name[which(paper_author$author_id %in% x)]
                                             Emanuele Buratti
                                             Emanuele Buratti
                                             Abdiub bahir

现在我需要通过

取消这个结果

unlist(paper_author_name[1])

但我收到错误

Error in structure(res, levels = lv, names = nm, class = "factor") : 
'names' attribute [135] must be the same length as the vector [1]

我现在怎样才能取消结果。

由于