mgaughan/mw-lifecycle-analysis
1
0
Fork 0
Code

some updates to PCA

Browse Source
This commit is contained in:
Matthew Gaughan 2025-10-02 09:22:36 -07:00
parent 7f89fd1966
commit 5f157ef532
2 changed files with 14 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mgaughan-rstudio-server_29944433.out
View File

@ -1,17 +0,0 @@
1. SSH tunnel from your workstation using the following command:
ssh -N -L 8787:n3441:52613 mjilg@klone.hyak.uw.edu
and point your web browser to http://localhost:8787
2. log in to RStudio Server using the following credentials:
user: mjilg
password: YBcIVAgxBCfkvg2tbQqI
When done using RStudio Server, terminate the job by:
1. Exit the RStudio Session ("power" button in the top right corner of the RStudio window)
2. Issue the following command on the login node:
scancel -f 29944433

26
p2/quest/neurobiber_PCA_analysis.R
View File

@ -57,12 +57,12 @@ discussion_anova_results
# look at the representative comments for PC1 and PC2 # look at the representative comments for PC1 and PC2
top5 <- neurobiber_subcomment_pca_df %>% top5 <- neurobiber_subcomment_pca_df %>%
arrange(desc(PC2)) %>% arrange(desc(PC6)) %>%
slice(300:310) %>% slice(300:310) %>%
pull(cleaned_comment) pull(cleaned_comment)
bottom5 <- neurobiber_subcomment_pca_df %>% bottom5 <- neurobiber_subcomment_pca_df %>%
arrange(PC2) %>% arrange(PC6) %>%
slice(300:310) %>% slice(300:310) %>%
pull(cleaned_comment) pull(cleaned_comment)
@ -87,23 +87,25 @@ neurobiber_subcomment_pca_df_x <- neurobiber_subcomment_pca_df %>%
neurobiber_description_pca_df %>% neurobiber_description_pca_df %>%
select(TaskPHID, priority), select(TaskPHID, priority),
by = "TaskPHID" by = "TaskPHID"
) |> )
filter(priority.y %in% c("Lowest","Unbreak Now!"))
neurobiber_description_pca_df <- neurobiber_description_pca_df |> neurobiber_description_pca_df_x <- neurobiber_description_pca_df |>
filter(priority %in% c("Lowest","Unbreak Now!")) filter(priority %in% c("Lowest","Unbreak Now!"))
#unified_df$AuthorWMFAffil <- factor(unified_df$AuthorWMFAffil, levels = c("False", "True")) #unified_df$AuthorWMFAffil <- factor(unified_df$AuthorWMFAffil, levels = c("False", "True"))
#unified_df <- unified_df[order(unified_df$AuthorWMFAffil), ] #unified_df <- unified_df[order(unified_df$AuthorWMFAffil), ]
ggplot(neurobiber_description_pca_df, aes(x = PC3, y = PC8, fill = priority)) + # geom_point(shape = 21, alpha=0.4, size=2) +
geom_point(shape = 21, alpha=0.4, size=2) + # geom_bin_2d() +
ggplot(neurobiber_descriptions_pca_df, aes(x = PC4, y = PC1, fill = pair_in_description)) +
facet_grid(source ~ phase, scales="fixed") + facet_grid(source ~ phase, scales="fixed") +
xlim(-10, 10) + geom_point(shape = 21, alpha=0.1, size=2) +
ylim(-10, 10) + geom_smooth() +
xlim(-5, 5) +
ylim(-5, 5) +
scale_fill_viridis_d() + # Or scale_fill_brewer/palette of your choice scale_fill_viridis_d() + # Or scale_fill_brewer/palette of your choice
theme_minimal() + theme_minimal() +
labs( labs(
title = "PCs for Task Descriptions (Faceted by Source and Phase)", title = "PCs for Task Comments (Faceted by Source and Phase)",
x = "PC3", x = "PC4",
y = "PC8", y = "PC1",
fill = "author_same_as_task_creator?" fill = "author_same_as_task_creator?"
) )