如何從不同的數據庫中創建彼此相鄰的 geom_bar

Question

我正在努力創建一個簡單的條形圖，其中條形圖彼此相鄰（如圖所示）。

數據來自不同的數據庫。

Database A
 Month     Cost
1 Dec      3009       
2 Dec      3468       
3 Nov      3420        
4 Oct      3162



Database B
    Month     Cost
1 Dec      309       
2 Nov      3481       
3 Nov      3419        
4 Oct      3120     

對於條形圖，我試圖顯示一個以 X 軸為月份的條形圖，對於 12 月，A 將有 2（總數，而不是值），B = 1，對於 11 月， A 有 1，B 有 2。謝謝！

Answer 1

您可以將 id 變量添加到數據集，按行綁定它們並制作標准條形圖，其中 map id fill ：

db1 <- read.table(text = "Month     Cost
1 Dec      3009       
2 Dec      3468       
3 Nov      3420        
4 Oct      3162", header = TRUE)

db2 <- read.table(text = "Month     Cost
1 Dec      309       
2 Nov      3481       
3 Nov      3419        
4 Oct      3120", header = TRUE)

library(ggplot2)
library(dplyr)

db <- dplyr::bind_rows(list(A = db1, B = db2), .id = "id")
db$Month <- factor(db$Month, levels = month.abb)
ggplot(data = db, mapping = aes(Month, fill = id)) +
  geom_bar(position = "dodge")