如何在ggplot中的一个绘图中合并来自两个数据帧的两个绘图？

Question

我有两个具有相同变量的独立数据集，并且已经创建了两个独立的图。我想将它们合并在一个图中。

以下是每个图的代码：

##For tb2 :
my_data2$Date<- as.Date(my_data2$Date) #factor to date
tb2 <- my_data2
str(tb2)
tb2 <- tb2 %>% mutate (Month = month(Date, label = TRUE), Year = 
as.integer(year(Date)))

## plotting bar chart  
tb2_plot <- tb2 %>% ggplot(aes(factor(Month), GWQ)) + 
geom_bar(stat = "identity")+ facet_wrap(vars(Year), nrow = 1)+ 
theme(axis.text.x = element_text(angle = 90, hjust = 1, size = 9))

---

##For tb:
my_data$Date<- as.Date(my_data$Date) #factor to date
tb <- my_data
str(tb)
tb <- tb %>% mutate (Month = month(Date, label = TRUE), Year = 
as.integer(year(Date)))
## plotting bar chart   
tb_plot <- tb %>% ggplot(aes(factor(Month), GWQ))+ geom_bar(stat = 
 "identity")+ facet_wrap(vars(Year), nrow = 1)+ theme(axis.text.x = element_text(angle = 90, hjust = 1, size = 9))

Answer 1

在绘制之前，您需要组合数据。

尝试：

tb_all = bind_rows(tb %>% mutate(category = "A"), tb2 %>% mutate(category = "B"))

如果要区分绘图中的两组数据，可以将fill = category添加到aes()调用中。