R 一个图中的多个直方图

我至少有5个表，如下所示（表1和表2）。我想为每个位置（Pos）列绘制A、T、G、C列的直方图。我想在一个绘图中绘制两个表。我在R怎么做

table1<- structure(list(Pos = 1:19, A = c(48L, 12L, 9L, 8L, 26L, 34L, 
    18L, 3L, 3L, 10L, 8L, 7L, 12L, 4L, 9L, 7L, 9L, 7L, 243L), C = c(13L, 
    2L, 2L, 6L, 2L, 2L, 11L, 6L, 2L, 2L, 10L, 6L, 10L, 4L, 1L, 6L, 
    9L, 1L, 84L), G = c(12L, 4L, 1L, 5L, 6L, 1L, 4L, 7L, 8L, 7L, 
    7L, 1L, 8L, 5L, 3L, 6L, 3L, 2L, 45L), T = c(32L, 7L, 3L, 8L, 
    4L, 3L, 5L, 4L, 5L, 12L, 16L, 1L, 9L, 3L, 2L, 9L, 1L, 14L, 226L
    )), .Names = c("Pos", "A", "C", "G", "T"), class = "data.frame", row.names = c(NA, 
    -19L))

table2<- structure(list(Pos = 1:19, A = c(48L, 12L, 9L, 8L, 26L, 34L, 
18L, 3L, 3L, 10L, 8L, 7L, 12L, 4L, 9L, 7L, 9L, 7L, 243L), C = c(13L, 
2L, 2L, 6L, 2L, 2L, 11L, 6L, 2L, 2L, 10L, 6L, 10L, 4L, 1L, 6L, 
9L, 1L, 84L), G = c(12L, 4L, 1L, 5L, 6L, 1L, 4L, 7L, 8L, 7L, 
7L, 1L, 8L, 5L, 3L, 6L, 3L, 2L, 45L), T = c(32L, 7L, 3L, 8L, 
4L, 3L, 5L, 4L, 5L, 12L, 16L, 1L, 9L, 3L, 2L, 9L, 1L, 14L, 226L
)), .Names = c("Pos", "A", "C", "G", "T"), class = "data.frame", row.names = c(NA, 
-19L))

---

table1首先，组合这些表并添加一列，以使用
dplyr:：bind_rows
标识该表。然后，您可以在
表
上刻面

对于并列图，请使用
+facet\u网格（~table）

library(tidyverse)
bind_rows(table1, table2, .id = "table") %>%  
  gather(base, value, -Pos, -table) %>% 
  ggplot(aes(Pos, value)) + 
    geom_col(aes(fill = base), position = position_dodge()) +
    facet_grid(table~.)

不清楚“直方图”和“每个位置（Pos）列”是什么意思。这意味着
table1
单独就有19个直方图，`table2还有19个直方图，等等。如果5*19=95个不同的历史记录，你认为直方图会是什么样子？（“也许”我误会了：-）呢<代码>par（mfrow=c（2,1））；条形图（t（表1）[-1，]，旁边=真）；条形图（t（表2）[-1，]，旁边=真）
@r2evans我想在X轴上用
Pos
列绘制A、t、G、C级别，但我想在一个图形中同时绘制表1和表2。@rawr是的，你是对的。这正是我想要的，但在ggplot中如何做到这一点？有合适的图例？如果表1和表2不相同，可能会更有趣：）