将 unicode 文本添加到 ggvis 图

Adding unicode text to ggvis plot

我正在尝试使用 layer_text() 将 unicode 文本添加到图形中,但它不起作用,除非我将文本作为常量提供:

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

运行 以下代码(通过 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

所以显而易见的问题是:您的设置有何不同?