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을 사용할 수 있다는 것을 알았습니다. 위 첨자 http://www.w3schools.com/tags/tryit.asp?filename=tryhtml_sup과 특수 문자 인 http://www.htmlhelp.com/reference/html40/entities/symbols.html을 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)