HTML греческие буквы с помощью ggplotly

#r #ggplot2 #plotly

#r #ggplot2 #графически

Вопрос:

При преобразовании графики ggplot в графику plotly с помощью ggplotly я могу получить некоторый HTML, например, в названии:

 library(plotly)
library(ggplot2)
library(scales)

library(mvtnorm)
sims <- rmvnorm(500, mean=c(0,0,0))
dat <- setNames(data.frame(sims), c("x", "y", "z"))
dat$z <- dat$x dat$y

gg <- ggplot(dat, aes(x=x, y=y, colour=z))   
  geom_point()   
  scale_colour_gradient2(limits=c(-2,2), midpoint=0, low=muted("blue"), high=muted("red"))   
  ggtitle("<em>hello</em>")

ggplotly(gg)
  

введите описание изображения здесь

Заголовок <em>hello</em> , как и ожидалось, выделен курсивом.

Но когда я хочу греческую букву HTML, это не работает:

 gg <- ggplot(dat, aes(x=x, y=y, colour=z))   
  geom_point()   
  scale_colour_gradient2(limits=c(-2,2), midpoint=0, low=muted("blue"), high=muted("red"))   
  ggtitle("amp;Delta;")

ggplotly(gg)
  

введите описание изображения здесь

Как отобразить amp;Delta; ожидаемую греческую букву?

Я использую plotly_4.5.2 и ggplot2_2.1.0 .

Ответ №1:

Это работает с десятичной символьной ссылкой:

 gg <- ggplot(dat, aes(x=x, y=y, colour=z))   
  geom_point()   
  scale_colour_gradient2(limits=c(-2,2), midpoint=0, low=muted("blue"), high=muted("red"))   
  ggtitle("amp;#916;")
ggplotly(gg)
  

Согласно этому комментарию к репозиторию Github, plotly.js недавно удалено обобщенное декодирование объектов HTML». Я не уверен, что понимаю, но это может быть объяснением.

Обновление 2017-08-25

Разработчики plotly теперь удалили десятичную кодировку символов html. В качестве решения можно напрямую ввести символ UTF-8 или использовать intToUtf8 :

 ggtitle("Δ")
ggtitle(intToUtf8(0x0394L))
  

Комментарии:

1. Хорошо! вы сами ответили на свой вопрос. Я удалю свои. Вы можете принять свой собственный ответ, чтобы другие знали

2. @useR Да, но никто не может принять собственный ответ раньше, чем через два дня.