使R闪亮的图表可交互，当点击柱形图时，会跳转到另一个标签页，并显示过滤后的数据。

要使R闪亮的图表可交互并且在点击柱形图时跳转到另一个标签页并显示过滤后的数据，可以使用Shiny库来创建交互式应用程序。

下面是一个示例代码，演示了如何使用Shiny库创建一个交互式的柱形图，并在点击柱形图时跳转到另一个标签页并显示过滤后的数据：

library(shiny)
library(ggplot2)

# 创建一个包含数据的数据框
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(10, 20, 15, 25)
)

# 定义UI
ui <- fluidPage(
  # 创建一个标签页布局
  navbarPage(
    "交互式图表示例",
    # 第一个标签页：柱形图
    tabPanel(
      "柱形图",
      sidebarLayout(
        sidebarPanel(),
        mainPanel(
          # 在主面板中绘制柱形图
          plotOutput("barplot", click = "plot_click")
        )
      )
    ),
    # 第二个标签页：过滤后的数据
    tabPanel(
      "过滤后的数据",
      dataTableOutput("filtered_data")
    )
  )
)

# 定义服务器逻辑
server <- function(input, output, session) {
  # 绘制柱形图
  output$barplot <- renderPlot({
    ggplot(data, aes(x = category, y = value)) +
      geom_bar(stat = "identity")
  })
  
  # 响应点击事件
  observeEvent(input$plot_click, {
    # 获取点击的x坐标值
    x <- input$plot_click$x
    # 根据点击的x坐标值过滤数据
    filtered_data <- data[data$category == x, ]
    # 在第二个标签页中显示过滤后的数据
    output$filtered_data <- renderDataTable({
      filtered_data
    })
    # 切换到第二个标签页
    updateNavbarPage(session, "交互式图表示例", selected = "过滤后的数据")
  })
}

# 运行应用程序
shinyApp(ui, server)

在这个示例中，首先创建了一个包含数据的数据框。然后定义了UI布局，包括了一个包含两个标签页的导航栏页面。第一个标签页中包含一个柱形图，而第二个标签页中显示过滤后的数据。在服务器逻辑中，使用renderPlot函数绘制柱形图，并使用observeEvent函数响应点击事件。在点击事件中，根据点击的x坐标值过滤数据，并使用renderDataTable函数在第二个标签页中显示过滤后的数据。最后，使用updateNavbarPage函数切换到第二个标签页。

运行这段代码，你将看到一个交互式的柱形图。当你点击柱形图时，将跳转到第二个标签页并显示过滤后的数据。