R/summarise_plot_data.R

In marton-balazs-kovacs/trolleyMultilabReplication: Analyses for the PSA006 Moral Thinking Across the World Multilab Replication Project

#' Summarize data for plotting
#'
#' The function summarizes data for plotting.
#'
#' @param data the datatable containing the data to be plotted
#'
#' @return The function returns the summarized datatable.
#' @export
summarise_plot_data <- function(data) {
  data %>%
    dplyr::group_by(survey_name, condition) %>%
    dplyr::summarise(mean = mean(rate, na.rm = T),
              median = median(rate, na.rm = T),
              sd = sd(rate, na.rm = T),
              lower = mean - sd,
              upper = mean + sd)
}