如何为Zillow数据集中三个高均价邮编的房价绘制箱线图？

首先先修正你之前代码里的一处笔误：tapply函数里的train$zip应该是train$zipcode，和你前面转换因子的列名保持一致，修正后的代码如下：

train$zipcode <- as.factor(train$zipcode)
l <- tapply(train$price, train$zipcode, mean)
sort(l, decreasing = TRUE)

接下来给你两种绘制指定邮编箱线图的方法：

方法1：基础R绘图 #

先筛选出目标邮编的数据，再用基础R的boxplot函数绘制：

# 定义均价最高的三个邮编
top_zips <- c("98039", "98004", "98040")
# 筛选数据
train_top <- train[train$zipcode %in% top_zips, ]
# 绘制箱线图
boxplot(price ~ zipcode, 
        data = train_top,
        main = "Top 3邮编房价箱线图",
        xlab = "邮编",
        ylab = "房价",
        col = "lightblue" # 可选：添加箱线图颜色
)

方法2：ggplot2绘图（更美观的可视化） #

如果你习惯用ggplot2包，先确保已经安装并加载包，再执行以下代码：

# 若未安装ggplot2，先执行安装：install.packages("ggplot2")
library(ggplot2)

ggplot(train_top, aes(x = zipcode, y = price)) +
  geom_boxplot(fill = "lightblue", alpha = 0.7) +
  labs(title = "Top 3邮编房价箱线图",
       x = "邮编",
       y = "房价") +
  theme_minimal() # 可选：使用简洁主题

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