可点击饼图到条形图的 select 数据

Question

我想显示多年的饼图，用户可以单击其中一个切片以 select 单个类别在条形图中绘制图表，以便更容易地查看该类别的年度变化。单击切片将有效地完成 selectInput 在以下脚本中所做的工作：

library(rCharts)
library(shiny)

Year1 <- c(1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5)
Year2 <- c(1,1,2,2,2,2,3,3,3,3,3,4,4,4,4,5,5,5,5,5)
Year3 <- c(1,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,5,5,5)
data <- data.frame(Year1,Year2,Year3)


shinyApp(
  ui = fluidPage(
    showOutput("p1", lib = "nvd3"),
    showOutput("p2", lib = "nvd3"),
    showOutput("p3", lib = "nvd3"),
    selectInput("selected","Select group to graph:",
                choices = c(1:5),
                multiple = FALSE,
                selected = 1),
    showOutput("bar", lib = "highcharts")
  ),
  server = function(input, output){
    output$p1 <- renderChart2({
      nPlot(~ Year1, data = data, type = 'pieChart')
    })

    output$p2 <- renderChart2({
      nPlot(~ Year2, data = data, type = 'pieChart')
    })

    output$p3 <- renderChart2({
      nPlot(~ Year3, data = data, type = 'pieChart')
    })

    data2 <- reactive({
      data.frame(Year1 = as.data.frame(table(data$Year1))[input$selected,2],
                 Year2 = as.data.frame(table(data$Year2))[input$selected,2],
                 Year3 = as.data.frame(table(data$Year3))[input$selected,2]
      )
    })

    output$bar <- renderChart2({
      a <- rCharts:::Highcharts$new()
      a$chart(type = "column")
      a$title(text = "Bar Chart")
      a$xAxis(title = list(text = "Yearly Data"))
      a$yAxis(title = list(text = "Count"))
      a$data(data2())
      a
    })    
  }
)

非常感谢任何帮助。我不反对使用其他包，如果有更合适的。

Answer 1

受 this 的启发，您可以添加自定义工具提示功能，当您点击饼图时添加点击事件：

tooltip_function="#! function(key, x, y, e ){ 
                        d3.selectAll('[class*=\"nv-slice\"]').on('click',function(){
                        Shiny.onInputChange('selected_cat',key)})
                        return '<h3>' + key + '</h3>' + '<p>'+ x +'</p>' 
                } !#"

Shiny.onInputChange 将 selected_cat 绑定到 key 的值，这是用户单击的饼图的名称。然后，您可以使用 input$selected_cat 在 server.R.

中获取该值

需要修改renderChart2以添加工具提示功能（第一个示例）：

 output$p1 <- renderChart2({
                        n1 <- nPlot(~ Year1, data = data, type = 'pieChart')
                        n1$chart(tooltipContent = tooltip_function)
                        n1
                })

和 data2:

 data2 <- reactive({
                        data.frame(Year1 = as.data.frame(table(data$Year1))[input$selected_cat,2],
                                   Year2 = as.data.frame(table(data$Year2))[input$selected_cat,2],
                                   Year3 = as.data.frame(table(data$Year3))[input$selected_cat,2]
                        )
                })

可点击饼图到条形图的 select 数据

Clickable Pie chart to select data for bar chart

r

highcharts

shiny

nvd3.js

rcharts