df <- data.frame(y = rt(26, df = 5), name = letters) p <- ggplot(df, aes(sample = y)) p + stat_qq() + stat_qq_line()