更改表中的行名称

Question

我想知道是否有办法更改表中的行名而不将其转换为数据框。

dat<-data.frame(level=rep(c("A", "B", "C", NA), each=10))
tblFun <- function(x){
  tbl <- table(x, useNA="ifany")
  res <- cbind(tbl,round(prop.table(tbl)*100,2))
  colnames(res) <- c('Count','Percentage')
  res
}
tblFun(dat[,1])

我想将表格输出中的第4行更改为“Missing”。提前谢谢！