R 并排分组条形图

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

我如何以这样一种方式来绘制它，即计划的审核和NoofMails是基于每天并排绘制的

       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()

---

没有实现我希望看到的绘图。

使用此数据格式，因此稍微有点新的列名，没有更多的反勾号

read_table（text=”“）

是在堆栈上共享小数据集的好方法

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)

---

或者，您可以使用重塑软件包中的melt（）函数。见下面的例子

library("ggplot2")
library(reshape2)

joined2 <- melt(joined[,c("Sent_Day", "Noofemails", "Scheduled_Audits")], id="Sent_Day")

ggplot(joined2, aes(x=`Sent_Day`, y= value, group = variable, fill= variable)) + 
geom_bar(stat="identity", position = position_dodge()) +
scale_x_continuous(breaks = c(1:29)) + 
ggtitle("Number of emails sent in February") + 
theme_classic()

库（“ggplot2”）
图书馆（E2）
联合2
library("ggplot2")
library(reshape2)

joined2 <- melt(joined[,c("Sent_Day", "Noofemails", "Scheduled_Audits")], id="Sent_Day")

ggplot(joined2, aes(x=`Sent_Day`, y= value, group = variable, fill= variable)) + 
geom_bar(stat="identity", position = position_dodge()) +
scale_x_continuous(breaks = c(1:29)) + 
ggtitle("Number of emails sent in February") + 
theme_classic()