In richelbilderbeek/K3Reviews: K3 Reviews

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(ggplot2)
library(k3reviews)

Load all reviews

df <- get_songs_ratings(get_all_song_filenames())
knitr::kable(head(df))

Count songs and reviews

filenames <- unique(df$filename)
n_songs <- length(filenames)
message("Number of songs: ", n_songs)
n_reviewed <- sum(filenames %in% na.omit(df)$filename)
n_unreviewed <- sum(!filenames %in% na.omit(df)$filename)
message("Reviewed: ", n_reviewed)
message("Not reviewed: ", n_unreviewed)

How many reviews have been done?

ggplot(na.omit(df), aes(x = formation, fill = reviewer)) +
  geom_histogram(stat = "count")

What are the grades given by the reviewers?

df$rating <- as.numeric(df$rating)
ggplot(na.omit(df), aes(x = reviewer, y = rating)) +
  geom_boxplot()

What are the grades given by the reviewers?

df$rating <- as.numeric(df$rating)
ggplot(na.omit(df), aes(x = formation, y = rating, fill = reviewer)) +
  geom_boxplot()

richelbilderbeek/K3Reviews documentation built on Dec. 18, 2020, 10:40 a.m.