如何在 dygraphs 轴标签中放置上标和特殊字符

Question

我有一个闪亮的应用程序，它使用 dygraphs 包制作绘图。我需要在绘图的轴标签中使用上标和特殊字符。我已经尝试了 expression() 和 bquote()，但 dygraphs 似乎无法评估这些功能，因为标签打印为 [Object Object]。

这是一个最小的例子。我需要在 y 标签中上标 87 和 86，并在 x 标签中使用 mu 字符。

library(shiny)
library(dygraphs)

ui <- fluidPage(dygraphOutput("dygraph"))

server <- shinyServer(function(input, output, session) {

  sampleplot <- function(){
    norm <- rnorm(1000,mean=50,sd=7)
    dist <- seq(1,1000,by=1)
    dat <- as.data.frame(cbind(dist,norm))
    names(dat) <- c("Distance","Normal")
    dygraph(dat, ylab="87Sr/86Sr",xlab="Distance (um)") %>% 
      dySeries("Normal",drawPoints = TRUE, pointSize = 2, strokeWidth = 0.0)}

  output$dygraph <- renderDygraph({sampleplot()})


    }
  )


shinyApp(ui=ui,server=server)

Answer 1

我阅读了 JS 的 dygraphs 选项网页，发现轴标签可以使用 HTML，而不仅仅是文本。我查阅了如何在 HTML 中键入上标 http://www.w3schools.com/tags/tryit.asp?filename=tryhtml_sup and special characters http://www.htmlhelp.com/reference/html40/entities/symbols.html 并且成功了！

library(shiny)
library(dygraphs)

ui <- fluidPage(dygraphOutput("dygraph"))

server <- shinyServer(function(input, output, session) {

  sampleplot <- function(){
    norm <- rnorm(1000,mean=50,sd=7)
    dist <- seq(1,1000,by=1)
    dat <- as.data.frame(cbind(dist,norm))
    names(dat) <- c("Distance","Normal")
    dygraph(dat, ylab="<sup>87</sup>Sr/<sup>86</sup>Sr",xlab="Distance (&mu;m)") %>% 
      dySeries("Normal",drawPoints = TRUE, pointSize = 2, strokeWidth = 0.0)}

  output$dygraph <- renderDygraph({sampleplot()})


    }
  )


shinyApp(ui=ui,server=server)

如何在 dygraphs 轴标签中放置上标和特殊字符

How to put a superscript and special characters in dygraphs axis labels

r

dygraphs

axis-labels

shiny