#Linear best fitting line

library(ggplot2)
ggplot(Wk10nm, aes(x=IV1, y=DV1)) +
  geom_point(shape=1) +    # Use hollow circles
  #  geom_jitter(pch=1, width=0.3) +
  geom_smooth(method=lm,formula=y~x,   # Add linear regression line
              se=FALSE,col="red", size=2) + # Don't add shaded confidence region
  theme_bw()

#Quadratic best fitting line

ggplot(Wk10nm, aes(x=IV1, y=DV1)) +
  geom_point(shape=1) +    # Use hollow circles
  #  geom_jitter(pch=1, width=0.3) +
  geom_smooth(method=lm,formula=y~poly(x,2),   # Add quadratic regression line
            se=FALSE,col="red", size=2) + # Don't add shaded confidence region
  theme_bw()