修复Hitter里Salary包中的缺失值R语言代码

以下是修复Hitter数据集中Salary列中缺失值的R语言代码示例：

# 读取数据集
hitter <- read.csv("Hitter.csv")

# 查看Salary列缺失值数量
sum(is.na(hitter$Salary))

# 使用中位数填充Salary列缺失值
hitter$Salary[is.na(hitter$Salary)] <- median(hitter$Salary, na.rm = TRUE)

# 再次查看Salary列缺失值数量
sum(is.na(hitter$Salary))

上述代码中，首先使用`read.csv`函数读取Hitter.csv数据集，然后使用`is.na`函数检查Salary列中缺失值的数量。接着，使用`median`函数计算Salary列的中位数，并使用`<-`符号将Salary列中缺失值替换为中位数。最后再次使用`is.na`函数检查Salary列中缺失值的数量，确保已经填充完成。