wordfish_rank_plot: Plot of Wordfish rankings of documents

In matthewjdenny/preptest: Diagnostics to Assess the Effects of Text Preprocessing Decisions

Description

Coloration by ground-truth ranking.

Usage

wordfish_rank_plot(
  wordfish_results,
  labels,
  invert = TRUE,
  ranking = c("Lab1983", "Lab1987", "Lab1992", "Lab1997", "Con1997", "Con1992",
    "Con1987", "Con1983"),
  black_white = FALSE,
  one_matrix = FALSE,
  return_deviations = FALSE
)

Arguments

wordfish_results	The output from the 'wordfish_comparison()' function.
labels	A character vector giving the names for each preprocessing step.
invert	Logical indicating whether Wordfish score rankings should be reversed internally.
ranking	A character vector containing the correctly ranked document names.
black_white	Logical, defaults to FALSE. If FALSE then results are displayed on a red-blue scale. IF TRUE, then mis-ordered documents are colored black.
one_matrix	Logical indicating whether results should be plotted as a one or two column matrix. Defaults to FALSE.
return_deviations	Return a dataset indicating the ordering deviations for each preprocessing combination. Defaults to FALSE.

Value

A plot.

Examples

## Not run: 
# replicates Wordfish analysis from Denny and Spirling (2016)
# load the package
library(preText)
# load in the data
data("UK_Manifestos")
# preprocess data
preprocessed_documents <- factorial_preprocessing(
    UK_Manifestos,
    use_ngrams = TRUE,
    infrequent_term_threshold = 0.02,
    verbose = TRUE)
# get the years each document was written and store them as a numeric vector
dfm <- preprocessed_documents$dfm_list[[1]]
rl <- function(str) {
    stringr::str_replace_all(str,"[A-Za-z]+","")
}
years <- as.numeric(sapply(rownames(dfm),rl))

# use the wordfish_comparison function to compare all dfms. We are using
# conservative and labour manifestos from 1983, 1987, 1992, and 1997 for a total
# of 8 manifestos. These are indicated by the document_inidices = c(19:22,42:45)
# argument. You can see the document names by entering rownames(dfm) into the
# console. We need to set the anchors to 5,1 because anchoring is applied in the
# reduced dfm. We are also only including terms that appear atleast once in a
# manifesto from each of the 4 years, to deal with the strong temporal effects.
wordfish_results <- wordfish_comparison(
    preprocessed_documents$dfm_list,
    years,
    anchors = c(1,5),
    proportion_threshold = 1,
    document_inidices = c(19:22,42:45))
deviations <- wordfish_rank_plot(wordfish_results,
                  labels = preprocessed_documents$labels,
                  invert = FALSE,
                  ranking = c("Lab1983","Lab1987","Lab1992","Lab1997",
                              "Con1997","Con1992","Con1987","Con1983"),
                  black_white = FALSE,
                  one_matrix = FALSE,
                  return_deviations = FALSE)

## End(Not run)

matthewjdenny/preptest documentation built on July 27, 2021, 1:19 a.m.