r - 运行for循环后如何保留标题名称

Question

以下脚本生成 mtcars 数据集每一列的中值，但没有标题名称。在数据帧上运行 for 循环后如何保留 header 名称？

output_mtcars <- vector("double", ncol(mtcars))
for(i in seq_along(mtcars)) {
  output_mtcars[[i]] <- mean(mtcars[[i]])
}

Answer 1

基础 R sapply 和 purrr::map_dbl 都将在此处保留名称:

sapply(mtcars, mean)
purrr::map_dbl(mtcars, mean)