app works great

Author: emma-akrong

AssumptionPlotter/R/missing_data_summary.R

@@ -0,0 +1,48 @@
+#' @importFrom dplyr group_by summarise desc slice_head slice_tail
+
+
+rank_participants <- function(df, show = 5){
+
+  keep_cols <- c("id", "missing")
+  df <- df[,keep_cols]
+
+  df <- df %>%
+    dplyr::group_by(id) %>%
+    dplyr::summarise(
+      missing_sum = sum(missing, na.rm = TRUE),
+      missing_prop = mean(missing, na.rm = TRUE)
+    ) %>%
+    arrange(desc(missing_sum))
+
+  if(show > nrow(df)){
+    stop("Selected rows exceed number of participants")
+  }
+
+  most <- df %>%
+    slice_head(n = show)
+
+  least <- df %>%
+    slice_tail(n = show) %>%
+    arrange(missing_sum)
+
+  rank_df <- data.frame(
+    "ID_most" = as.character(most$id),
+    "sum_most" = most$missing_sum,
+    "prop_most" = paste0(round(most$missing_prop*100),"%"),
+    "ID_least" = as.character(least$id),
+    "sum_least" = least$missing_sum,
+    "prop_least" = paste0(round(least$missing_prop*100),"%")
+  )
+
+  colnames(rank_df) <- c("ID most:",
+                         "Sum",
+                         "Percent",
+                         "ID least:",
+                         "Sum",
+                         "Percent")
+
+  return(rank_df)
+
+}
+
+

AssumptionPlotter/R/plots.R

@@ -72,6 +72,8 @@ assumption_plot <- function(
   }
 
   # Subset data
+  ## In the future it would be cool to implement the option to plot multiple
+  ## participants at once (so you can compare them).
   df <- df %>%
     filter(id == participant)
 
@@ -309,22 +311,22 @@ pie_bar_chart <- function(df,
   # Keep relevant variables
   missing <- df$missing
 
-  # Create group variable
-  status <- ifelse(missing=="TRUE", "Missing", "Included")
-
 
   # Make df
   plot_df <- data.frame(
-    Status <- status,
-    Missing <- missing
+    Missing = missing
   )
 
+  plot_df <- df %>%
+    mutate(Status = ifelse(missing, "Missing", "Included")) %>%
+    dplyr::count(Status)
+
 
   # Create different types of plots
   if(type == "pie"){
 
     p <-
-      ggplot(plot_df, aes(x = "", y = Missing, fill = Status)) +
+      ggplot(plot_df, aes(x = "", y = n, fill = Status)) +
       geom_bar(stat = "identity", width = 1) +
       coord_polar("y", start = 0)+
       scale_fill_manual(values =
@@ -337,8 +339,8 @@ pie_bar_chart <- function(df,
       )
   } else if(type == "bar"){
     p <-
-      ggplot(plot_df, aes(Status, fill=Status)) +
-      geom_bar() +
+      ggplot(plot_df, aes(x = Status, y = n, fill = Status)) +
+      geom_col() +
       xlab("Data points")+
       ylab("Count")+
       scale_fill_manual(values =
@@ -368,5 +370,7 @@ pie_bar_chart <- function(df,
   }
 
   return(p)
+
 }
 
+