Question

我有一个闪亮的应用程序，使用dygraphs包制作一个情节。我需要在图上的轴标签中使用上标和特殊字符。我尝试了List<String> strs = N.asList("ABC", "abc", "bca", "BCa", "AbC"); List<Set<String>> lists = Stream.of(strs).groupBy(N::toLowerCase, Collectors.toSet()).map(Entry::getValue).toList();和expression()，但是当标签打印为[对象对象]时，dygraphs似乎无法评估这些函数。

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

bquote()

Answer 1

我阅读了JS的dygraphs选项网页，发现轴标签可以采用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)

如何在dygraphs轴标签上加上上标和特殊字符

1 个答案: