2005年大联盟投手统计数据分析：美国联盟与国家联盟差异比较

本文使用fastR2软件包中的Pitching2005数据集，分析2005年大联盟中美国联盟和国家联盟投手的赛季统计数据差异。为了更准确地进行比较，我们仅分析了至少参加了5场比赛（变量GS代表‘game started’）的投手。

首先，我们可以绘制两个联盟中投手的平均防御率（ERA）的箱线图，以了解两个联盟之间是否存在差异。代码如下：

library(fastR2)
library(ggplot2)

data(Pitching2005)

# 过滤掉出赛少于5场的投手
Pitching2005_filtered <- Pitching2005[Pitching2005$GS >= 5, ]

# 创建一个新的联盟变量
Pitching2005_filtered$League <- ifelse(Pitching2005_filtered$Lg == 'AL', 'American League', 'National League')

# 创建一个按联盟分类的ERA箱线图
ggplot(Pitching2005_filtered, aes(x = League, y = ERA)) + 
  geom_boxplot() + 
  labs(title = 'Boxplot of ERA by League', x = 'League', y = 'ERA')

结果显示，两个联盟之间的平均防御率存在差异，其中美国联盟的平均防御率略高于国家联盟。

接下来，我们可以计算每个联盟中投手的平均击出率（H/9）和三振率（K/9），以了解是否存在差异。代码如下：

# 计算每个联盟的平均H/9和K/9
aggregate(cbind(H.9, K.9) ~ League, Pitching2005_filtered, mean)

# 输出:
#            League      H.9      K.9
# 1 American League 9.487767 6.708691
# 2 National League 9.161155 7.052543

结果显示，两个联盟之间的平均击出率和三振率都存在差异，其中美国联盟的平均击出率略高，而国家联盟的平均三振率略高。

综上，我们可以得出结论，两个联盟之间在投手表现方面存在一定差异，其中美国联盟的投手在防御率方面表现稍逊，而在击出率方面表现稍好。国家联盟的投手则在三振率方面表现稍好。