r - 并排分组条形图

Question

我正在尝试使用带有 ggplot2 的分组条形图来绘制下表。

我如何以一种方式绘制它，以便根据每一天并排绘制计划的审计和 noofemails？

       Email Type Sent Month Sent Day Scheduled Audits Noofemails
27          A          1       30                7        581
29          A          1       31                0          9
1           A          2        1                2          8
26          B          1       29             1048      25312
28          B          1       30               23        170
30          B          1       31               18        109
2           B          2        1                6         93
3           B          2        2                9         86
4           B          2        4                3         21

ggplot(joined, aes(x=`Sent Day`, y=`Scheduled Audits`, fill = Noofemails )) + 
  geom_bar(stat="identity", position = position_dodge()) +
  scale_x_continuous(breaks = c(1:29)) + 
  ggtitle("Number of emails sent in February") + 
  theme_classic()

没有实现我希望看到的剧情。

Answer 1

使用这种数据格式，所以稍微新的列名，不再有反引号。 read_table(text = "") 是在 Stack 上共享小数据集的好方法

joined <- read.table(text =
   "ID  Email_Type Sent_Month Sent_Day Scheduled_Audits Noofemails
    27          A          1       30                7        581
    29          A          1       31                0          9
    1           A          2        1                2          8
    26          B          1       29             1048      25312
    28          B          1       30               23        170
    30          B          1       31               18        109
    2           B          2        1                6         93
    3           B          2        2                9         86
    4           B          2        4                3         21",
    header = TRUE)

这就是为什么ggplot2非常喜欢长数据而不喜欢宽数据的原因。因为它需要列名来创造美感。

因此，您可以使用函数 tidyr::gather() 将感兴趣的两列重新排列为一列带有标签，一列带有值。这会增加数据框中的行数，这就是它被称为 long 的原因。

long <- tidyr::gather(joined,"key", "value", Scheduled_Audits, Noofemails)

ggplot(long, aes(Sent_Day, value, fill = key)) +
    geom_col(position = "dodge")