rownames函数不允许有重复值

Question

library(limma)
library(ggpubr)
tideFile="TIDE.txt"
riskFile="risk.all.txt"
setwd("x")
tide=read.table(tideFile, header=T, sep="\t", check.names=F, row.names=1)
group=sapply(strsplit(row.names(tide),"\-"), "[", 4)
group=sapply(strsplit(group,""), "[", 1)
group=gsub("2", "1", group)
tide=tide[group==0,,drop=F]
row.names(tide)=gsub("(.?)\-(.?)\-(.?)\-(.?)\-.*", "\1\-\2\-\3",row.names(tide) )
tide=avereps(tide)
（Error in .rowNamesDF<-(x, value = value) : 不允许有重复的'row.names'）
怎么处理呀