R语言编写一个函数，用于打印数据框中每个数值列的平均值及其名称

可以使用以下函数实现：

print_mean <- function(df) {
  num_cols <- sapply(df, is.numeric) # 判断每一列是否为数值型变量
  mean_vals <- sapply(df[, num_cols], mean) # 计算数值型变量的平均值
  names <- names(mean_vals) # 获取每个数值型变量的名称
  print(paste("Mean values for numeric columns:"))
  for (i in seq_along(mean_vals)) {
    print(paste(names[i], ": ", round(mean_vals[i], 2)))
  }
}

这个函数通过 `is.numeric` 函数判断数据框中的每一列是否为数值型变量，并使用 `sapply` 函数计算每个数值列的平均值。然后，通过 `names` 函数获取每个数值型变量的名称，并使用 `print` 函数打印出每个数值列的平均值和名称。