modify ggplot2 and r-tricks