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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.