以多列为 x 轴的条形图

Question

给定这样的数据框：

IDPLACES AMERICAN.EXPRESS VISA MASTERCARD CASH
201220                  0    1          0    1
201321                  1    1          1    1
201422                  0    0          0    1
201525                  1    1          1    1

IDPLACES 是餐厅。

我想创建一个barplot，x 轴上显示每种付款方式，条形高度表示接受该付款方式的餐厅数量。有任何想法吗？

Answer 1

制作数据框。

df <- data.frame(idplaces = c("201220","201321","201422","201525"),
                 Amex = c(0,1,0,1),
                 visa = c(1,1,01,1),
                 mastercard = c(0,1,0,1),
                 cash = c(1,1,1,1))

首先，您必须重新格式化数据（这通常是 ggplot2 的情况）。重新格式化它的方式取决于您打算如何绘制它。我将使用geom_bar()，它默认让条形的高度代表数据框中的案例数。所以我将使用 tidyr 包中的gather 重新格式化为一个长数据框，然后过滤掉餐厅不接受该方法的任何情况。生成的数据框将包含餐厅 ID 的列，以及每个餐厅接受的每种付款方式的一行。

> df_long <- df %>% 
 +  gather("method", "accepts", -idplaces, factor_key = TRUE) %>% 
 +  filter(accepts == 1)

> df_long
   idplaces     method accepts
1    201321       Amex       1
2    201525       Amex       1
3    201220       visa       1
4    201321       visa       1
5    201422       visa       1
6    201525       visa       1
7    201321 mastercard       1
8    201525 mastercard       1
9    201220       cash       1
10   201321       cash       1
11   201422       cash       1
12   201525       cash       1

要在 x 轴上绘制方法，请将 x=method 设置为 aes()。

> ggplot(df_long, aes(x=method)) + 
  + geom_bar()