# NOT RUN {
summary(box_plots)
## base plot
#save current settings
state <- par("mar", "mfrow")
par(mfrow = c(5, 2), mar=c(1,2,2,1))
nms <- names(box_plots)
for (i in 1:5){
nm <- nms[i]
hist(box_plots[[nms[i]]],
breaks = 100,
main = nm)
boxplot(box_plots[[nms[i]]],
horizontal = TRUE)
}
#reset settings
par(state)
## ggplot
if(require(ggplot2)){
ggplot(box_plots, aes(x=left))+
geom_density()
ggplot(box_plots, aes(x=lines))+
geom_density()
ggplot(box_plots, aes(x=normal))+
geom_density()
ggplot(box_plots, aes(x=right))+
geom_density()
ggplot(box_plots, aes(x=split))+
geom_density()
}
# }
Run the code above in your browser using DataCamp Workspace