title: Add text label near the position arrows in chart.Posn () function of blotter
body: <p>Is it possible to add texts like &quot;BUY&quot; and &quot;SELL&quot; near the green and red arrows in chart.Posn() function. (not with manual trial of coordinates, I need an automatic solution) I have changed the source code of function a bit and increased the size of arrows:</p>
  <p><a href="https://i.stack.imgur.com/VTUuR.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/VTUuR.png" alt="enter image description here" /></a></p>
  <p>If a minimum reproducible example is needed, I can provide but this is a basic question for graphical parameters of R.</p>
  <p>Your help is appreciated.</p>
  <p><strong>Edit for a minimum reproducible example:</strong></p>
  <pre><code>library(quantstrat)
  
  start_date &lt;- as.Date(&quot;2018-02-02&quot;)
  end_date &lt;- as.Date(&quot;2018-09-24&quot;)
  init_date &lt;- as.Date(&quot;2018-01-01&quot;)
  init_equity &lt;- &quot;50000&quot;
  adjustment &lt;- TRUE
  symbol &lt;- &quot;AAPL&quot;
  
  
  getSymbols(symbol, src = &quot;yahoo&quot;,
         from = start_date, to=end_date,
         adjust = adjustment)
  
  
  portfolio.st &lt;- &quot;basic_port&quot;
  account.st &lt;- &quot;basic_account&quot;
  strategy.st &lt;- &quot;basic_strategy&quot;
  
  
  rm.strat(portfolio.st)
  rm.strat(account.st)
  
  stock(symbol, currency = currency(&quot;USD&quot;), multiplier = 1)
  initPortf(name = portfolio.st, symbols = symbol, initDate =init_date)
  
  initAcct(name = account.st, portfolios = portfolio.st, 
           initDate = init_date, initEq =init_equity)
  initOrders(portfolio.st, symbol, init_date)
  strategy(strategy.st, store = TRUE)
  
  
  
  add.indicator(strategy = strategy.st, name = &quot;SMA&quot;,
                arguments = list(x = quote(Cl(mktdata)), n=10),
                label =&quot;nFast&quot;)
  
  
  add.indicator(strategy = strategy.st, name = &quot;SMA&quot;,
                arguments = list(x = quote(Cl(mktdata)), n=30),
                label = &quot;nSlow&quot;)
  
  add.signal(strategy = strategy.st, 
             name= &quot;sigCrossover&quot;,
             arguments =  list(columns = c(&quot;nFast&quot;, &quot;nSlow&quot;),
                               relationship = &quot;gte&quot;),
             label = &quot;longenter&quot;)
  
  add.signal(strategy = strategy.st,
             name= &quot;sigCrossover&quot;, 
             arguments =  list(columns = c(&quot;nFast&quot;,
                                           &quot;nSlow&quot;), 
                               relationship = &quot;lt&quot;),
             label = &quot;longexit&quot;)
  
  #Add rules for entering positions
  #enter long position
  add.rule(strategy.st, 
           name = &quot;ruleSignal&quot;, 
           arguments = list(sigcol = &quot;longenter&quot;,
                            sigval = TRUE,
                            orderqty = 100,
                            ordertype = &quot;market&quot;,
                            orderside = &quot;long&quot;,
                            orderset= &quot;ocolong&quot;,
                            prefer = &quot;Close&quot;,
                            TxnFees = -.8,
                            replace = FALSE),
           type = &quot;enter&quot;,
           label = &quot;EnterLong&quot;)
  
  
  
  #stoploss long
  add.rule(strategy = strategy.st, 
           name = &quot;ruleSignal&quot;,
           arguments = list(sigcol = &quot;longenter&quot;,
                            sigval = TRUE,
                            TxnFees=-.8,
                            replace = FALSE, 
                            orderside = &quot;long&quot;, 
                            ordertype = &quot;stoplimit&quot;,
                            orderqty = &quot;all&quot;, 
                            tmult = TRUE,
                            prefer = &quot;Close&quot;,
           order.price=quote(as.numeric(mktdata$AAPL.Low[timestamp])),
                            orderset=&quot;ocolong&quot;), 
           type = &quot;chain&quot;, parent = &quot;EnterLong&quot;, 
           path.dep=TRUE, 
           label = &quot;stop_loss_long&quot;, 
           enabled=TRUE)
  
  
  #Apply strategy
  applyStrategy(strategy.st, portfolios = portfolio.st,debug = TRUE)
  updatePortf(portfolio.st)
  updateAcct(account.st)
  updateEndEq(account.st)
  
  st&lt;- &quot;2018-05-01 00:00:00&quot;
  fn&lt;-&quot;2018-06-20 00:00:00&quot;
  chart.Posn(portfolio.st, Symbol = symbol, Dates = paste(st, fn, sep=&quot;::&quot;))
  </code></pre>
  <p><a href="https://i.stack.imgur.com/VTUuR.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/VTUuR.png" alt="enter image description here" /></a></p>