Как я могу разбить свои данные на 2 отдельные группы?

Question

Мне нужно составить график, показывающий цены 4 разных акций с течением времени, но они должны быть в группах по 2 на своем собственном графике.Я сделал отдельные графики для каждой акции, но не уверен, как их сгруппировать.

Вот мои четыре акции.Мне нужно, чтобы они были сгруппированы как таковые (AAPL & MSFT) и (AMZN & GOOGL)

Symbol = c( "AAPL", "MSFT","AMZN", "GOOGL")

Это мой код, создающий сами диаграммы.Я использую facet_wrap для создания нескольких графиков.

 gg <- ggplot(DataX) + aes(x=Date, y = Price, fill = Symbol, color = Symbol) +
  geom_line() + transition_reveal(Date) + facet_wrap(~Symbol)

Вот изображение того, что у меня есть: https://ibb.co/Fz7dLnZ Вот изображение того, что я ищу: https://ibb.co/KNkjrM2

Answer 1

Вот один подход:

DataX <- DataX %>% 
   mutate(group = ifelse(Symbol %in% c("AAPL", "MSFT"), "AAPL vs MSFT", "AMZN vs GOOGL"))

gg <- ggplot(DataX) + aes(x=Date, y = Price, fill = Symbol, color = Symbol) +
  geom_line() + transition_reveal(Date) + facet_wrap(~group, ncol=1)