How to use the arrow inside the title of the plot?

Question

how can i use the arrow to the right inside the header of the barplot? I tried the following:

counts <- c(0.2, 0.4)
barplot(counts, main="A → B", horiz=TRUE, col=2:3, xlab="Time", xlim=c(0, 1.0))

In R, the title of the plot looks good, but when I save the graph to a file, for example. pdf, the right arrow in the title is replaced by three dots "...".

I am using R under Windows 7.

Thank!

Answer 1

We can use expression():

set.seed(1)
d1 <- data.frame(y = rnorm(100), x = rnorm(100))

plot(y ~ x, data = d1,ylab = expression(y %->% x),xlab = expression(x %->% y))

A list of expressions can be found at: https://stat.ethz.ch/R-manual/R-devel/library/grDevices/html/plotmath.html

Answer 2

, , , " " plotmath %...%. ?plotmath points -, TestChars(), , ( ) , :

TestCharsSym <- function(sign = 1, font = 5, oct = TRUE, ...)
{
  MB <- l10n_info()$MBCS
  r <- if(font == 5) { 
    sign <- 1
    c(32:126, 160:254)
  } else {
    if(MB) 32:126 else 32:255
  }
  if (sign == -1) r <- c(32:126, 160:255)
  par(pty = "s")
  plot(c(-1, 16), c(-1, 16), 
       type = "n", 
       xlab = "", 
       ylab = "",
       xaxs = "i", 
       yaxs = "i",
       main = sprintf("sign = %d, font = %d", sign, font)
  )
  grid(17, 17, lty = 1)
  mtext(paste("MBCS:", MB, "  Use symbol(\"...\") "))
  for(i in r){ 
    try(points(i%%16, i%/%16, pch = sign*i, font = font, ...))
    text(i%%16 - 0.3, i%/%16 - 0.3, 
         if( oct ){ 
           paste0("\\", as.octmode(i))
         } else{
           i
         },
         cex = 0.5)
  }
}
TestCharsSym()

- OSX, , 240-, pdf() Apple Symbol. *symbol(...), "" plotmath() . :

main=expression(A *symbol('\256')* B)