Я пытаюсь создать другую функцию, которая принимает все имена столбцов.Эта функция будет определять, является ли каждая переменная (столбец данных) числовой.Для каждой числовой переменной функция выведет среднее значение с именами ваших столбцов.Это заголовок фрейма данных (TitanicDF), который я пытаюсь выполнить здесь.
Survived Pclass Sex Age Fare Cabin Embarked FamilyNum
1 1 female 38 71.28 C85 C 1
1 1 female 35 53.10 C123 S 1
0 1 male 54 51.86 E46 S 0
1 3 female 4 16.70 G6 S 2
1 1 female 58 26.55 C103 S 0
1 2 male 34 13.00 D56 S 0
Я создал цикл for, который просматривает все имена столбцов и использует утверждение if, чтобы определить, является ли столбецявляется числовым
name <- colnames(TitanicDF)
func2 <- function(col_names, df){
for (val in col_names) {
if (class(val) == "numeric"){
avg <- mean(df$val)
print(avg)
}
}
}
func2(name, TitanicDF)
, когда я вызывал функцию, очевидно, можно рассчитать и напечатать среднее для возраста столбца, тарифа и FamilyNum.Но когда я вызвал эту функцию, здесь ничего не возвращается.Я действительно запутался здесь.