R绘图-按钮未使用正确的数据更新带颜色的条形图

如何解决R绘图-按钮未使用正确的数据更新带颜色的条形图

我正在尝试添加自定义按钮以更新y轴，这是一个类似的小示例。 当我单击“ frq”或“ count”时，会显示正确的条形图，但值有误（每个城市仅取一个值，并将其放在所有性别类别的条形图中）

library(plotly)
library(dplyr)
library(tidyr)

Occupation = c("Tel Aviv","Paris","Amsterdam","Kyoto")
Gender = c("F","M","[missing]")

df <- crossing(Occupation,Gender) %>%
  mutate(n = row_number()) %>%
  group_by(.data[["Occupation"]]) %>%
  mutate(frq = round(100 * (n / sum(n)),1))


chart_type <- list(
  type = "buttons",direction = "right",xanchor = 'center',yanchor = "top",pad = list('r' = 0,'t' = 10,'b' = 10),x = 0.1,y = 1.20,buttons = list(
    list(
      method = "update",args = list(list(y = list(df$n))),label = "count"
    ),list(
      method = "update",args = list(list(y = list(df$frq))),label = "frq"
    )
  )
)

df %>%
  plot_ly(
    x = ~ Occupation,y = ~ n,color = ~ Gender,text =  ~ n,textposition = 'auto',type = "bar"
  ) %>%
  layout(updatemenus = list(chart_type))

另一个版本：

chart_type <- list(
  type = "buttons",pad = list('r'= 0,'t'= 10,buttons = list(
    list(method = "update",args = list(list(visible = c(TRUE,FALSE)
                          )),label = "count"),list(method = "update",args = list(list(visible = c(FALSE,TRUE)
                          )),label = "frq")
  ))

df %>% 
  plot_ly(mode = 'markers',type = "bar") %>%
    add_trace(x = ~Occupation,y = ~n,color = ~Gender,text=~n,visible = FALSE,colorbar = list()) %>%
    add_trace(x = ~Occupation,y = ~frq,text=~frq,visible = TRUE,colorbar = list()) %>%

  layout(updatemenus = list(chart_type)) 

点击后：