Thank you for suggestions. So, one of the possible answers how to insert arrow (i.e. to show transitions from x to y) into the legend may look like this:
plot.new() # empty plot
legend("topright", c(expression(x[1] %->% y[1]), expression(x[2]%->%y[2])), col=4, bty="n")