Добавление текста в юникоде в ggvis plot

Question

Я пытаюсь добавить текст в кодировке Юникод, используя layer_text(), но он не работает, если я не предоставлю текст в качестве константы:

x = data.frame(a=c(1,2),b=c("\\u2799","\\u2794"))

# This one works
x %>% ggvis(~a) %>% layer_text(text := "\\u2794")

# Now does not work
x %>% ggvis(~a) %>% layer_text(text := ~b)

# Nor this way
x = data.frame(a=c(1,2),b=c("\u2799","\u2794"))
x %>% ggvis(~a) %>% layer_text(text := ~b)

Есть ли решение?

Выдержка из моего sessionInfo, связанного с локалью:

R version 3.1.2 (2014-10-31)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_United States.1252  LC_CTYPE=English_United States.1252   
[3] LC_MONETARY=English_United States.1252 LC_NUMERIC=C                          
[5] LC_TIME=English_United States.1252

Answer 1

Запуск следующего кода (через RStudio) работает для меня:

library(dplyr)
library(ggvis)
x <- data.frame(a=c(1, 2), b=c("\u2799", "\u2794"))
x %>% ggvis(~a) %>% layer_text(text := ~b)

Это также работает для меня:

y <- data.frame(a=c(1, 2), b=c("➙", "➔"))
y %>% ggvis(~a) %>% layer_text(text := ~b)

Вот скриншот:

Вот соответствующая выдержка из моего sessionInfo()

# R version 3.1.2 (2014-10-31)
# Platform: x86_64-pc-linux-gnu (64-bit)
# locale:
# [1] LC_CTYPE=en_US.UTF-8
# other attached packages:
# [1] ggvis_0.4     dplyr_0.3.0.2

Таким образом, очевидный вопрос: что отличается в вашей настройке?