Skip to content

Instantly share code, notes, and snippets.

@arvi1000
Created October 22, 2019 20:01
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save arvi1000/36b1f582c085333006ef747f6376b5fe to your computer and use it in GitHub Desktop.
Save arvi1000/36b1f582c085333006ef747f6376b5fe to your computer and use it in GitHub Desktop.
library(tidyverse)
lapply(1:5, function(x) {
data.frame(team = LETTERS[x],
alignment_score = rnorm(20, mean=max(x, 3), sd=0.5),
stringsAsFactors = F)
}) %>%
bind_rows() %>%
ggplot(aes(x=team, y=alignment_score)) +
geom_boxplot() +
theme_light() +
ggtitle('Distribution of alignment scores by team')
@arvi1000
Copy link
Author

image

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment