用两个数据集并排绘图

Question

我有两个向量，可以修改为两个数据集：

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循环、par和base::barplot绘制如下所示：

​

我需要在两个矩阵单元格中为相应的值绘制一个单条图，然后将所有的bar图绘制成一个具有相同行数和列数的矩阵。

有谁知道如何用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()

​

​