Separate legends R

Plotly R, MATLAB, Julia, Net
1

image
image663×410 27.5 KB

I would like this to be 2 separate legends like on the original ggplot but it mixes them when using plotly

image
image646×402 48.7 KB

My code:

fig3 <- ggplot(data_long, aes(x = Time_Point, 
                              y = Weight, 
                              group = Participant.ID,
                              color = Physical.Activity.Level,
                              linetype = Sleep.Quality)) +
  geom_line() +
  geom_point(size = 2) +
  labs(title = "Weight Change Trajectories", 
       y = "Weight (lbs)") +
  theme_minimal() 
  #scale_color_manual(values = rainbow(100)) 
fig3
ggplotly(fig3)