plot.data.frame <- function(x, ...) boxplot(x)