negative_correlation.r

x <- rnorm(20)
y <- rnorm(20)

p <- -0.9
u <- x + 2
v <- p * x + sqrt(1 - p**2) * y + 2

u <- (u - min(u)) / (max(u) - min(u))
v <- (v - min(v)) / (max(v) - min(v))

# plot(data.frame(x=u, y=v), pch=19, cex=1)

library(ggplot2)

g <- ggplot(data.frame(x=u, y=v),aes(x=x,y=y))
g <- g + geom_point(size=5)
g <- g + theme_bw(16)
g <- g + geom_smooth(method="lm")
g <- g + labs(x="", y="")
g <- g + ylim(0, 1)
plot(g)

ggsave(file=paste0("negative_correlation.png"), width=4, height=4, scale=1, dpi=800)