PrintProfilePlot: Prints a plot comparing the profiles of different adjectives

In hrmJ/stockholm: Methods specifically for a study at Stockholms universitet

Description

Prints a plot comparing the profiles of different adjectives

Usage

PrintProfilePlot(abs_table, adjectives, min_pc = 4, vertical = FALSE)

Arguments

abs_table	cross-tabulated table with absolute numbers
adjectives	a vector consisting of th adjectives / constructions you want to compare
min_pc	minimum percentage value to be printed as text on the plot
vertical	wether or not to output the text labels vertically

Examples

# Example 1:

library(stockholm)
bolshaja$otdelno  <- apply(bolshaja,1,function(r)gsub("\\[adj\\]",r[["adj"]],r[["pattern"]])) 
bolshaja_moj <- subset(bolshaja, grepl("moj",pattern))
bolshaja_bez_moj <- subset(bolshaja, !grepl("moj",pattern))
tablica_s_absoljutnymi_tsiframi_moj <- table(bolshaja_moj$participants, bolshaja_moj$otdelno)
tablica_s_absoljutnymi_tsiframi_bez_moj <- table(bolshaja_bez_moj$participants, bolshaja_bez_moj$otdelno)
PrintProfilePlot(tablica_s_absoljutnymi_tsiframi_moj,c("milyj moj","moj milyj","dorogoj moj","moj dorogoj"))

hrmJ/stockholm documentation built on March 7, 2020, 7 p.m.