Test Post Round 2

A new article created using the Distill format.

library(dplyr)
library(ggplot2)
data(storms)
ggplot(storms, aes(wind,pressure))+
  geom_point(alpha=.5,col="blue")+
  geom_abline(slope=1,intercept=0)+
  facet_wrap(vars(status))