if (FALSE) {
data(challenger)
ggplot(challenger, aes(x = as.factor(oring), y = temperature)) +
geom_boxplot(fill = "steelblue", alpha = 0.3) +
xlab("Failure") +
ylab("Temperature (ºF)") +
theme_minimal()
}
Run the code above in your browser using DataLab