make_concordance_df: Make a table of concordance for multi-rater kappa

In emilelatour/lamisc: Latour's Little Helpers

Make a table of concordance for multi-rater kappa

Description

This function is a helper for working with the /codeconcordance function from the raters. Rather than a table or the orginal columns of data, the concordance function takes, as an input, a data frame that shows for each thing being rated (patient, sample, etc.) the number of raters that gave a particular rating. It creates a data frame of counts of raters by ratee and rating.

Usage

make_concordance_df(df, id, ..., keep_id = TRUE)

Arguments

df	A data frame or tibble.
id	A column/ariable (any type) that uniquely identifies the unit being rated (i.e. patient id, ssn, name, etc.).
...	The columns of ratings by the raters, character or factor.
keep_id	Logical; if /codeTRUE then it will keep the /codeid column else it will be dropped.

Value

A tibble

Examples

library(tibble)
library(raters)
diagnostic_df <-  data.frame(stringsAsFactors=FALSE,
         id = c(1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L,
                15L, 16L, 17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L,
                27L, 28L, 29L, 30L),
rater_1 = c("Neurosis", "Personality disorders", "Schizophrenia", "Other",
            "Personality disorders", "Depression", "Schizophrenia",
            "Depression", "Depression", "Other", "Depression", "Depression",
            "Personality disorders", "Depression", "Personality disorders",
            "Schizophrenia", "Depression", "Depression", "Personality disorders",
            "Depression", "Other", "Neurosis", "Personality disorders",
            "Depression", "Depression", "Personality disorders", "Depression",
            "Personality disorders", "Depression", "Other"),
rater_2 = c("Neurosis", "Personality disorders", "Schizophrenia", "Other",
            "Personality disorders", "Depression", "Schizophrenia",
            "Depression", "Depression", "Other", "Neurosis",
            "Personality disorders", "Personality disorders", "Neurosis",
            "Personality disorders", "Schizophrenia", "Depression", "Depression",
            "Personality disorders", "Schizophrenia", "Other", "Neurosis",
            "Personality disorders", "Depression", "Neurosis", "Personality disorders",
            "Depression", "Personality disorders", "Schizophrenia", "Other"),
rater_3 = c("Neurosis", "Personality disorders", "Schizophrenia", "Other",
            "Personality disorders", "Schizophrenia", "Schizophrenia",
            "Schizophrenia", "Neurosis", "Other", "Neurosis", "Neurosis",
            "Personality disorders", "Neurosis", "Neurosis", "Schizophrenia",
            "Depression", "Depression", "Neurosis", "Schizophrenia", "Other",
            "Neurosis", "Neurosis", "Neurosis", "Neurosis",
            "Personality disorders", "Depression", "Neurosis", "Schizophrenia", "Other"),
rater_4 = c("Neurosis", "Other", "Schizophrenia", "Other", "Neurosis",
            "Schizophrenia", "Schizophrenia", "Schizophrenia", "Neurosis",
            "Other", "Neurosis", "Neurosis", "Schizophrenia", "Neurosis",
            "Neurosis", "Schizophrenia", "Neurosis", "Depression",
            "Neurosis", "Other", "Other", "Neurosis", "Other", "Neurosis", "Neurosis",
            "Personality disorders", "Depression", "Neurosis",
            "Schizophrenia", "Other"),
rater_5 = c("Neurosis", "Other", "Personality disorders", "Other",
            "Neurosis", "Schizophrenia", "Other", "Schizophrenia",
            "Neurosis", "Other", "Neurosis", "Neurosis", "Schizophrenia",
            "Neurosis", "Neurosis", "Schizophrenia", "Other", "Depression",
            "Neurosis", "Other", "Other", "Neurosis", "Other", "Neurosis",
            "Neurosis", "Personality disorders", "Other", "Neurosis", "Schizophrenia",
            "Other"),
rater_6 = c("Neurosis", "Other", "Other", "Other", "Neurosis",
            "Schizophrenia", "Other", "Neurosis", "Neurosis", "Other",
            "Neurosis", "Neurosis", "Schizophrenia", "Neurosis", "Other",
            "Other", "Other", "Personality disorders", "Neurosis", "Other",
            "Other", "Personality disorders", "Other", "Neurosis", "Other",
            "Neurosis", "Other", "Neurosis", "Schizophrenia", "Other")
)

diagnostic_2 <- make_concordance_df(df = diagnostic_df,
                                  id = id,
                                  rater_1:rater_6,
                                  keep_id = FALSE)
diagnostic_2
data("diagnostic")
raters::concordance(diagnostic, test = "Chisq")
raters::concordance(diagnostic_2, test = "Chisq")

emilelatour/lamisc documentation built on April 9, 2024, 10:33 a.m.