plot_ly(data = seriesFigureSaleDataBS0I_PhaseWave[[i]],                  x = ~priceDate,                  y = ~amount,                  color = ~actionFigurePackageName,                  colors = "Pastel0",                  type = "scatter",                  mode = "markers") %>%                  layout(title = paste("Phase", seriesFigureSaleDataBS0I_PhaseWave[[i]]$Phase, "& Wave", seriesFigureSaleDataBS0I_PhaseWave[[i]]$Wave))