如何减少rnvd3中工具提示的字体大小？

我正在使用rnvd3 packadge在Shiny应用程序中绘制交互式多功能图，并且图表的工具提示有一个很大的字体大小，我只想减少它。如何减少rnvd3中工具提示的字体大小？

这里是我的代码：

library(shiny) 
library(rCharts) 
library(shinythemes) 
library(shinydashboard) 

ui <- navbarPage(title = "Information", 

      tabPanel(title = "Graph", 

           fluidRow(
           column(2), 
           column(8, 
             tags$br(), 
             tags$h5("Chart", style="font-weight: bold; font-size:20px", align = "center"), 
             tags$br()) 
           ), 

           fluidRow(
           column(1), 
           column(8, 
             tags$br(), 
             tags$h5("Exemple", style="font-weight: bold; font-size:14px", align = "center"), 
             tags$br(), 
             showOutput("bar","nvd3")), 
           column(1) 
          ) 


      ) 
) 

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

output$bar <- renderChart2({ 

    database2 <- cbind(cbind(c(100,110,140),c("2016-09-05","2016-09-05","2016-09-05")),c("Product A","Product B","Product C")) 
    database2[,1] <- as.numeric(database2[,1]) 
    database2[,2] <- as.Date(database2[,2],origin="1899-12-30") 
    colnames(database2) <- c("Price","Date","Key") 
    database2 <- as.data.frame(database2) 

    m1net_eb <- nPlot(Price ~ Date, group = 'Key', data = database2, type='multiBarChart') 
    m1net_eb$chart(margin = list(left=60,bottom=110,right=60)) 
    m1net_eb$chart(forceY = 0) 
    m1net_eb$set(lineWidth = 1, width=1100 , height = 700) 
    m1net_eb 

}) 

} 

shinyApp(ui=ui, server=server)

我怎么能降低这个packdge工具提示的字体大小？请帮助

来源

2016-09-13 Henrique Nunes

很可能你可以用CSS来改变它。请提供一个可重复的例子。 –

嗨，确定..我用可重复的代码编辑了我的问题。在这个例子中，我想减少传说“产品A”，“产品B”，“产品C”的工具提示的字体大小 –

只需添加

      tags$head(tags$style(HTML(" 
              .nvtooltip h3 { 
               font-size:14px; 
              } 
              ")))

下面是完整的代码。

library(shiny) 
library(rCharts) 
library(shinythemes) 
library(shinydashboard) 

ui <- navbarPage(title = "Information", 
       tabPanel(title = "Graph", 

          fluidRow(
          column(2), 
          column(8, 
            tags$br(), 
            tags$h5("Chart", style="font-weight: bold; font-size:20px", align = "center"), 
            tags$br()) 
         ), 

          fluidRow(
          column(1), 
          column(8, 
            tags$br(), 
            tags$h5("Exemple", style="font-weight: bold; font-size:14px", align = "center"), 
            tags$br(), 
            showOutput("bar","nvd3")), 
          column(1) 
         ), 

          tags$head(tags$style(HTML(" 
              .nvtooltip h3 { 
               font-size:14px; 
              } 
              "))) 


       ) 
) 

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

    output$bar <- renderChart2({ 

    database2 <- cbind(cbind(c(100,110,140),c("2016-09-05","2016-09-05","2016-09-05")),c("Product A","Product B","Product C")) 
    database2[,1] <- as.numeric(database2[,1]) 
    database2[,2] <- as.Date(database2[,2],origin="1899-12-30") 
    colnames(database2) <- c("Price","Date","Key") 
    database2 <- as.data.frame(database2) 

    m1net_eb <- nPlot(Price ~ Date, group = 'Key', data = database2, type='multiBarChart') 
    m1net_eb$chart(margin = list(left=60,bottom=110,right=60)) 
    m1net_eb$chart(forceY = 0) 
    m1net_eb$set(lineWidth = 1, width=1100 , height = 700) 
    m1net_eb 

    }) 

} 

shinyApp(ui=ui, server=server)

来源

2016-09-15 20:27:35

非常感谢..它的工作..最好的问候.. –

如何减少rnvd3中工具提示的字体大小？

回答

相关问题