R 使用ggplot2绘制变量的平均值

我想在条形图中绘制两列：“房产类型”和“价格”。 使用下面的代码，我将绘制每种房产类型的“总价”，而不是“中间价”。 你能帮我修一下密码吗

theme_set(theme_bw())

# Draw plot
ggplot(data, aes(x=Property_type, y=Price)) + 
  geom_bar(stat="identity", width=.5, fill="tomato3") + 
  labs(title="Ordered Bar Chart", 
       subtitle="Average Price by each Property Type", 
       caption="Image: 5") + 
  theme(axis.text.x = element_text(angle=65, vjust=0.6))

---

使用

dplyr

，您可以计算每个房产的中间价，然后将此新变量作为y值传递到

ggplot2

：

库（dplyr）
图书馆（GG2）
数据%>%
分组依据（属性）%>%
总结（MedPrice=中值（价格，na.rm=真实））%>%
ggplot（aes（x=重新订购（财产，-MedPrice），y=MedPrice））+
几何坐标（fill=“tomato3”，宽度=0.5）+
实验室（title=“有序条形图”，
subtitle=“每种物业类型的平均价格”，
caption=“Image:5”）+
主题（axis.text.x=element_text（角度=65，vjust=0.6））

它回答了你的问题吗

---

如果没有，请按照本指南提供一个可复制的数据集示例：

虽然dc37的答案可以完全满足您的要求，但我只想指出，您也可以使用ggplot中的

stat.*

函数族来计算分组汇总统计信息

库（ggplot2）
df只需在绘图前进行聚合：
ggplot（聚合（价格~Property_type，data，FUN=median），…
非常感谢！只需一个简单的问题：我知道中位数是多少，但中位数最高的酒吧并没有向中位数最低的酒吧订购酒吧。你能指导我吗？不客气；）我编辑了我的答案，根据绘图上的中位数价格重新排序。如果可以，请告诉我。如果没有，请在问题中提供一个可复制的示例（好的观点；）出于某些原因，我不记得使用
stat\u summary
来解决此类问题。我最近也开始采用更多的stat系列，可以非常方便。