如何调整R Shiny中sliderInput组件的刻度字体大小？

要减小sliderInput的刻度字体大小并节省UI空间，你可以通过自定义CSS样式实现，直接在Shiny的UI中添加样式规则即可：

• 针对滑块的刻度标签，用CSS选择器.slider-tick-label设置字体大小
• 可选：调整刻度标签的间距（margin）进一步压缩横向空间

修改后的完整代码如下：

ui <- fluidPage(
  # 添加自定义CSS样式
  tags$style(HTML("
    /* 减小刻度标签字体大小 */
    .slider-tick-label {
      font-size: 12px; /* 可根据需求调整数值，比如10px */
      margin: 0 3px; /* 减小标签间的水平间距 */
    }
    /* 可选：同时缩小滑块标题的字体大小 */
    .slider-label {
      font-size: 14px;
    }
  ")),
  
  sliderInput("obs", "Number of observations:",
              min = 0, max = 1000, value = 500
  ),
  plotOutput("distPlot")
)

# Server logic
server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs))
  })
}

# 运行应用
shinyApp(ui, server)

说明： #

• font-size: 12px：将刻度字体设置为12像素，可根据实际需求调整为更小的数值
• margin: 0 3px：减少刻度标签之间的左右间距，避免占用过多横向空间
• 若需要同时缩小滑块的标题字体，可保留.slider-label的样式规则

内容的提问来源于stack exchange，提问作者Hees