需要帮助获取数据框中列的均值

Question

因此，我一直在尝试使用名为life_expectancy的数据框来解决此问题。

  编写一个函数get_col_mean()，该函数接受列名和数据框      并返回该列的均值。确保正确处理NA值

get_col_mean <- function(col_name, data_set) {
  return(mean(data_set[,col_name], na.rm = TRUE))
}

  创建一个列表col_means，其列表中包含各列的平均值      数据帧（Country列除外）。您应该使用上面的函数。

years <- life_exp[0,-1]
col_means <- lapply(years, get_col_mean, data_set = life_exp)
print(col_means)

我希望它可以输出长度为“年”的列表，并且每年输出该列的平均值。但是我得到了一个列表，其中包含每年下的数值NA而不是平均值。错误：

  argument is not numeric or logical: returning NA