improve ggplot, add some figures