Final Exam Question 7

Consider the following dataset representing the performance of baseball players in a season. It includes the following variables: PlayerID, Hits, At-Bats, Home Runs (HR), Walks (BB), and Strikeouts (SO).

PlayerID Hits At-Bats HR BB SO

1             112       400           25          50     60

2             124       450           22          60     65

3             121       380           8            19     67

4             106       500           20         150     92

5             140       402           11          55     70

Compute the on-base percentage (OBP) for each player and select the player with the highest OBP.

1. Player 1 b) Player 2 c) Player 3 d) Player 4 e) Player 5

To calculate OBP, you can use the following formula:

OBP = (Hits + Walks) / (At-Bats + Walks)

# Create vectors for each statistic
PlayerID <- c(1, 2, 3, 4, 5)
Hits <- c(112, 124, 121, 106, 140)
At_Bats <- c(400, 450, 380, 500, 402)
Walks <- c(50, 60, 19, 150, 55)

# Calculate OBP
OBP <- (Hits + Walks) / (At_Bats + Walks)

# Combine into a data frame
player_data <- data.frame(PlayerID, Hits, At_Bats, Walks, OBP)

# Print OBP values
print(player_data)

# Find the player with the highest OBP
max_obp_player <- player_data[which.max(OBP), ]
print(max_obp_player)