R/ d3heatmap /闪亮-有办法改变轴线的颜色吗？

Question

不幸的是，此时d3heatmap中没有改变轴标签颜色的功能。这限制了一个人使用漂亮的“css”风格来设计情节的能力，如下所示：

​

​

必须有一种方法来操作javascript代码；在本地机器上查找这些文件的简单方法请参阅previous stackoverflow.com question。

下面是一个可重复的示例(尽管我的具体问题在{shiny}应用程序中)：

library(d3heatmap)

d3heatmap(x = mtcars,
      Colv = NULL,
      scale= "column",
      key = FALSE,
      yaxis_font_size = "0pt",
      xaxis_font_size = "10pt")

Answer 1

把这个添加到你的ui.R的某个地方。根据需要改变颜色。

    tags$head(tags$style(HTML("
                              svg.xaxis text {
                                fill: #0000ff;
                              }
                              ")))

完整示例

library(shiny)
library(d3heatmap)

ui <- shinyUI(fluidPage(

   titlePanel("Old Faithful Geyser Data"),

   sidebarLayout(
      sidebarPanel(
        tags$head(tags$style(HTML("
                                  svg.xaxis text {
                                    fill: #0000ff;
                                  }
                                  ")))
      ),

      mainPanel(
         d3heatmapOutput("out")
      )
   )
))

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

  output$out <- renderD3heatmap({
    d3heatmap(x = mtcars,
              Colv = NULL,
              scale= "column",
              key = FALSE,
              yaxis_font_size = "0pt",
              xaxis_font_size = "10pt")
  })

})

shinyApp(ui = ui, server = server)