R中具有多個X軸（類別和時間）的條形圖[重復]

我試圖使用以下樣本數據創建條形圖：

test  <- data.frame(person=c("A", "B", "C", "D", "E"), 
                    value1=c(100,150,120,80,150),     
                    value2=c(25,30,45,30,30)) 

library(reshape2) # for melt

melted <- melt(test, "person")

melted$cat <- ''
melted[melted$variable == 'value1',]$cat <- "first"
melted[melted$variable == 'value2',]$cat <- "second"

melted$Date <- seq.Date(as.Date("2021-01-01"), as.Date("2021-05-01"), "month")

我使用以下代碼創建條形圖：

ggplot(melted, aes(x = cat, y = value, fill = variable)) + 
  geom_bar(stat = 'identity')

它給出了以下輸出

然而，我想按月創建它，這樣每個月都有兩個值1和值2的條形圖。但是當我做x=Date時，它會創建一個堆棧圖（可以理解），然而，我希望每個月創建兩個條形圖。

有什么指導嗎？