R/get_class_loading_words.R

In jmclawson/stylo2gg: Visualize Stylometric Data with ggplot2

get_class_loading_words <- function(clue,
                                    pca_list,
                                    pc.x, pc.y) {
  
  df_pca <- pca_list$x
  
  this_sub_x <-
    df_pca[grep(clue,
                rownames(df_pca)),pc.x] %>%
    mean()
  this_sub_y <-
    df_pca[grep(clue,
                rownames(df_pca)),pc.y] %>%
    mean()
  
  loading_words <- this_sub_x %>%
    c(this_sub_y) %>%
    get_nearest_loading_words(pca_list)
  
  return(loading_words)
}