R聚合函数意外NA

Question

当我在包含字符和数字列的data.frame上使用聚合函数时，聚合失败并仅返回所有NA。我该如何解决？我的第一个想法是检查值的类，但没有用。

name <- rep(LETTERS[1:5],each=2)
feat <- paste0("Feat",name)
valuesA <- runif(10)*10
valuesB <- runif(10)*10

daf <- data.frame(ID=name,feature=feat,valueA=valuesA,valueB=valuesB, stringsAsFactors = FALSE)


 aggregate(.~ID, data=daf,FUN=mean)

 aggregate(.~ID, data=daf,FUN=function(x){
   if(is.character(x)){
     return(NA)
   }else{ return(mean(x))}
 })