R/plot_pca_iris.R

In devinwarner10/devinwkmeans: What the Package Does (One Line, Title Case)

#' Plots Iris principle components
#'
#'
#'
#'
#'
#' @export
#'
#'


plot_pca_iris <- function(xcol, ycol){
  data <- as.data.frame(pca_iris())
  data %>%
    ggplot(aes(x = data[,xcol], y = data[,ycol], color = Species)) +
    geom_point() +
    scale_color_manual(values = c("blue3", "violetred2", "springgreen3")) +
    xlab(xcol) + 
    ylab(ycol)
}