如何在R语言highcharter包中实现初始仅显示2条折线的交互式多折线图

可以实现，核心是通过配置系列的初始可见性，默认隐藏秘鲁、巴西、葡萄牙，同时保留图例点击切换的交互功能。以下是修改后的代码示例：

library(highcharter)
library(gapminder)
library(dplyr)

# 指定目标国家顺序，确保系列顺序匹配
target_countries <- c("Chile", "Argentina", "Peru", "Brazil", "Portugal")

# 过滤并按指定顺序排序数据
data <- gapminder %>% 
  filter(country %in% target_countries) %>%
  arrange(factor(country, levels = target_countries))

# 定义初始可见状态：智利、阿根廷默认显示，其余默认隐藏
visible_states <- c(TRUE, TRUE, FALSE, FALSE, FALSE)

# 绘制折线图并设置初始可见性
hchart(data, "line", hcaes(x = year, y = pop, group = country)) %>%
  hc_series(
    lapply(seq_along(target_countries), function(i) {
      list(visible = visible_states[i])
    })
  )

实现说明 #

• 先固定目标国家的顺序并排序数据，保证后续可见性设置能准确对应到每个国家
• 通过visible_states数组定义每个系列的初始显示状态，TRUE为显示，FALSE为隐藏
• 保留了Highcharts原生的图例交互：点击隐藏国家的图例即可显示对应折线，再次点击可重新隐藏

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