如何修改Shiny应用中活动标签页的背景颜色？

要修改Shiny应用里活动标签页的背景色，核心是通过CSS选择器定位到处于活动状态的标签元素，再设置对应的背景样式。以下是完整的实现代码：

library(shiny)

# 定义CSS样式，指定活动标签的背景色
css <- "
/* 匹配活动状态的标签按钮，同时覆盖hover、focus状态避免样式闪烁 */
.nav-tabs > .active > a,
.nav-tabs > .active > a:hover,
.nav-tabs > .active > a:focus {
  background-color: #a8d5ba; /* 替换为你需要的颜色值 */
  color: #333; /* 可选：调整标签文字颜色，提升可读性 */
}
"

ui <- fluidPage(
  tags$head(
    tags$style(HTML(css))
  ),
  tabsetPanel(
    tabPanel("t0", h2("tab 0")),
    tabPanel("t1", h2("tab 1"))
  )
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

关键说明： #

• CSS选择器 .nav-tabs > .active > a 精准定位活动状态的标签按钮，同时覆盖hover和focus状态，避免切换标签时出现样式闪烁
• 你可以将#a8d5ba替换为任意颜色值，支持十六进制色值、RGB值或颜色名称（比如lightgreen）
• 如果需要调整非活动标签的样式，可添加.nav-tabs > li > a选择器来设置对应样式

内容的提问来源于stack exchange，提问作者Stéphane Laurent