我正在 R 中的绘图中添加一个变量选择器（遵循通常的方法，即隐藏图中不必要的痕迹）
\n\nlibrary(plotly)\n\ndat <- mtcars\ndat$cyl <- factor(dat$cyl)\ndat$car <- rownames(mtcars)\n\ndat %>% \n plot_ly(x = ~car, y = ~mpg,\n name=\'mpg\', type=\'scatter\', mode=\'markers\') %>%\n add_trace(y = ~hp, name = \'hp\', type=\'scatter\', mode=\'markers\') %>%\n add_trace(y = ~qsec, name = \'qsec\', type=\'scatter\', mode=\'markers\') %>%\n layout(\n updatemenus = list(\n list(\n type = "list",\n label = \'Category\',\n buttons = list(\n list(method = "restyle",\n args = list(\'visible\', c(TRUE, FALSE, FALSE)),\n label = "mpg"),\n list(method = "restyle",\n args = list(\'visible\', c(FALSE, TRUE, FALSE)),\n label = "hp"),\n list(method …