R Plotly Add Trace Loop