如何在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

我讀了dy的JS選項網頁，發現軸標籤可以採取HTML，而不僅僅是文本。我查了一下如何在HTML中輸入上標http://www.w3schools.com/tags/tryit.asp?filename=tryhtml_sup和特殊字符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)