为Plotly柱状图通过循环自动生成区域切换下拉菜单

要实现按区域（reg）切换的柱状图，核心是通过循环自动生成下拉菜单的按钮配置，再绑定到Plotly图表的布局中。以下是完整的实现代码和分步说明：

完整代码 #

# 示例数据准备
Mdf <- data.frame(age=c(15,20,25,30,35,40,45),
                  cases=c(1200,1110,2233,1445,1323,1510,910),
                  py=c(10101,12465,452424,14240,1544,1574,1154))
Mdf <- rbind(Mdf,Mdf)
Mdf$cases[8:14] <- Mdf$cases[1:7]+3
Mdf$prop <- (Mdf$cases / Mdf$py)*100
Mdf$reg <- c(rep(1,7),rep(2,7))

library(tidyverse)
library(plotly)

# 1. 获取所有唯一的区域值
regions <- unique(Mdf$reg)

# 2. 循环生成下拉菜单按钮
dropdown_buttons <- lapply(regions, function(reg_val) {
  # 筛选当前区域的数据
  filtered_data <- Mdf %>% filter(reg == reg_val)
  
  list(
    label = paste("区域", reg_val),
    method = "restyle",
    args = list(
      "x" = list(filtered_data$age),
      "y" = list(filtered_data$prop)
    )
  )
})

# 3. 创建初始图表（默认显示第一个区域的数据）
initial_data <- Mdf %>% filter(reg == regions[1])
p <- plot_ly(
  data = initial_data,
  x = ~age,
  y = ~prop,
  type = "bar",
  name = paste("区域", regions[1])
)

# 4. 添加下拉菜单到布局
p <- p %>% layout(
  updatemenus = list(
    list(
      type = "dropdown",
      active = 0,  # 默认选中第一个按钮
      buttons = dropdown_buttons,
      x = 0.1,     # 下拉菜单的水平位置
      y = 1.15     # 下拉菜单的垂直位置
    )
  ),
  xaxis = list(title = "年龄组"),
  yaxis = list(title = "prop值")
)

# 显示图表
p

关键部分说明 #

• 自动生成按钮：用lapply循环所有区域值，每个按钮对应一个区域的筛选数据，通过restyle方法更新图表的x、y轴数据，避免手动编写20个区域的配置。
• 初始数据设置：默认显示第一个区域的数据，让图表加载后有初始内容，提升体验。
• 布局配置：updatemenus里设置active = 0确保默认选中第一个按钮，调整x和y参数可以控制下拉菜单的位置。

这个方案可以直接适配20个区域的场景，只需要保证你的原始数据中reg列包含所有区域标识即可。

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