R Plotly legend duplicates when using lines and markers

Question

I have the following multiple lines plotly plot:

plt <- plot_ly(df, x = ~date, y = ~COUNT, color = ~Action, connectgaps = TRUE, 
                mode = &qu