用R中位数替换数字列的缺失值，用Mode替换字符列的缺失值

Question

我使用下面的代码用均值替换数字列的缺失值，并用中位数替换因子列，但是出现以下错误

Mode（na.omit（x））中的错误：找不到函数“ Mode”

House_sales[] <- lapply(House_sales[-1], function(x) {
if(is.factor(x)) replace(x, is.na(x), Mode(na.omit(x)))
else if(is.numeric(x)) replace(x, is.na(x), mean(x, na.rm=TRUE))
else x
})