Используйте «некоторую» переменную в наборе данных CSV-файла в функции, чтобы вернуть любую переменную в наборе данных

Я пытаюсь создать функцию, в которой я могу вернуть лучших игроков x для определенной переменной в моем наборе данных. Например, данные состоят из игроков MLB со всеми видами статистики. В моей функции я хочу иметь возможность выбирать любую переменную, например CHits (карьерные успехи), и печатать лучшие 3, 5 или 10. С помощью этой функции такой же я хочу печатать лучших игроков CRBI (карьерные RBI).

Вот мой текущий код.

My_Top_CHits <- function(x) 
  {y <- Hitters[order(-Hitters$CHits),]
  top <- y[1:x,]cat("The Top", x, "MLB Players in 1986 based on Career Hits:")
  return(top)}

My_Top_CHits(3)

My_Top_CHits(4)

r function sorting variables concatenation

05.03.2019 19:57

Стоит ли изучать PHP в 2026-2027 годах?

Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 2

Работает ли что-то вроде этого:

> My_Top_CHits <- function(df, variable, n) {
+   df %>%
+     arrange(desc(!!as.symbol(variable))) %>%
+     slice(1:n)
+ }
> 
> dat <- data.frame(A = c(1,2,3),
+                   B = c(10,11,12))
> My_Top_CHits(dat, "A", 2)
  A  B
1 3 12
2 2 11

05.03.2019 20:08

Ответ принят как подходящий

Просто добавьте входной параметр для имени статистики столбца и используйте head для первых N строк:

My_Top_Stats <- function(x, col_stat) {

  y <- Hitters[order(-Hitters[[col_stat]]),]    
  top <- head(y, x)

  cat("The Top", x, "MLB Players in 1986 based on ", col_stat, " is:")
  return(top)
}

My_Top_Stats(3, "CHits")

My_Top_Stats(4, "CRBIs")

05.03.2019 20:41

Другие вопросы по теме

Учет только 4 битов за раз при преобразовании десятичного числа в шестнадцатеричное

Почему моя функция isPrime возвращает True для 187?

Функция библиотеки Unity всегда возвращает 0

Angular Firestore: проверьте, существуют ли данные, и обновите глобальную переменную на основе этого

Передача имени столбца в функцию

Условия и функции применения JavaScript

Неопределенная функция или переменная "new_m"

Woocommerce, мне нужно получить URL-адрес, чтобы я мог получить идентификатор продукта оттуда

Логическая сумма условия php делителей

Что означает Function.prototype.__proto__?

Используйте «некоторую» переменную в наборе данных CSV-файла в функции, чтобы вернуть любую переменную в наборе данных

Ответы 2

Другие вопросы по теме

Похожие вопросы