# draw null distribution in ggplot [closed]

How would you draw a null distribution in R using ggplot to teach about hypothesis testing?

• N=340 allocated 1:1 to two arms
• standard deviation for trial planning purposes was 2.8 (standard error of treatment effect = 0.304)
• vertical lines for alpha showing 5% in both tails

Bonus for showing an alternative distribution shifted to the left to have 90% power to detect effects.