使用R绘图下拉菜单选择变量，并继续使用颜色变量作为迹线

Question

我在R中的绘图图中添加了一个变量选择器（遵循通常的方法，即从绘图中隐藏不必要的痕迹）

library(plotly)

dat <- mtcars
dat$cyl <- factor(dat$cyl)
dat$car <- rownames(mtcars)

dat %>% 
    plot_ly(x = ~car, y = ~mpg,
            name='mpg', type='scatter', mode='markers') %>%
     add_trace(y = ~hp, name = 'hp', type='scatter', mode='markers') %>%
     add_trace(y = ~qsec, name = 'qsec', type='scatter', mode='markers') %>%
       layout(
          updatemenus = list(
            list(
                type = "list",
                label = 'Category',
                buttons = list(
          list(method = "restyle",
               args = list('visible', c(TRUE, FALSE, FALSE)),
               label = "mpg"),
          list(method = "restyle",
               args = list('visible', c(FALSE, TRUE, FALSE)),
               label = "hp"),
          list(method = "restyle",
               args = list('visible', c(FALSE, FALSE, TRUE)),
               label = "qsec")
        )
      )
    )
  )

代码完成了工作，但是它替代了组/颜色变量作为跟踪选择器的标准用法，因为我们已经设置了跟踪。

颜色/组变量的标准用法将是这样

plot_ly(group_by(dat,cyl), x = ~car, y = ~mpg, color = ~cyl, type='scatter', mode='markers')

注意：因为不推荐使用group_by()，所以我使用group = ...。>

是否可以将下拉菜单添加为变量选择器，并且仍然能够使用颜色/组变量来隐藏和显示所选变量的数据？

我尝试添加color= ~cyl，但您无法想象，它不起作用。

提前感谢！

我在R中的绘图图中添加了一个变量选择器（遵循通常的方法，即从绘图中隐藏不必要的痕迹）library（plotly）dat >>

Answer 1

尝试一下。首先，我将数据集转换为长格式，以使变量成为值name中的一个变量value的类别。其次，我将name映射到符号上并将cyl映射到颜色上。第三。我调整图例标签，以便通过将cyl映射到cyl内的名称来仅在图例中显示add_trace。

library(plotly)

dat <- mtcars
dat$cyl <- factor(dat$cyl)
dat$car <- rownames(mtcars)

dat %>% 
  tidyr::pivot_longer(c(mpg, hp, qsec)) %>% 
  plot_ly(x = ~car, y = ~value, color = ~cyl, symbol = ~name) %>%
  add_trace(type='scatter', mode='markers', name = ~cyl) %>% 
  layout(
    updatemenus = list(
      list(
        type = "list",
        label = 'Category',
        buttons = list(
          list(method = "restyle",
               args = list('visible', c(TRUE, FALSE, FALSE)),
               label = "hp"),
          list(method = "restyle",
               args = list('visible', c(FALSE, TRUE, FALSE)),
               label = "mpg"),
          list(method = "restyle",
               args = list('visible', c(FALSE, FALSE, TRUE)),
               label = "qsec")
        )
      )
    )
  )