13 lines
461 B
R
13 lines
461 B
R
library(tidyverse)
|
|
|
|
neurobiber_csv <-"~/p2/071425_master_discussion_data.csv"
|
|
neurobiber_df <- read.csv(neurobiber_csv , header = TRUE)
|
|
|
|
unique_authors <- unique(neurobiber_df$AuthorPHID)
|
|
unique_authors_df <- neurobiber_df[!duplicated(neurobiber_df$AuthorPHID), ]
|
|
table(unique_authors_df$AuthorWMFAffil)
|
|
|
|
task_description_unique_authors <- unique_authors_df |>
|
|
filter(comment_type == "task_description")
|
|
table(task_description_unique_authors$AuthorWMFAffil)
|