Clone the ae-11 repo and open a new project in RStudio. We will walk through the AE as a class.
library(tidyverse)
library(plotly)
wages <- read_csv("data/wages.csv")
wages_scatterplot <- plot_ly(wages, x = ~Senior, y = ~Educ, z = ~Bsal, model = "lines") %>%
add_markers() %>%
layout(scene = list(xaxis = list(title = 'Senior'),
yaxis = list(title = 'Education'),
zaxis = list(title = 'Starting salary')))
wages_scatterplot