{"id":2491,"date":"2022-06-20T20:58:01","date_gmt":"2022-06-20T20:58:01","guid":{"rendered":"http:\/\/optimumsportsperformance.com\/blog\/?p=2491"},"modified":"2022-06-21T13:00:03","modified_gmt":"2022-06-21T13:00:03","slug":"visualizing-group-changes","status":"publish","type":"post","link":"https:\/\/optimumsportsperformance.com\/blog\/visualizing-group-changes\/","title":{"rendered":"Visualizing Group Changes"},"content":{"rendered":"

CJ Mayes<\/a><\/span><\/strong> recently posted some really nice plots for visualizing group differences to Twitter<\/a><\/span><\/strong>.<\/p>\n

\"\"<\/a><\/p>\n

My personal favorite was the bottom right plot, which can be a nice way of visualizing pre and post changes in a study. I believe the original plots were done in Tableau, so I’ve gone ahead and reproduced that bottom right plot in R<\/strong>.<\/p>\n

You can grab the full code, all in one piece, from my GitHub page<\/a><\/span><\/strong>.<\/p>\n

Simulate Some Data<\/strong><\/p>\n

\r\nlibrary(tidyverse)\r\nlibrary(gghalves)\r\ntheme_set(theme_light())\r\n\r\nset.seed(1234)\r\ndat <- tibble( subject = LETTERS[1:26], pre = rnorm(n = 26, mean = 10, sd = 3) ) %>%\r\n  mutate(post = pre + rnorm(n = 26, mean = 0, sd = 2))\r\n\r\ndat_long <- dat %>%\r\n  pivot_longer(cols = -subject) %>%\r\n  mutate(name = factor(name, levels = c("pre", "post"))) \r\n<\/pre>\n
Create the plot<\/strong><\/p>\n
\r\ndat_long %>%\r\n  ggplot(aes(x = name, y = value)) +\r\n  geom_line(aes(group = subject),\r\n            color = "light grey",\r\n            size = 0.7) +\r\n  geom_point(aes(group = subject,\r\n                 color = name),\r\n             alpha = 0.7,\r\n             size = 2) +\r\n  geom_half_violin(aes(x = name),\r\n                   data = dat_long %&gt;% filter(name == 'pre'),\r\n                   fill = "light grey",\r\n                   color = "light grey",\r\n                   side = 'l',\r\n                   alpha = 0.7) +\r\n  geom_half_violin(aes(x = name),\r\n                   data = dat_long %&gt;% filter(name == 'post'),\r\n                   fill = "palegreen",\r\n                   color = "palegreen",\r\n                   side = 'r',\r\n                   alpha = 0.7) +\r\n  scale_color_manual(values = c("pre" = "light grey", "post" = "palegreen")) +\r\n  labs(x = "Test Time",\r\n       y = NULL,\r\n       title = "Changes from Pre to Post") +\r\n  theme(axis.text = element_text(face = "bold", size = 12),\r\n        axis.title = element_text(face = "bold", size = 15),\r\n        plot.title = element_text(size = 18),\r\n        legend.position = "none")\r\n<\/pre>\n
\"\"<\/a><\/p>\n
 <\/p>\n","protected":false},"excerpt":{"rendered":"
CJ Mayes recently posted some really nice plots for visualizing group differences to Twitter. My personal favorite was the bottom right plot, which can be a nice way of visualizing pre and post changes in a study. I believe the original plots were done in Tableau, so I’ve gone ahead and reproduced that bottom right […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[45,43],"tags":[],"class_list":["post-2491","post","type-post","status-publish","format-standard","hentry","category-r-tips-tricks","category-sports-analytics"],"_links":{"self":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/2491","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/comments?post=2491"}],"version-history":[{"count":3,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/2491\/revisions"}],"predecessor-version":[{"id":2496,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/posts\/2491\/revisions\/2496"}],"wp:attachment":[{"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/media?parent=2491"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/categories?post=2491"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/optimumsportsperformance.com\/blog\/wp-json\/wp\/v2\/tags?post=2491"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}