帶有兩個數據集的 ggplot 並排欄 plot

Question

我有這 2 個向量可以改造成 2 個數據集：

V1 = c(0.1920, 0.0002, 0.0000, 0.3020, 0.0010, 0.0000, 0.0310, 0.2458, 0.0436, 0.0228, 0.3160, 0.1108)
V2 = c(0.1160, 0.0000, 0.0000, 0.4092, 0.0000, 0.0000, 0.9658, 0.0836, 0.0092, 0.9746, 0.2312, 0.0284)

我用for loop 和par和base::barplot來畫這樣的：

我需要為兩個矩陣單元格中的相應值做一個單條 plot，然后 plot 將所有條形圖放入具有相同行數和列數的矩陣中。

有誰知道如何用ggplot做到這一點？ 提前感謝您的大力幫助！

Answer 1

要使用ggplot2嘗試：

library(tidyverse)

data.frame(V1, V2) %>%
  mutate(facet_col = row_number()) %>%
  pivot_longer(cols = -facet_col) %>%
  ggplot() + aes(name, value, fill = name) +
  geom_col() + facet_wrap(~facet_col, nrow = 3, dir="v") + 
  scale_fill_manual(values = c('red', 'green')) + 
  guides(fill = FALSE) + 
  theme_classic()