Я пытаюсь связать два графика временных рядов в один граф в R, в виде сетки фасетов или чего-либо интерактивного.
1-й график:
TT = ggplot(data = x1, aes(Date, Count_of_Fresh_emails)) +
geom_line(aes(color = Country), size = 1) +
scale_color_manual(values = c("#00AFBB", "#E7B800", "darkgreen", "red")) +
theme_minimal() +
scale_x_date(date_labels = "%b/%Y")
ggplotly(TT)
2-й график:
p <- ggplot(data = x2, aes(Date, FollowUp_Counts)) +
geom_line(aes(color = Country), size = 1) +
scale_color_manual(values = c("#00AFBB", "#E7B800", "darkgreen", "red")) +
theme_minimal() +
scale_x_date(date_labels = "%b/%Y")
ggplotly(p)