当有人点击 highcharter 地图上的特定国家/地区时，我正在尝试显示堆积条形图

Question

我已经能够制作一张 highcharter 地图，该地图可以根据您想要查看的年份（2000 年至 2020 年）进行更新。现在我必须制作一个高图表堆积条形图来显示选定年份中选定国家/地区的具体信息。这是我的代码：

#library
library(shiny)
library(shinydashboard)
library(leaflet)
library(echarts4r)
library(highcharter)
library(dplyr)

ui<-dashboardPage(
  dashboardHeader(
    title = "MENA ESG",
    titleWidth = 650
  dashboardSidebar(
    #SidebarMenu
    sidebarMenu(
      id="sidebar",
      
      #firstItem
      menuItem(text="Vizualisation", tabName = "viz", icon=icon("chart-line")),
      menuItem(text = "Dataset", tabName="data", icon=icon("database"))
    )
  ),
  dashboardBody(
    tabItems(
      #first tab Item
      tabItem(tabName = "viz",
              box(sliderInput("year", label="Choose a year:", min=2000, max=2020, value = 2011), actionButton("reset", "Reset", icon("refresh"), class = "btn btn-primary btn-sm"), width = 2000),
                box(
                
                  #a card for the map
                  title = "Map",
                  closable = FALSE,
                  collapsible = FALSE,
                  width = 6,
                  height = "950px",
                  highchartOutput("chart",width="100%",height = "800px", clickOpts())
                  
                ),
              
              # a column with the two graphs
              column(
                width = 6,
                # box for the countries' ESG components details graph
                box(
                  width = 12,
                  closable = F,
                  collapsible = F,
                  title = "Countries' ESG components details",
                  highchartOutput("stacked_plot")
                ),
                # box for Each ESG components details graph
                box(
                  width = 12,
                  closable = F,
                  collapsible = F,
                  title = "Votes in percent",
                  TextOutput("text")
                )
              )
      ),
      
      #second tabItem
      tabItem(tabName = "data",
              tabBox()
    )
      
    )
  )

)


server<-function(input,output,session){
  
  # Click event for the map (will use to generate chart)
  ClickFunction <- JS("function(event) {Shiny.onInputChange('selected_country', event.point.name);}")
  
  # reative variable to stock the selected country
  selected_country <- reactiveVal()
  
  # React to the click event on the map
  observeEvent(input$selected_country, {
    selected_country(input$selected_country)
  })
    
  data(worldgeojson, package = "highcharter")
  
  observeEvent(input$reset, {
    updateSliderInput(session, "year", value = 2011)
  })
  
  
  short_data <- reactive(
    {
      data_ESG %>%
        filter(data_ESG$Years == as.numeric(input$year)) %>% 
        group_by(Country) 
    }
  )
  
  
  output$chart<-renderHighchart(
    highchart(type="map")%>%
      hc_add_series_map(
        worldgeojson, short_data(), value = "ESG", joinBy = c('name','Country'),
        name=paste0('ESG index '= input$year))%>%
      hc_plotOptions(map=list(
        events = list(click = ClickFunction)
      )
      )%>%
      hc_colorAxis(stops=color_stops())%>%
      hc_title(text= "Middle East and North Africa Countries ESG index")%>%
      hc_subtitle(text = paste0('Score of Year: ',input$year))
  )
  
  
  
  
  output$stacked_plot<-renderHighchart(
  
  selected <- selected_country(),
  
  # Filter data for the selected country
  selected_data <- subset(data_ESG, Country == selected),
  
  if (is.null(selected)) {
    #display the first country in the data if no country is selected yet
    selected <- data_ESG$Country[1]
    selected_country(selected)
  }
  
      highchart() %>% 
        hc_chart(type = "column") %>% 
        hc_title(text = "MyGraph") %>% 
        hc_plotOptions(column = list(
          dataLabels = list(enabled = FALSE),
          stacking = "normal",
          enableMouseTracking = TRUE)
        ) %>% 
        hc_xAxis(categories = data_ESG$selected_country()) %>%
        hc_yAxis(title = list(text = "Component"))%>%
        hc_add_series(new_series <- list(
          name = "SODI",
          data = selected_data$SODI
        ))%>%
        hc_add_series( list(
          name = "ENVI",
          data = selected_data$ENVI
        ))%>%
        hc_add_series(list(
          name = "GOVI",
          data = selected_data$GOVI
        ))
        
  
    
  )
 
}

shinyApp(ui,server)

通过这段代码，我得到了这个闪亮的应用程序：

在国家/地区的 ESG 组成部分详细信息中，我应该有一个堆积条形图，可以根据选择的国家/地区和年份进行更新，但是，我没有得到任何信息，我需要您来解决问题。

欢迎任何帮助！谢谢！

Answer 1

马克 我想问你如何通过R中的highchart制作多年的地图，现在我已经能够成功实现一张地图，但我无法制作多年的数据，例如我有一个year变量（ 2001,2003,2006,2009,2011,2016,2020），如何制作多年的地图

我尝试过的场景。 组（年） facet_warp(year)，但是都失败了，你有更好的解决方案吗，期待你的回复！