Added new function for data presentation.
Works on ggplot2 go ok.