if(require("dplyr")) {
ggplot(NBAstats2021, mapping = aes(colour = Playoff)) +
geom_serialaxes(
axes.sequence = c("PTS", "OPTS", "3PM", "O3PM", "PTS"),
scaling = "variable"
) +
coord_radial() +
scale_x_continuous(
breaks = 1:5,
labels = c("Points",
"Oppo Points",
"3P Made",
"Oppo 3P Made",
"Points Per Game")) +
scale_y_continuous(labels = NULL) +
facet_wrap(~CONF)
}
Run the code above in your browser using DataLab