R/plotFS.examiner_compare.R

In MartinWut/GoeFlexStatCrawler: Downloading and analysing available on the FlexStat-Homepage of the Georg-August University Goettingen

#' plotFS.examiner_compare
#'
#' @param x An object of the class examiner_compare
#' @export

plotFS.examiner_compare <- function(x){
  df <- data.frame(x[[1]], x[[2]])
  ggplot(df, aes(x=x..1.., y=x..2..)) +
    geom_point(size=3) +
    geom_segment(aes(x=x..1..,
                     xend=x..1..,
                     y=0,
                     yend=x..2..)) +
    xlab("Examiners") + ylab("Mean grades") +
    labs(title="Examiner Mean grades",
         subtitle="Lollipop Chart") +
    theme(axis.text.x = element_text(angle=65, vjust=0.6))
}