R/plot_pca.R

Defines functions plot_pca

Documented in plot_pca

#' Plots Basketball PCA
#'
#'
#'
#' @export


plot_pca <- function(data, xcol, ycol, d){
  data <- as.data.frame(pca_bball(data, d1 = d))
  data %>%
    ggplot(aes(x = data[,xcol], y = data[,ycol], color = conference, shape = as.factor(tournament))) +
    geom_point() +
    xlab(xcol) + 
    ylab(ycol)
}
devinwarner10/devinwcbb documentation built on April 22, 2022, 2:06 a.m.