Is this the sort of thing you are looking for?
a <- data.frame(
month = c("2020 Jan","2020 Feb","2020 Mar",
"2020 Apr","2020 May","2020 Jun"),
A = c(5067331.423,4856897.658,
5194773.26153431,5115975.58575451,5081800.82696086,4977717.337768)
)
a1 <- data.frame(
month = c("2020 Jul","2020 Aug","2020 Sep",
"2020 Oct","2020 Nov","2020 Dec"),
A = c(5170004.00689742,5329543.06179574,
5133931.03148727,5485318.98324681,5322618.30858017,
5852263.27838859)
)
b <- data.frame(
month = c("2020 Jan","2020 Feb","2020 Mar",
"2020 Apr","2020 May","2020 Jun"),
B = c(609026,595426.8,613888.040283598,
617303.803431672,623692.818482367,631337.814039963)
)
b1 <- data.frame(
month = c("2020 Jul","2020 Aug","2020 Sep",
"2020 Oct","2020 Nov","2020 Dec"),
B = c(640845.572917244,639615.61682654,
607289.023742614,643378.460602085,654007.4236215,
671581.497350881)
)
library(dplyr, warn.conflicts = FALSE)
a <- rename(a, Value = A)
a1 <- rename(a1, Value = A)
b <- rename(b, Value = B)
b1 <- rename(b1, Value = B)
AllDat <- list(a = a, a1 = a1, b = b, b1 = b1)
AllDat <- bind_rows(AllDat, .id = "Source")
AllDat <- AllDat %>% mutate(Grp = substr(Source, 1, 1))
Levels <- paste("2020", c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul",
"Aug", "Sep", "Oct", "Nov", "Dec"))
AllDat <- AllDat %>% mutate(month = factor(month, levels = Levels))
library(ggplot2)
ggplot(AllDat, aes(x = month, y = Value, color = Source, group = Source)) +
geom_line() + facet_wrap(~Grp, scales = "free_y") +
theme(axis.text.x = element_text(angle = 90, vjust = 0.5),
axis.text.y = element_blank(),
axis.ticks.y = element_blank())

Created on 2020-09-20 by the reprex package (v0.3.0)