我正在编写自己的函数来计算数据集中列的平均值，然后使用它来应用它，apply()但它只返回第一列的平均值。下面是我的代码：
mymean <- function(cleaned_us){
column_total = sum(cleaned_us)
column_length = length(cleaned_us)
return (column_total/column_length)
}
Average_2 <- apply(numeric_clean_usnews,2,mymean,na.rm=T)