library(crosstalk)
library(d3scatter)
shared_sports2 <- SharedData$new(sports2)
bscols(widths = c(3,NA),
list(
# filter_checkbox("cyl", "Cylinders", shared_mtcars, ~cyl, inline = TRUE),
# filter_slider("hp", "Horsepower", shared_mtcars, ~hp, width = "100%"),
filter_select("auto", "Sports", shared_sports2, ~sports)
),
d3scatter(shared_sports2, ~total_exp_menwomen, ~total_rev_menwomen, ~factor(sports), width="100%", height=250))NCAA D1 Expenditures
Side-by-side boxplots
Something with expenditures by sport.
We have data on the reported revenues and expenditures of NCAA D1 schools by sport (for 2019).
What interesting questions can be asked with this data?
Notes:
- I’ve removed Football and Basketball
- I’ve removed rows where the expenditures exactly equal the revenue as I deem those to be an accounting trick and not real.