Update summarize.R

data visualising: very basic codes