fst_concept_network_compare {finnsurveytext}

Concept Network- Compare and plot Concept Network

Description

This function takes a string of terms (separated by commas) or a single term and, using 'textrank_keywords()' from 'textrank' package, filters data based on 'pos_filter' and finds words connected to search terms for each group. Then it plots a Concept Network for each group based on the calculated weights of these terms and the frequency of co-occurrences, indicating any words that are unique to each group's Network plot.

Usage

fst_concept_network_compare(
  data1,
  data2,
  data3 = NULL,
  data4 = NULL,
  pos_filter = NULL,
  name1 = "Group 1",
  name2 = "Group 2",
  name3 = "Group 3",
  name4 = "Group 4",
  concepts,
  norm = "number_words",
  threshold = NULL
)

Arguments

data1

A dataframe of text in CoNLL-U format for the first concept network.

data2

A dataframe of text in CoNLL-U format for the second concept network.

data3

An optional dataframe of text in CoNLL-U format for the third concept network, default is 'NULL'.

data4

An optional dataframe of text in CoNLL-U format for the fourth concept network, default is 'NULL'.

pos_filter

List of UPOS tags for inclusion, default is 'NULL' which means all word types included.

name1

A string describing data1, default is '"Group 1"'.

name2

A string describing data2, default is '"Group 2"'.

name3

A string describing data3, default is '"Group 3"'.

name4

A string describing data4, default is '"Group 4"'.

concepts

List of terms to search for, separated by commas.

norm

The method for normalising the data. Valid settings are '"number_words"' (the number of words in the responses, default), '"number_resp"' (the number of responses), or 'NULL' (raw count returned).

threshold

A minimum number of occurrences threshold for 'edge' between searched term and other word, default is 'NULL'.

Value

Between 2 and 4 concept network plots with concept and unique words highlighted.

Examples

d1 <- conllu_cb_bullying
d2 <- conllu_cb_bullying_iso
con1 <- "lyödä, lyöminen"
fst_concept_network_compare(d1, d2, concepts = con1)