You can use function lapply() to apply function summary() to each column and then cbind() to show data as column.

lapply(dataFrame,function(x) cbind(summary(x)))

From http://stackoverflow.com/questions/14791075/r-format-data-frame-summary