add a new R function for a simple static scorrplot