我想添加在quantmod图表上显示信号的对象，我该怎么做。例如，我有一个IBM图表的两个信号：
library("quantmod")
getSymbols("IBM")
IBM$LastDay_green<- ifelse((lag(IBM$IBM.Open,k=1) < lag(IBM$IBM.Close,k=1)),1,0)
IBM$LastDay_red<- ifelse((lag(IBM$IBM.Open,k=1) > lag(IBM$IBM.Close,k=1)),1,0)
如何在蜡烛IBM$LastDay_green==1下方添加绿色物体/箭头，如何在蜡烛上方添加红色物体/箭头IBM$LastDay_red==1