R代码报错object 'yearID' not found及箱线图警告问题求解

问题1：折线图报错找不到yearID的原因与修复 #

报错由代码执行顺序和汇总逻辑错误共同导致：

• 你绘制投手数据折线图时，尚未对pitching_data做分组汇总，数据集内不存在median字段，后续汇总操作又直接覆盖了原始pitching_data，且分组字段错选了ERA而非yearID，汇总结果仅保留ERA和median两列，自然不存在yearID字段。
  修正代码如下：

# 按年份分组计算每年ERA中位数，不要覆盖原始数据集
pitching_summary <- pitching_data %>%
  group_by(yearID) %>%
  summarise(median_era = median(ERA, na.rm = TRUE))
# 转换yearID为数值类型适配折线图x轴
pitching_summary$yearID <- as.numeric(as.character(pitching_summary$yearID))
# 绘制折线图
ggplot(pitching_summary) +
  geom_line(aes(x = yearID, y = median_era))

问题2：ERA中位数计算代码校验 #

你当前的写法完全不合规：

• 分组逻辑错误：你需要的是按年份统计ERA中位数，但代码中按ERA本身分组，统计结果无实际意义
• 操作风险：直接将汇总结果赋值给原始数据集变量pitching_data，会丢失所有原始数据字段
  正确写法参考问题1中的pitching_summary汇总逻辑。

问题3：箱线图非有限值警告修复 #

警告触发原因是数据集内存在NA、无穷值等非有限取值，绘图函数默认剔除了这部分记录。两种修复方案：

• 方案1：绘图时显式传入na.rm = TRUE参数，关闭警告

ggplot(pitching_data)+ 
  geom_boxplot(aes(x=yearID, y=ERA), na.rm = TRUE)

• 方案2：提前清理数据中的无效ERA记录

pitching_data_clean <- pitching_data %>% filter(is.finite(ERA))

内容的提问来源于stack exchange，提问作者cbear23