Density plot of effect sizes from social psychology and communication science

effect-sizes-density-plot.r

library(tidyverse)

df <- read.csv("https://raw.githubusercontent.com/peterdalle/effectsizes/master/soc-psych.tsv",
               header=TRUE, sep="\t", stringsAsFactors=FALSE)

df.comm <- read.csv("https://raw.githubusercontent.com/peterdalle/effectsizes-comm/master/effectsizes.csv",
               header=TRUE, sep=",", stringsAsFactors=FALSE)

ggplot() +
  geom_density(aes(df$r), fill="red", alpha=0.3) +
  geom_density(aes(df.comm$r), fill="blue", alpha=0.3) +
  scale_x_continuous(breaks=seq(0, 1, 0.1), limits=c(0, 1)) + 
  labs(title="Meta-analytic effect sizes from communication research (blue) and social psychology (red)",
       x="Effect size (r)", y="Density")