Choosing among Different MLB Players

# Player data
player_names <- c("Yandy Diaz", "Joey Meneses", "Jose Abreu", "Ryan Noda", "Nate Lowe")
obp <- c(0.403, 0.320, 0.292, 0.384, 0.365)
slg <- c(0.511, 0.366, 0.358, 0.400, 0.426)
salary <- c(8000000, 723600, 19500000, 720000, 4050000)  

# Created a data frame for easier manipulation using Player's OBP, SLG, and Salary
players_df <- data.frame(Player = player_names, OBP = obp, SLG = slg, Salary = salary)

find_best_combo <- function(data, budget = 10500000) {
  n <- nrow(data)
  best_score <- -Inf
  best_pair <- NULL
  for (i in 1:(n - 1)) {
    for (j in (i + 1):n) {
      total_salary <- data$Salary[i] + data$Salary[j]
      
      if (total_salary <= budget) {
        total_obp <- data$OBP[i] + data$OBP[j]
        total_slg <- data$SLG[i] + data$SLG[j]
        performance <- total_obp + total_slg
        
        if (performance > best_score) {
          best_score <- performance
          best_pair <- list(
            Player1 = data$Player[i],
            Player2 = data$Player[j],
            Total_OBP = total_obp,
            Total_SLG = total_slg,
            Total_Salary = total_salary,
            Total_Performance = performance
          )
        }
      }
    }
  }
            
  return(best_pair)
}

find_best_combo(players_df)

$Player1
[1] "Yandy Diaz"

$Player2
[1] "Ryan Noda"

$Total_OBP
[1] 0.787

$Total_SLG
[1] 0.911

$Total_Salary
[1] 8720000

$Total_Performance
[1] 1.698

Based on the team budget and player’s key statistics, the best combo players are Yandy Diaz and Ryan Noda.