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

时间:2016-09-13 02:10:22

标签: r shiny tooltip nvd3.js rcharts

我正在使用rnvd3 packadge在Shiny App中绘制交互式多栏图,并且图表的工具提示具有较大的字体大小,我只想减少它。

这是我的代码:

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)

如何减少此套餐中工具提示的字体大小? 请帮忙

1 个答案:

答案 0 :(得分:0)

添加

                          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)