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)