GEO数据挖掘学习困顿

GEO数据挖掘-从数据下载到富集分析-各种绘图（学习笔记）
我参照做GSE78929
发现

tmp = by(exprSet,

•      ids$symbol,
  

•    function(x) rownames(x)[which.max(rowMeans(x))])
  

  Error in tapply(seq_len(0L), list(ids$symbol = c("MTND1P23", "SEPTIN7P13", :
  参数的长度必需相同。_**
  过不去啊！！：（

length(exprSet) ## [1] 32
length( ids$symbol) ## [1] 19869
length(rownames(x) #3 [1] 19869
如何解决，请求帮忙
谢谢