date1   strike volume  price
    09:35:00  223.5      22  225.09
    09:35:00  224.0     139  225.09
    09:35:00  224.5     104 225.09
    09:35:00  225.0    1051 225.09
    09:36:00  223.5      27 225.16
    09:36:00  224.0     126 225.16
    09:36:00  224.5    2652 225.16
    09:36:00  225.0     118 225.16
    09:37:00  223.5      33 225.13
    09:37:00  224.5     106 225.13
    09:37:00  225.0     251 225.13
    09:38:00  224.0      45 225.11
    09:38:00  224.5      11 225.11
    09:38:00  225.0      16 225.11
    09:39:00  223.5      43 224.90
    09:39:00  224.0      40 224.90
    09:39:00  224.5      50 224.90
    09:39:00  225.0    1465 224.90

plotdata<-data.frame(as.factor(date1),as.factor
    (MyDataPlot$strike),MyDataPlot$trade_volume,MyDataPlot$underlying_bid)
    colnames(plotdata)<-c('date1','strike','volume','price')
    ggplot(plotdata, aes(y=volume,x=date1, fill = strike)) +
    geom_bar(stat="identity", position = "dodge") +
    geom_line(aes(x=date1,y = price, colour = "Price",group=1))+
    scale_y_continuous(sec.axis = sec_axis(~.*1,name = "Price"))