Rmd

einfaches bivariates Streuungsdiagramm

# minimales Streuungsdiagramm
v1 <- c(87.19,  94.04, 104.60,  86.20,  88.36,  90.70,  93.43,  88.76,  99.71,  99.72)
v2 <- c(96.97, 103.85, 119.83,  99.63,  98.81,  97.43,  99.79,  96.44, 114.35, 113.64)
plot(v1, v2)

die Achsen gleich skalieren

plot(v1, v2, xlim=c(80,120), ylim=c(80, 120))

die Regressionsgerade einzeichnen

plot(v1, v2, xlim=c(80,120), ylim=c(80, 120), abline(lm(v2 ~v1)))

verbose version

# und ein wenig verständlicher
plot(v1, v2, xlim=c(80,120), ylim=c(80, 120), abline(lm(v2 ~v1)), xlab="ability before training", ylab="ability after training", main="Effects of a 3 week training")
# und eine Legende hinzufügen
legend("bottomright",legend="Scale mean 100, sd 10")

Version: 22 April, 2021 21:21