Выпадающий фильтр на графике, r - не показывает «Все»

Question

Я пытаюсь отфильтровать Plotly по символам в столбце, но не могу отобразить все данные в этом столбце в виде кнопки.Я также подгоняю строку к данным и хотел бы показать все строки, когда нажата кнопка «Все», и строки будут иметь соответствующие имена.

Вот пример:

library(plotly)    

qfitspec <- lm(Petal.Length ~ poly(Sepal.Length, 1), data = iris)

p <- iris %>%
  plot_ly(
    type = 'scatter', 
    x = ~Sepal.Length, 
    y = ~Petal.Length,
    text = ~Species,
    hoverinfo = 'text',
    mode = 'markers', 
    transforms = list(
      list(
        type = 'filter',
        target = ~Species,
        operation = '=',
        value = unique(iris$Species)[1]
      )
    ))%>%
  add_lines(y = ~fitted(qfitspec), name = "Species")%>%
  layout(
      updatemenus = list(
        list(
          type = 'dropdown',
          active = 0,
          buttons = list(
            list(method = "restyle",
                 args = list("transforms[0].value", unique(iris$Species)[1]),
                 label = unique(iris$Species)[1]),
            list(method = "restyle",
                 args = list("transforms[0].value", unique(iris$Species)[2]),
                 label = unique(iris$Species)[2]),
            list(method = "restyle",
                 args = list("transforms[0].value", unique(iris$Species)[3]),
                 label = unique(iris$Species)[3])
          )
        )
      )
    )

В идеале у меня будет:

• 4-я кнопка "Все", которая отображает все данные в столбце видов

• и показывает всевыделенные линии в подмножествах.

Спасибо