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)

如何将数据分为两个单独的组？

1 个答案: