work in progress, implemented plot with ggplot2