updated figure to use ggplot package