library(plotly)
plot_ly( data = hair_data,
x = ~isFemale_num,
y = ~isMale_num,
z = ~length) %>%
add_jitter( x_jitter = 0, z_jitter = 0, color = ~gender,
colors = c("pink", "skyblue", "purple"))
Run the code above in your browser using DataLab