ggplot2中的水平条形图

Question

我在使用ggplot2制作水平点图时，想尝试创建一个水平条形图。但是，我发现有一些限制。

这是我的数据：

df <- data.frame(Seller=c("Ad","Rt","Ra","Mo","Ao","Do"), 
                Avg_Cost=c(5.30,3.72,2.91,2.64,1.17,1.10), Num=c(6:1))
df
str(df)

起初，我使用以下代码生成了一个点图：

require(ggplot2)
ggplot(df, aes(x=Avg_Cost, y=reorder(Seller,Num))) + 
    geom_point(colour="black",fill="lightgreen") + 
    opts(title="Avg Cost") +
    ylab("Region") + xlab("") + ylab("") + xlim(c(0,7)) +
    opts(plot.title = theme_text(face = "bold", size=15)) +
    opts(axis.text.y = theme_text(family = "sans", face = "bold", size = 12)) +
    opts(axis.text.x = theme_text(family = "sans", face = "bold", size = 12))

但是，我现在尝试创建一个水平条形图，发现无法做到。我尝试过coord_flip()也没有帮助。

ggplot(df, aes(x=Avg_Cost, y=reorder(Seller,Num))) + 
    geom_bar(colour="black",fill="lightgreen") + 
    opts(title="Avg Cost") +
    ylab("Region") + xlab("") + ylab("") + xlim(c(0,7)) +
    opts(plot.title = theme_text(face = "bold", size=15)) +
    opts(axis.text.y = theme_text(family = "sans", face = "bold", size = 12)) +
    opts(axis.text.x = theme_text(family = "sans", face = "bold", size = 12)) 

有人可以提供一些关于如何在ggplot2中生成一个水平条形图的帮助吗？

- ATMathew

Answer 1

ggplot(df, aes(x=reorder(Seller, Num), y=Avg_Cost)) +
  geom_bar(stat='identity') +
  coord_flip()

如果不加上 stat='identity'，ggplot 将会对你的数据进行计数聚合。

- Justin

---

ggplot2中的每个geom都有一个默认的stat。对于geom_bar，默认的stat是bin，因此必须像Justin展示的那样将其更改为identity。另外两个默认为bin的geoms是freqpoly和当然是histogram。 - Pete

问题在于coord_flip()函数会翻转坐标轴，因此原本在x轴上从左到右的内容现在会变成在y轴上从下到上。 - jzadra

能够与”stat_summary(fun=mean, geom="col")”一起使用。 - Clem Snide

Answer 2

从 ggplot2 版本 3.3.0（2020年3月）开始，方向将从美学映射中推断。因此，我们可以简化 @Justin 和 @ungatoverde 的代码为：

library(ggplot2)
ggplot(df,
       aes(x = Avg_Cost,
           y = reorder(Seller, Num)
           )
       ) +
  geom_col()

参考: https://www.tidyverse.org/blog/2020/03/ggplot2-3-3-0/#bi-directional-geoms-and-stats

- markus

Answer 3

ggplot(df, aes(x=reorder(Seller, Num), y=Avg_Cost)) +
  geom_col()

这可能是一种替代方案。

- ungatoverde