Question

这是我正在使用的代码 -

  g.volume <- ggplot (time_series, aes(x=quotedate, y=cv)) +  
            geom_col(position='dodge',fill='steelblue1', size=.8)      +
             geom_col(aes(x=quotedate, y=pv) ,position='dodge', fill='hotpink1', size=.8) +

  labs(x = "", y = "Call / Put  Volume") + theme_bw() +
  theme(axis.ticks.x=element_blank(), axis.text.x=element_blank())  +  
  theme(panel.grid.major = element_line(colour = "grey", size=.5,linetype = 'dashed'))

输出在数值上是正确的，但是两个Y变量是堆叠的，而不是并排避开。网络上的许多例子都没有直接与时间序列数据（X轴）相关，而是与少数类别相关/我试图旋转数据最多是凌乱的，并且没有用。

Answer 1

如何做到这一点，您可以融化数据并绘制value

dat <- melt(df, id.vars = c("quotedate"))
ggplot(data=dat,aes(x= quotedate, y=value, fill=variable, color=variable)) +
  geom_bar(stat="identity",position ="dodge")+
  labs(x = "", y = "Call / Put  Volume") + theme_bw() +
  theme(axis.ticks.x=element_blank(), axis.text.x=element_blank())  +  
  theme(panel.grid.major = element_line(colour = "grey", size=.5,linetype = 'dashed'))

ggplot geom_col不会躲避时间序列数据

1 个答案: