add a measure of word count of cleaned utterances for each turn

R/clean_dyads.R

@@ -119,9 +119,10 @@ clean_dyads <- function(read_ts_df, lemmatize=TRUE) {
 
   dfclean_filtered <- dfclean_sep %>%     #remove rows where text is an empty string
     dplyr::filter(cleantext != "") %>%
-    #new stuff for testing the word count analytic fun
     dplyr::group_by(event_id) %>% #add a turn count per dyad, which counts by speaker change
     dplyr::mutate(turncount = dplyr::consecutive_id(Participant_ID), .before = 1) %>%
+    dplyr::group_by(turncount, .add = TRUE) %>%
+    mutate(wordcount_clean_turn = n()) %>% # take the word count of cleaned utterances at each turn
     dplyr::ungroup()
 
   return(dfclean_filtered)