Quantile-Quantile Plots & Skewness

par(mfrow=c(1,3))
df <- rbeta(10000,5,2)
hist(df, main = "Left skewed")
boxplot(df)
qqnorm(df); qqline(df, col="blue", lwd = 2, lty = 2)

par(mfrow=c(1,3))
df <- rbeta(10000,2,5)
hist(df, main = "Right skewed")
boxplot(df)
qqnorm(df); qqline(df, col="blue", lwd = 2, lty = 2)

par(mfrow=c(1,3))
df <- rbeta(10000,5,5)
hist(df, main = "Normal distribution")
boxplot(df)
qqnorm(df); qqline(df, col="blue", lwd = 2, lty = 2)

par(mfrow=c(1,1))